summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Jacobowitz <dan@debian.org>2003-02-21 15:23:51 +0000
committerDaniel Jacobowitz <dan@debian.org>2003-02-21 15:23:51 +0000
commit529d49fd38038acd23a1c2cd9d8845e382d6553b (patch)
treebd58eca3968fee09f584f63cf5771ea225083dc8
parent21ce76eb38338e64ee43e25796537e1309754bb0 (diff)
downloadgdb-529d49fd38038acd23a1c2cd9d8845e382d6553b.tar.gz
* generic/gdbtk-stack.c (gdb_get_blocks, gdb_block_vars)
(gdb_get_vars_command): Handle LOC_COMPUTED and LOC_COMPUTED_ARG.
-rw-r--r--gdb/gdbtk/ChangeLog5
-rw-r--r--gdb/gdbtk/generic/gdbtk-stack.c6
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));