From: Michael Snyder <msnyder@vmware.com>
Date: Fri, 2 Jan 1998 17:01:29 +0000 (+0000)
Subject: Fri Jan  2 16:56:16 1998  Michael Snyder  (msnyder@cleaver.cygnus.com)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=43b043cf656c0648df67b709f7cd72028c6804bb;p=binutils-gdb.git

Fri Jan  2 16:56:16 1998  Michael Snyder  (msnyder@cleaver.cygnus.com)
[From Keith Seitz  (kseitz@cygnus.com)]
        * actiondlg.tcl (change): handle '$' in register names.
        gdbtk.c (gdb_actions_command): extract and save step count
        from "while-stepping" command
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d457fa97c6a..face20512f4 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+Fri Jan  2 16:56:16 1998  Michael Snyder  (msnyder@cleaver.cygnus.com)
+[From Keith Seitz  (kseitz@cygnus.com)]
+
+	* actiondlg.tcl (change): handle '$' in register names.
+        gdbtk.c (gdb_actions_command): extract and save step count
+        from "while-stepping" command
+
 For older changes see ChangeLog-97
 
 Local Variables:
diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index 26d7bad3bcc..1168f5bce40 100644
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -2518,6 +2518,7 @@ gdb_actions_command (clientData, interp, objc, objv)
   Tcl_Obj **actions;
   int      nactions, i, len;
   char *number, *args, *action;
+  long step_count;
   struct action_line *next = NULL, *temp;
 
   if (objc != 3)
@@ -2543,6 +2544,7 @@ gdb_actions_command (clientData, interp, objc, objv)
         free (temp->action);
       free (temp);
     }
+  step_count = 0;
 
   Tcl_ListObjGetElements (interp, objv[2], &nactions, &actions);
   for (i = 0; i < nactions; i++)
@@ -2551,6 +2553,8 @@ gdb_actions_command (clientData, interp, objc, objv)
       temp->next = NULL;
       action = Tcl_GetStringFromObj (actions[i], &len);
       temp->action = savestring (action, len);
+      if (sscanf (temp->action, "while-stepping %d", &step_count) !=0)
+        tp->step_count = step_count;
       if (next == NULL)
         {
           tp->actions = temp;