diff options
| author | Keith Seitz <keiths@redhat.com> | 2001-02-27 22:25:37 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2001-02-27 22:25:37 +0000 |
| commit | 738afaeaa2ececb9764b6ab498b8a6757dcfd4c9 (patch) | |
| tree | acd6f6825a56861ef4c3d89b97779128822d4f5f /gdb/gdbtk | |
| parent | c04463113c1daaabe662ca497f7304c23b484b77 (diff) | |
| download | gdb-738afaeaa2ececb9764b6ab498b8a6757dcfd4c9.tar.gz | |
* generic/gdbtk-cmds.c (gdb_fetch_registers): Mark
the result as generating a list only if it really does
generate a list.
Diffstat (limited to 'gdb/gdbtk')
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/gdbtk/generic/gdbtk-cmds.c | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 55b0703ac56..3d74d794e8a 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,9 @@ +2001-02-27 Keith Seitz <kseitz@nwlink.com> + + * generic/gdbtk-cmds.c (gdb_fetch_registers): Mark + the result as generating a list only if it really does + generate a list. + 2001-02-21 Fernando Nasser <fnasser@redhat.com> * TODO: New file. Initial version of the TODO file, as posted to the diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c index 408f101d9fb..53587f042b8 100644 --- a/gdb/gdbtk/generic/gdbtk-cmds.c +++ b/gdb/gdbtk/generic/gdbtk-cmds.c @@ -1955,10 +1955,11 @@ gdb_fetch_registers (clientData, interp, objc, objv) format = *(Tcl_GetStringFromObj (objv[0], NULL)); objv++; - - result_ptr->flags |= GDBTK_MAKES_LIST; /* Output the results as a list */ + if (objc != 1) + result_ptr->flags |= GDBTK_MAKES_LIST; /* Output the results as a list */ result = map_arg_registers (objc, objv, get_register, (void *) format); - result_ptr->flags &= ~GDBTK_MAKES_LIST; + if (objc != 1) + result_ptr->flags &= ~GDBTK_MAKES_LIST; return result; } |