From 43b043cf656c0648df67b709f7cd72028c6804bb Mon Sep 17 00:00:00 2001 From: Michael Snyder Date: Fri, 2 Jan 1998 17:01:29 +0000 Subject: [PATCH] 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 --- gdb/ChangeLog | 7 +++++++ gdb/gdbtk.c | 4 ++++ 2 files changed, 11 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index d457fa9..face205 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 26d7bad..1168f5b 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; -- 2.7.4