diff options
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/gdbtk/generic/gdbtk-stack.c | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index c6497d48bf3..a544b135bab 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,8 @@ +2003-02-21 Daniel Jacobowitz <drow@mvista.com> + + * generic/gdbtk-stack.c (gdb_get_blocks, gdb_block_vars) + (gdb_get_vars_command): Handle LOC_COMPUTED and LOC_COMPUTED_ARG. + 2003-02-20 Keith Seitz <keiths@redhat.com> * generic/gdbtk-cmds.c (gdb_search): Change SYMBOL_SOURCE_NAME diff --git a/gdb/gdbtk/generic/gdbtk-stack.c b/gdb/gdbtk/generic/gdbtk-stack.c index d5d5d41fec6..fac7a610497 100644 --- a/gdb/gdbtk/generic/gdbtk-stack.c +++ b/gdb/gdbtk/generic/gdbtk-stack.c @@ -122,6 +122,8 @@ gdb_block_vars (ClientData clientData, Tcl_Interp *interp, case LOC_BASEREG: /* basereg local */ case LOC_STATIC: /* static */ case LOC_REGISTER: /* register */ + case LOC_COMPUTED: /* computed location */ + case LOC_COMPUTED_ARG: /* computed location arg */ Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewStringObj (SYMBOL_NAME (sym), -1)); @@ -193,11 +195,13 @@ gdb_get_blocks (ClientData clientData, Tcl_Interp *interp, case LOC_REGPARM_ADDR: /* indirect register arg */ case LOC_LOCAL_ARG: /* stack arg */ case LOC_BASEREG_ARG: /* basereg arg */ + case LOC_COMPUTED_ARG: /* computed location arg */ case LOC_LOCAL: /* stack local */ case LOC_BASEREG: /* basereg local */ case LOC_STATIC: /* static */ case LOC_REGISTER: /* register */ + case LOC_COMPUTED: /* computed location */ junk = 0; break; } @@ -338,6 +342,7 @@ gdb_get_vars_command (ClientData clientData, Tcl_Interp *interp, case LOC_REGPARM_ADDR: /* indirect register arg */ case LOC_LOCAL_ARG: /* stack arg */ case LOC_BASEREG_ARG: /* basereg arg */ + case LOC_COMPUTED_ARG: /* computed location arg */ if (arguments) Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewStringObj (SYMBOL_NAME (sym), -1)); @@ -346,6 +351,7 @@ gdb_get_vars_command (ClientData clientData, Tcl_Interp *interp, case LOC_BASEREG: /* basereg local */ case LOC_STATIC: /* static */ case LOC_REGISTER: /* register */ + case LOC_COMPUTED: /* computed location */ if (!arguments) Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewStringObj (SYMBOL_NAME (sym), -1)); |