FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fri Jan 2 16:56:16 1998 Michael Snyder (msnyder@cleaver.cygnus.com)

Browse source 
[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
This commit is contained in:
Michael Snyder 1998-01-02 17:01:29 +00:00
parent 1ab578bf12
commit 43b043cf65
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
gdb/ChangeLog
View file

@ -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 For older changes see ChangeLog-97
Local Variables: Local Variables:

4
gdb/gdbtk.c
View file

@ -2518,6 +2518,7 @@ gdb_actions_command (clientData, interp, objc, objv)
Tcl_Obj **actions; Tcl_Obj **actions;
int nactions, i, len; int nactions, i, len;
char *number, *args, *action; char *number, *args, *action;
long step_count;
struct action_line *next = NULL, *temp; struct action_line *next = NULL, *temp;
if (objc != 3) if (objc != 3)
@ -2543,6 +2544,7 @@ gdb_actions_command (clientData, interp, objc, objv)
free (temp->action); free (temp->action);
free (temp); free (temp);
} }
step_count = 0;
Tcl_ListObjGetElements (interp, objv[2], &nactions, &actions); Tcl_ListObjGetElements (interp, objv[2], &nactions, &actions);
for (i = 0; i < nactions; i++) for (i = 0; i < nactions; i++)
@ -2551,6 +2553,8 @@ gdb_actions_command (clientData, interp, objc, objv)
temp->next = NULL; temp->next = NULL;
action = Tcl_GetStringFromObj (actions[i], &len); action = Tcl_GetStringFromObj (actions[i], &len);
temp->action = savestring (action, len); temp->action = savestring (action, len);
if (sscanf (temp->action, "while-stepping %d", &step_count) !=0)
tp->step_count = step_count;
if (next == NULL) if (next == NULL)
{ {
tp->actions = temp; tp->actions = temp;