espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-28 15:18:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

(mi_cmd_stack_list_locals): Print the name,

Browse Source 
type and value for simple data types and just the name and type
for complex ones, if required.
This commit is contained in:
Nick Roberts
2004-01-20 00:46:00 +00:00
parent 90e645cd1b
commit f5ec20424b
1 changed files with 46 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
gdb/mi/mi-cmd-stack.c
View File

@ -29,6 +29,7 @@
#include "block.h" #include "block.h"
#include "stack.h" #include "stack.h"
#include "dictionary.h" #include "dictionary.h"
#include "gdb_string.h"
static void list_args_or_locals (int locals, int values, struct frame_info *fi); static void list_args_or_locals (int locals, int values, struct frame_info *fi);
@ -137,10 +138,26 @@ mi_cmd_stack_info_depth (char *command, char **argv, int argc)
enum mi_cmd_result enum mi_cmd_result
mi_cmd_stack_list_locals (char *command, char **argv, int argc) mi_cmd_stack_list_locals (char *command, char **argv, int argc)
{ {
struct frame_info *frame;
enum print_values print_values;
if (argc != 1) if (argc != 1)
error ("mi_cmd_stack_list_locals: Usage: PRINT_VALUES"); error ("mi_cmd_stack_list_locals: Usage: PRINT_VALUES");
list_args_or_locals (1, atoi (argv[0]), deprecated_selected_frame); frame = get_selected_frame ();
if (strcmp (argv[0], "0") == 0
|| strcmp (argv[0], "--no-values") == 0)
print_values = PRINT_NO_VALUES;
else if (strcmp (argv[0], "1") == 0
|| strcmp (argv[0], "--all-values") == 0)
print_values = PRINT_ALL_VALUES;
else if (strcmp (argv[0], "2") == 0
|| strcmp (argv[0], "--simple-values") == 0)
print_values = PRINT_SIMPLE_VALUES;
else
error ("Unknown value for PRINT_VALUES: must be: 0 or \"--no-values\", 1 or \"--all-values\", 2 or \"--simple-values\"");
list_args_or_locals (1, print_values, frame);
return MI_CMD_DONE; return MI_CMD_DONE;
} }
@ -218,6 +235,7 @@ list_args_or_locals (int locals, int values, struct frame_info *fi)
int nsyms; int nsyms;
struct cleanup *cleanup_list; struct cleanup *cleanup_list;
static struct ui_stream *stb = NULL; static struct ui_stream *stb = NULL;
struct type *type;
stb = ui_out_stream_new (uiout); stb = ui_out_stream_new (uiout);
@ -268,24 +286,39 @@ list_args_or_locals (int locals, int values, struct frame_info *fi)
if (print_me) if (print_me)
{ {
struct cleanup *cleanup_tuple = NULL; struct cleanup *cleanup_tuple = NULL;
if (values) if (values != PRINT_NO_VALUES)
cleanup_tuple = cleanup_tuple =
make_cleanup_ui_out_tuple_begin_end (uiout, NULL); make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
ui_out_field_string (uiout, "name", DEPRECATED_SYMBOL_NAME (sym)); ui_out_field_string (uiout, "name", SYMBOL_PRINT_NAME (sym));
if (values) struct symbol *sym2;
{ if (!locals)
struct symbol *sym2; sym2 = lookup_symbol (SYMBOL_NATURAL_NAME (sym),
if (!locals) block, VAR_DOMAIN,
sym2 = lookup_symbol (DEPRECATED_SYMBOL_NAME (sym), (int *) NULL,
block, VAR_DOMAIN, (struct symtab **) NULL);
(int *) NULL, else
(struct symtab **) NULL);
else
sym2 = sym; sym2 = sym;
switch (values)
{
case PRINT_SIMPLE_VALUES:
type = check_typedef (sym2->type);
type_print (sym2->type, "", stb->stream, -1);
ui_out_field_stream (uiout, "type", stb);
if (TYPE_CODE (type) != TYPE_CODE_ARRAY
&& TYPE_CODE (type) != TYPE_CODE_STRUCT
&& TYPE_CODE (type) != TYPE_CODE_UNION)
{
print_variable_value (sym2, fi, stb->stream);
ui_out_field_stream (uiout, "value", stb);
}
do_cleanups (cleanup_tuple);
break;
case PRINT_ALL_VALUES:
print_variable_value (sym2, fi, stb->stream); print_variable_value (sym2, fi, stb->stream);
ui_out_field_stream (uiout, "value", stb); ui_out_field_stream (uiout, "value", stb);
do_cleanups (cleanup_tuple); do_cleanups (cleanup_tuple);
break;
} }
} }
} }