diff options
| author | Michael Snyder <msnyder@vmware.com> | 1998-01-02 17:01:29 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@vmware.com> | 1998-01-02 17:01:29 +0000 |
| commit | 43b043cf656c0648df67b709f7cd72028c6804bb (patch) | |
| tree | 88a95e35543251b47bf56b1627f0f3bb02e10e8d /gdb/gdbtk.c | |
| parent | 1ab578bf12fc6986e6cd55477b78d7a1afc947d5 (diff) | |
| download | gdb-43b043cf656c0648df67b709f7cd72028c6804bb.zip gdb-43b043cf656c0648df67b709f7cd72028c6804bb.tar.gz gdb-43b043cf656c0648df67b709f7cd72028c6804bb.tar.bz2 | |
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
Diffstat (limited to 'gdb/gdbtk.c')
| -rw-r--r-- | gdb/gdbtk.c | 4 |
1 files changed, 4 insertions, 0 deletions
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; |