darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-25 13:09:48 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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
Show Stats 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
Local Variables:

4
gdb/gdbtk.c
View File

@ -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;