1 /* Print values for GNU debugger GDB.
3 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
4 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
5 Free Software Foundation, Inc.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
25 #include "gdb_string.h"
31 #include "expression.h"
35 #include "breakpoint.h"
39 #include "symfile.h" /* for overlay functions */
40 #include "objfiles.h" /* ditto */
41 #include "completer.h" /* for completion functions */
43 #include "gdb_assert.h"
48 #include "tui/tui.h" /* For tui_active et.al. */
51 extern int asm_demangle
; /* Whether to demangle syms in asm printouts */
52 extern int addressprint
; /* Whether to print hex addresses in HLL " */
61 /* Last specified output format. */
63 static char last_format
= 'x';
65 /* Last specified examination size. 'b', 'h', 'w' or `q'. */
67 static char last_size
= 'w';
69 /* Default address to examine next. */
71 static CORE_ADDR next_address
;
73 /* Last address examined. */
75 static CORE_ADDR last_examine_address
;
77 /* Contents of last address examined.
78 This is not valid past the end of the `x' command! */
80 static struct value
*last_examine_value
;
82 /* Largest offset between a symbolic value and an address, that will be
83 printed as `0x1234 <symbol+offset>'. */
85 static unsigned int max_symbolic_offset
= UINT_MAX
;
87 show_max_symbolic_offset (struct ui_file
*file
, int from_tty
,
88 struct cmd_list_element
*c
, const char *value
)
90 fprintf_filtered (file
, _("\
91 The largest offset that will be printed in <symbol+1234> form is %s.\n"),
95 /* Append the source filename and linenumber of the symbol when
96 printing a symbolic value as `<symbol at filename:linenum>' if set. */
97 static int print_symbol_filename
= 0;
99 show_print_symbol_filename (struct ui_file
*file
, int from_tty
,
100 struct cmd_list_element
*c
, const char *value
)
102 fprintf_filtered (file
, _("\
103 Printing of source filename and line number with <symbol> is %s.\n"),
107 /* Number of auto-display expression currently being displayed.
108 So that we can disable it if we get an error or a signal within it.
109 -1 when not doing one. */
111 int current_display_number
;
113 /* Flag to low-level print routines that this value is being printed
114 in an epoch window. We'd like to pass this as a parameter, but
115 every routine would need to take it. Perhaps we can encapsulate
116 this in the I/O stream once we have GNU stdio. */
122 /* Chain link to next auto-display item. */
123 struct display
*next
;
124 /* Expression to be evaluated and displayed. */
125 struct expression
*exp
;
126 /* Item number of this auto-display item. */
128 /* Display format specified. */
129 struct format_data format
;
130 /* Innermost block required by this expression when evaluated */
132 /* Status of this display (enabled or disabled) */
136 /* Chain of expressions whose values should be displayed
137 automatically each time the program stops. */
139 static struct display
*display_chain
;
141 static int display_number
;
143 /* Prototypes for exported functions. */
145 void output_command (char *, int);
147 void _initialize_printcmd (void);
149 /* Prototypes for local functions. */
151 static void do_one_display (struct display
*);
154 /* Decode a format specification. *STRING_PTR should point to it.
155 OFORMAT and OSIZE are used as defaults for the format and size
156 if none are given in the format specification.
157 If OSIZE is zero, then the size field of the returned value
158 should be set only if a size is explicitly specified by the
160 The structure returned describes all the data
161 found in the specification. In addition, *STRING_PTR is advanced
162 past the specification and past all whitespace following it. */
164 static struct format_data
165 decode_format (char **string_ptr
, int oformat
, int osize
)
167 struct format_data val
;
168 char *p
= *string_ptr
;
174 if (*p
>= '0' && *p
<= '9')
175 val
.count
= atoi (p
);
176 while (*p
>= '0' && *p
<= '9')
179 /* Now process size or format letters that follow. */
183 if (*p
== 'b' || *p
== 'h' || *p
== 'w' || *p
== 'g')
185 else if (*p
>= 'a' && *p
<= 'z')
191 while (*p
== ' ' || *p
== '\t')
195 /* Set defaults for format and size if not specified. */
196 if (val
.format
== '?')
200 /* Neither has been specified. */
201 val
.format
= oformat
;
205 /* If a size is specified, any format makes a reasonable
206 default except 'i'. */
207 val
.format
= oformat
== 'i' ? 'x' : oformat
;
209 else if (val
.size
== '?')
214 /* Pick the appropriate size for an address. */
215 if (gdbarch_ptr_bit (current_gdbarch
) == 64)
216 val
.size
= osize
? 'g' : osize
;
217 else if (gdbarch_ptr_bit (current_gdbarch
) == 32)
218 val
.size
= osize
? 'w' : osize
;
219 else if (gdbarch_ptr_bit (current_gdbarch
) == 16)
220 val
.size
= osize
? 'h' : osize
;
222 /* Bad value for gdbarch_ptr_bit. */
223 internal_error (__FILE__
, __LINE__
,
224 _("failed internal consistency check"));
227 /* Floating point has to be word or giantword. */
228 if (osize
== 'w' || osize
== 'g')
231 /* Default it to giantword if the last used size is not
233 val
.size
= osize
? 'g' : osize
;
236 /* Characters default to one byte. */
237 val
.size
= osize
? 'b' : osize
;
240 /* The default is the size most recently specified. */
247 /* Print value VAL on stream according to FORMAT, a letter or 0.
248 Do not end with a newline.
249 0 means print VAL according to its own type.
250 SIZE is the letter for the size of datum being printed.
251 This is used to pad hex numbers so they line up. */
254 print_formatted (struct value
*val
, int format
, int size
,
255 struct ui_file
*stream
)
257 struct type
*type
= check_typedef (value_type (val
));
258 int len
= TYPE_LENGTH (type
);
260 if (VALUE_LVAL (val
) == lval_memory
)
261 next_address
= VALUE_ADDRESS (val
) + len
;
266 /* FIXME: Need to handle wchar_t's here... */
267 next_address
= VALUE_ADDRESS (val
)
268 + val_print_string (VALUE_ADDRESS (val
), -1, 1, stream
);
272 /* The old comment says
273 "Force output out, print_insn not using _filtered".
274 I'm not completely sure what that means, I suspect most print_insn
275 now do use _filtered, so I guess it's obsolete.
276 --Yes, it does filter now, and so this is obsolete. -JB */
278 /* We often wrap here if there are long symbolic names. */
280 next_address
= VALUE_ADDRESS (val
)
281 + gdb_print_insn (VALUE_ADDRESS (val
), stream
);
286 || TYPE_CODE (type
) == TYPE_CODE_ARRAY
287 || TYPE_CODE (type
) == TYPE_CODE_STRING
288 || TYPE_CODE (type
) == TYPE_CODE_STRUCT
289 || TYPE_CODE (type
) == TYPE_CODE_UNION
290 || TYPE_CODE (type
) == TYPE_CODE_NAMESPACE
)
291 /* If format is 0, use the 'natural' format for that type of
292 value. If the type is non-scalar, we have to use language
293 rules to print it as a series of scalars. */
294 value_print (val
, stream
, format
, Val_pretty_default
);
296 /* User specified format, so don't look to the the type to
297 tell us what to do. */
298 print_scalar_formatted (value_contents (val
), type
,
299 format
, size
, stream
);
303 /* Print a scalar of data of type TYPE, pointed to in GDB by VALADDR,
304 according to letters FORMAT and SIZE on STREAM.
305 FORMAT may not be zero. Formats s and i are not supported at this level.
307 This is how the elements of an array or structure are printed
311 print_scalar_formatted (const void *valaddr
, struct type
*type
,
312 int format
, int size
, struct ui_file
*stream
)
314 LONGEST val_long
= 0;
315 unsigned int len
= TYPE_LENGTH (type
);
317 if (len
> sizeof(LONGEST
) &&
318 (TYPE_CODE (type
) == TYPE_CODE_INT
319 || TYPE_CODE (type
) == TYPE_CODE_ENUM
))
324 print_octal_chars (stream
, valaddr
, len
);
328 print_decimal_chars (stream
, valaddr
, len
);
331 print_binary_chars (stream
, valaddr
, len
);
334 print_hex_chars (stream
, valaddr
, len
);
337 print_char_chars (stream
, valaddr
, len
);
345 val_long
= unpack_long (type
, valaddr
);
347 /* If the value is a pointer, and pointers and addresses are not the
348 same, then at this point, the value's length (in target bytes) is
349 gdbarch_addr_bit/TARGET_CHAR_BIT, not TYPE_LENGTH (type). */
350 if (TYPE_CODE (type
) == TYPE_CODE_PTR
)
351 len
= gdbarch_addr_bit (current_gdbarch
) / TARGET_CHAR_BIT
;
353 /* If we are printing it as unsigned, truncate it in case it is actually
354 a negative signed value (e.g. "print/u (short)-1" should print 65535
355 (if shorts are 16 bits) instead of 4294967295). */
358 if (len
< sizeof (LONGEST
))
359 val_long
&= ((LONGEST
) 1 << HOST_CHAR_BIT
* len
) - 1;
367 /* No size specified, like in print. Print varying # of digits. */
368 print_longest (stream
, 'x', 1, val_long
);
377 print_longest (stream
, size
, 1, val_long
);
380 error (_("Undefined output size \"%c\"."), size
);
385 print_longest (stream
, 'd', 1, val_long
);
389 print_longest (stream
, 'u', 0, val_long
);
394 print_longest (stream
, 'o', 1, val_long
);
396 fprintf_filtered (stream
, "0");
401 CORE_ADDR addr
= unpack_pointer (type
, valaddr
);
402 print_address (addr
, stream
);
407 value_print (value_from_longest (builtin_type_true_char
, val_long
),
408 stream
, 0, Val_pretty_default
);
412 if (len
== TYPE_LENGTH (builtin_type_float
))
413 type
= builtin_type_float
;
414 else if (len
== TYPE_LENGTH (builtin_type_double
))
415 type
= builtin_type_double
;
416 else if (len
== TYPE_LENGTH (builtin_type_long_double
))
417 type
= builtin_type_long_double
;
418 print_floating (valaddr
, type
, stream
);
422 internal_error (__FILE__
, __LINE__
,
423 _("failed internal consistency check"));
426 /* Binary; 't' stands for "two". */
428 char bits
[8 * (sizeof val_long
) + 1];
429 char buf
[8 * (sizeof val_long
) + 32];
434 width
= 8 * (sizeof val_long
);
451 error (_("Undefined output size \"%c\"."), size
);
457 bits
[width
] = (val_long
& 1) ? '1' : '0';
462 while (*cp
&& *cp
== '0')
468 fputs_filtered (buf
, stream
);
473 error (_("Undefined output format \"%c\"."), format
);
477 /* Specify default address for `x' command.
478 The `info lines' command uses this. */
481 set_next_address (CORE_ADDR addr
)
485 /* Make address available to the user as $_. */
486 set_internalvar (lookup_internalvar ("_"),
487 value_from_pointer (lookup_pointer_type (builtin_type_void
),
491 /* Optionally print address ADDR symbolically as <SYMBOL+OFFSET> on STREAM,
492 after LEADIN. Print nothing if no symbolic name is found nearby.
493 Optionally also print source file and line number, if available.
494 DO_DEMANGLE controls whether to print a symbol in its native "raw" form,
495 or to interpret it as a possible C++ name and convert it back to source
496 form. However note that DO_DEMANGLE can be overridden by the specific
497 settings of the demangle and asm_demangle variables. */
500 print_address_symbolic (CORE_ADDR addr
, struct ui_file
*stream
,
501 int do_demangle
, char *leadin
)
504 char *filename
= NULL
;
509 /* Throw away both name and filename. */
510 struct cleanup
*cleanup_chain
= make_cleanup (free_current_contents
, &name
);
511 make_cleanup (free_current_contents
, &filename
);
513 if (build_address_symbolic (addr
, do_demangle
, &name
, &offset
,
514 &filename
, &line
, &unmapped
))
516 do_cleanups (cleanup_chain
);
520 fputs_filtered (leadin
, stream
);
522 fputs_filtered ("<*", stream
);
524 fputs_filtered ("<", stream
);
525 fputs_filtered (name
, stream
);
527 fprintf_filtered (stream
, "+%u", (unsigned int) offset
);
529 /* Append source filename and line number if desired. Give specific
530 line # of this addr, if we have it; else line # of the nearest symbol. */
531 if (print_symbol_filename
&& filename
!= NULL
)
534 fprintf_filtered (stream
, " at %s:%d", filename
, line
);
536 fprintf_filtered (stream
, " in %s", filename
);
539 fputs_filtered ("*>", stream
);
541 fputs_filtered (">", stream
);
543 do_cleanups (cleanup_chain
);
546 /* Given an address ADDR return all the elements needed to print the
547 address in a symbolic form. NAME can be mangled or not depending
548 on DO_DEMANGLE (and also on the asm_demangle global variable,
549 manipulated via ''set print asm-demangle''). Return 0 in case of
550 success, when all the info in the OUT paramters is valid. Return 1
553 build_address_symbolic (CORE_ADDR addr
, /* IN */
554 int do_demangle
, /* IN */
555 char **name
, /* OUT */
556 int *offset
, /* OUT */
557 char **filename
, /* OUT */
559 int *unmapped
) /* OUT */
561 struct minimal_symbol
*msymbol
;
562 struct symbol
*symbol
;
563 struct symtab
*symtab
= 0;
564 CORE_ADDR name_location
= 0;
565 asection
*section
= 0;
566 char *name_temp
= "";
568 /* Let's say it is unmapped. */
571 /* Determine if the address is in an overlay, and whether it is
573 if (overlay_debugging
)
575 section
= find_pc_overlay (addr
);
576 if (pc_in_unmapped_range (addr
, section
))
579 addr
= overlay_mapped_address (addr
, section
);
583 /* First try to find the address in the symbol table, then
584 in the minsyms. Take the closest one. */
586 /* This is defective in the sense that it only finds text symbols. So
587 really this is kind of pointless--we should make sure that the
588 minimal symbols have everything we need (by changing that we could
589 save some memory, but for many debug format--ELF/DWARF or
590 anything/stabs--it would be inconvenient to eliminate those minimal
592 msymbol
= lookup_minimal_symbol_by_pc_section (addr
, section
);
593 symbol
= find_pc_sect_function (addr
, section
);
597 name_location
= BLOCK_START (SYMBOL_BLOCK_VALUE (symbol
));
598 if (do_demangle
|| asm_demangle
)
599 name_temp
= SYMBOL_PRINT_NAME (symbol
);
601 name_temp
= DEPRECATED_SYMBOL_NAME (symbol
);
606 if (SYMBOL_VALUE_ADDRESS (msymbol
) > name_location
|| symbol
== NULL
)
608 /* The msymbol is closer to the address than the symbol;
609 use the msymbol instead. */
612 name_location
= SYMBOL_VALUE_ADDRESS (msymbol
);
613 if (do_demangle
|| asm_demangle
)
614 name_temp
= SYMBOL_PRINT_NAME (msymbol
);
616 name_temp
= DEPRECATED_SYMBOL_NAME (msymbol
);
619 if (symbol
== NULL
&& msymbol
== NULL
)
622 /* If the nearest symbol is too far away, don't print anything symbolic. */
624 /* For when CORE_ADDR is larger than unsigned int, we do math in
625 CORE_ADDR. But when we detect unsigned wraparound in the
626 CORE_ADDR math, we ignore this test and print the offset,
627 because addr+max_symbolic_offset has wrapped through the end
628 of the address space back to the beginning, giving bogus comparison. */
629 if (addr
> name_location
+ max_symbolic_offset
630 && name_location
+ max_symbolic_offset
> name_location
)
633 *offset
= addr
- name_location
;
635 *name
= xstrdup (name_temp
);
637 if (print_symbol_filename
)
639 struct symtab_and_line sal
;
641 sal
= find_pc_sect_line (addr
, section
, 0);
645 *filename
= xstrdup (sal
.symtab
->filename
);
648 else if (symtab
&& symbol
&& symbol
->line
)
650 *filename
= xstrdup (symtab
->filename
);
651 *line
= symbol
->line
;
655 *filename
= xstrdup (symtab
->filename
);
662 /* Print address ADDR on STREAM. USE_LOCAL means the same thing as for
665 deprecated_print_address_numeric (CORE_ADDR addr
, int use_local
,
666 struct ui_file
*stream
)
669 fputs_filtered (paddress (addr
), stream
);
672 int addr_bit
= gdbarch_addr_bit (current_gdbarch
);
674 if (addr_bit
< (sizeof (CORE_ADDR
) * HOST_CHAR_BIT
))
675 addr
&= ((CORE_ADDR
) 1 << addr_bit
) - 1;
676 print_longest (stream
, 'x', 0, (ULONGEST
) addr
);
680 /* Print address ADDR symbolically on STREAM.
681 First print it as a number. Then perhaps print
682 <SYMBOL + OFFSET> after the number. */
685 print_address (CORE_ADDR addr
, struct ui_file
*stream
)
687 deprecated_print_address_numeric (addr
, 1, stream
);
688 print_address_symbolic (addr
, stream
, asm_demangle
, " ");
691 /* Print address ADDR symbolically on STREAM. Parameter DEMANGLE
692 controls whether to print the symbolic name "raw" or demangled.
693 Global setting "addressprint" controls whether to print hex address
697 print_address_demangle (CORE_ADDR addr
, struct ui_file
*stream
,
702 fprintf_filtered (stream
, "0");
704 else if (addressprint
)
706 deprecated_print_address_numeric (addr
, 1, stream
);
707 print_address_symbolic (addr
, stream
, do_demangle
, " ");
711 print_address_symbolic (addr
, stream
, do_demangle
, "");
716 /* These are the types that $__ will get after an examine command of one
719 static struct type
*examine_i_type
;
721 static struct type
*examine_b_type
;
722 static struct type
*examine_h_type
;
723 static struct type
*examine_w_type
;
724 static struct type
*examine_g_type
;
726 /* Examine data at address ADDR in format FMT.
727 Fetch it from memory and print on gdb_stdout. */
730 do_examine (struct format_data fmt
, CORE_ADDR addr
)
735 struct type
*val_type
= NULL
;
744 /* String or instruction format implies fetch single bytes
745 regardless of the specified size. */
746 if (format
== 's' || format
== 'i')
750 val_type
= examine_i_type
;
751 else if (size
== 'b')
752 val_type
= examine_b_type
;
753 else if (size
== 'h')
754 val_type
= examine_h_type
;
755 else if (size
== 'w')
756 val_type
= examine_w_type
;
757 else if (size
== 'g')
758 val_type
= examine_g_type
;
765 if (format
== 's' || format
== 'i')
768 /* Print as many objects as specified in COUNT, at most maxelts per line,
769 with the address of the next one at the start of each line. */
774 print_address (next_address
, gdb_stdout
);
775 printf_filtered (":");
780 printf_filtered ("\t");
781 /* Note that print_formatted sets next_address for the next
783 last_examine_address
= next_address
;
785 if (last_examine_value
)
786 value_free (last_examine_value
);
788 /* The value to be displayed is not fetched greedily.
789 Instead, to avoid the possibility of a fetched value not
790 being used, its retrieval is delayed until the print code
791 uses it. When examining an instruction stream, the
792 disassembler will perform its own memory fetch using just
793 the address stored in LAST_EXAMINE_VALUE. FIXME: Should
794 the disassembler be modified so that LAST_EXAMINE_VALUE
795 is left with the byte sequence from the last complete
796 instruction fetched from memory? */
797 last_examine_value
= value_at_lazy (val_type
, next_address
);
799 if (last_examine_value
)
800 release_value (last_examine_value
);
802 print_formatted (last_examine_value
, format
, size
, gdb_stdout
);
804 printf_filtered ("\n");
805 gdb_flush (gdb_stdout
);
810 validate_format (struct format_data fmt
, char *cmdname
)
813 error (_("Size letters are meaningless in \"%s\" command."), cmdname
);
815 error (_("Item count other than 1 is meaningless in \"%s\" command."),
817 if (fmt
.format
== 'i' || fmt
.format
== 's')
818 error (_("Format letter \"%c\" is meaningless in \"%s\" command."),
819 fmt
.format
, cmdname
);
822 /* Evaluate string EXP as an expression in the current language and
823 print the resulting value. EXP may contain a format specifier as the
824 first argument ("/x myvar" for example, to print myvar in hex). */
827 print_command_1 (char *exp
, int inspect
, int voidprint
)
829 struct expression
*expr
;
830 struct cleanup
*old_chain
= 0;
833 struct format_data fmt
;
836 /* Pass inspect flag to the rest of the print routines in a global
838 inspect_it
= inspect
;
840 if (exp
&& *exp
== '/')
843 fmt
= decode_format (&exp
, last_format
, 0);
844 validate_format (fmt
, "print");
845 last_format
= format
= fmt
.format
;
857 expr
= parse_expression (exp
);
858 old_chain
= make_cleanup (free_current_contents
, &expr
);
860 val
= evaluate_expression (expr
);
863 val
= access_value_history (0);
865 if (voidprint
|| (val
&& value_type (val
) &&
866 TYPE_CODE (value_type (val
)) != TYPE_CODE_VOID
))
868 int histindex
= record_latest_value (val
);
871 annotate_value_history_begin (histindex
, value_type (val
));
873 annotate_value_begin (value_type (val
));
876 printf_unfiltered ("\031(gdb-makebuffer \"%s\" %d '(\"",
878 else if (histindex
>= 0)
879 printf_filtered ("$%d = ", histindex
);
882 annotate_value_history_value ();
884 print_formatted (val
, format
, fmt
.size
, gdb_stdout
);
885 printf_filtered ("\n");
888 annotate_value_history_end ();
890 annotate_value_end ();
893 printf_unfiltered ("\") )\030");
897 do_cleanups (old_chain
);
898 inspect_it
= 0; /* Reset print routines to normal. */
902 print_command (char *exp
, int from_tty
)
904 print_command_1 (exp
, 0, 1);
907 /* Same as print, except in epoch, it gets its own window. */
909 inspect_command (char *exp
, int from_tty
)
911 extern int epoch_interface
;
913 print_command_1 (exp
, epoch_interface
, 1);
916 /* Same as print, except it doesn't print void results. */
918 call_command (char *exp
, int from_tty
)
920 print_command_1 (exp
, 0, 0);
924 output_command (char *exp
, int from_tty
)
926 struct expression
*expr
;
927 struct cleanup
*old_chain
;
930 struct format_data fmt
;
934 if (exp
&& *exp
== '/')
937 fmt
= decode_format (&exp
, 0, 0);
938 validate_format (fmt
, "output");
942 expr
= parse_expression (exp
);
943 old_chain
= make_cleanup (free_current_contents
, &expr
);
945 val
= evaluate_expression (expr
);
947 annotate_value_begin (value_type (val
));
949 print_formatted (val
, format
, fmt
.size
, gdb_stdout
);
951 annotate_value_end ();
954 gdb_flush (gdb_stdout
);
956 do_cleanups (old_chain
);
960 set_command (char *exp
, int from_tty
)
962 struct expression
*expr
= parse_expression (exp
);
963 struct cleanup
*old_chain
=
964 make_cleanup (free_current_contents
, &expr
);
965 evaluate_expression (expr
);
966 do_cleanups (old_chain
);
970 sym_info (char *arg
, int from_tty
)
972 struct minimal_symbol
*msymbol
;
973 struct objfile
*objfile
;
974 struct obj_section
*osect
;
976 CORE_ADDR addr
, sect_addr
;
981 error_no_arg (_("address"));
983 addr
= parse_and_eval_address (arg
);
984 ALL_OBJSECTIONS (objfile
, osect
)
986 /* Only process each object file once, even if there's a separate
988 if (objfile
->separate_debug_objfile_backlink
)
991 sect
= osect
->the_bfd_section
;
992 sect_addr
= overlay_mapped_address (addr
, sect
);
994 if (osect
->addr
<= sect_addr
&& sect_addr
< osect
->endaddr
&&
995 (msymbol
= lookup_minimal_symbol_by_pc_section (sect_addr
, sect
)))
998 offset
= sect_addr
- SYMBOL_VALUE_ADDRESS (msymbol
);
1000 printf_filtered ("%s + %u in ",
1001 SYMBOL_PRINT_NAME (msymbol
), offset
);
1003 printf_filtered ("%s in ",
1004 SYMBOL_PRINT_NAME (msymbol
));
1005 if (pc_in_unmapped_range (addr
, sect
))
1006 printf_filtered (_("load address range of "));
1007 if (section_is_overlay (sect
))
1008 printf_filtered (_("%s overlay "),
1009 section_is_mapped (sect
) ? "mapped" : "unmapped");
1010 printf_filtered (_("section %s"), sect
->name
);
1011 printf_filtered ("\n");
1015 printf_filtered (_("No symbol matches %s.\n"), arg
);
1019 address_info (char *exp
, int from_tty
)
1022 struct minimal_symbol
*msymbol
;
1026 CORE_ADDR load_addr
;
1027 int is_a_field_of_this
; /* C++: lookup_symbol sets this to nonzero
1028 if exp is a field of `this'. */
1031 error (_("Argument required."));
1033 sym
= lookup_symbol (exp
, get_selected_block (0), VAR_DOMAIN
,
1034 &is_a_field_of_this
, (struct symtab
**) NULL
);
1037 if (is_a_field_of_this
)
1039 printf_filtered ("Symbol \"");
1040 fprintf_symbol_filtered (gdb_stdout
, exp
,
1041 current_language
->la_language
, DMGL_ANSI
);
1042 printf_filtered ("\" is a field of the local class variable ");
1043 if (current_language
->la_language
== language_objc
)
1044 printf_filtered ("`self'\n"); /* ObjC equivalent of "this" */
1046 printf_filtered ("`this'\n");
1050 msymbol
= lookup_minimal_symbol (exp
, NULL
, NULL
);
1052 if (msymbol
!= NULL
)
1054 load_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
1056 printf_filtered ("Symbol \"");
1057 fprintf_symbol_filtered (gdb_stdout
, exp
,
1058 current_language
->la_language
, DMGL_ANSI
);
1059 printf_filtered ("\" is at ");
1060 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1061 printf_filtered (" in a file compiled without debugging");
1062 section
= SYMBOL_BFD_SECTION (msymbol
);
1063 if (section_is_overlay (section
))
1065 load_addr
= overlay_unmapped_address (load_addr
, section
);
1066 printf_filtered (",\n -- loaded at ");
1067 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1068 printf_filtered (" in overlay section %s", section
->name
);
1070 printf_filtered (".\n");
1073 error (_("No symbol \"%s\" in current context."), exp
);
1077 printf_filtered ("Symbol \"");
1078 fprintf_symbol_filtered (gdb_stdout
, DEPRECATED_SYMBOL_NAME (sym
),
1079 current_language
->la_language
, DMGL_ANSI
);
1080 printf_filtered ("\" is ");
1081 val
= SYMBOL_VALUE (sym
);
1082 basereg
= SYMBOL_BASEREG (sym
);
1083 section
= SYMBOL_BFD_SECTION (sym
);
1085 switch (SYMBOL_CLASS (sym
))
1088 case LOC_CONST_BYTES
:
1089 printf_filtered ("constant");
1093 printf_filtered ("a label at address ");
1094 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1096 if (section_is_overlay (section
))
1098 load_addr
= overlay_unmapped_address (load_addr
, section
);
1099 printf_filtered (",\n -- loaded at ");
1100 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1101 printf_filtered (" in overlay section %s", section
->name
);
1106 case LOC_COMPUTED_ARG
:
1107 /* FIXME: cagney/2004-01-26: It should be possible to
1108 unconditionally call the SYMBOL_OPS method when available.
1109 Unfortunately DWARF 2 stores the frame-base (instead of the
1110 function) location in a function's symbol. Oops! For the
1111 moment enable this when/where applicable. */
1112 SYMBOL_OPS (sym
)->describe_location (sym
, gdb_stdout
);
1116 printf_filtered (_("a variable in register %s"),
1117 gdbarch_register_name (current_gdbarch
, val
));
1121 printf_filtered (_("static storage at address "));
1122 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1124 if (section_is_overlay (section
))
1126 load_addr
= overlay_unmapped_address (load_addr
, section
);
1127 printf_filtered (_(",\n -- loaded at "));
1128 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1129 printf_filtered (_(" in overlay section %s"), section
->name
);
1134 printf_filtered (_("external global (indirect addressing), at address *("));
1135 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1137 printf_filtered (")");
1138 if (section_is_overlay (section
))
1140 load_addr
= overlay_unmapped_address (load_addr
, section
);
1141 printf_filtered (_(",\n -- loaded at "));
1142 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1143 printf_filtered (_(" in overlay section %s"), section
->name
);
1148 printf_filtered (_("an argument in register %s"),
1149 gdbarch_register_name (current_gdbarch
, val
));
1152 case LOC_REGPARM_ADDR
:
1153 printf_filtered (_("address of an argument in register %s"),
1154 gdbarch_register_name (current_gdbarch
, val
));
1158 printf_filtered (_("an argument at offset %ld"), val
);
1162 printf_filtered (_("an argument at frame offset %ld"), val
);
1166 printf_filtered (_("a local variable at frame offset %ld"), val
);
1170 printf_filtered (_("a reference argument at offset %ld"), val
);
1174 printf_filtered (_("a variable at offset %ld from register %s"),
1175 val
, gdbarch_register_name (current_gdbarch
, basereg
));
1178 case LOC_BASEREG_ARG
:
1179 printf_filtered (_("an argument at offset %ld from register %s"),
1180 val
, gdbarch_register_name (current_gdbarch
, basereg
));
1184 printf_filtered (_("a typedef"));
1188 printf_filtered (_("a function at address "));
1189 load_addr
= BLOCK_START (SYMBOL_BLOCK_VALUE (sym
));
1190 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1191 if (section_is_overlay (section
))
1193 load_addr
= overlay_unmapped_address (load_addr
, section
);
1194 printf_filtered (_(",\n -- loaded at "));
1195 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1196 printf_filtered (_(" in overlay section %s"), section
->name
);
1200 case LOC_UNRESOLVED
:
1202 struct minimal_symbol
*msym
;
1204 msym
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (sym
), NULL
, NULL
);
1206 printf_filtered ("unresolved");
1209 section
= SYMBOL_BFD_SECTION (msym
);
1210 printf_filtered (_("static storage at address "));
1211 load_addr
= SYMBOL_VALUE_ADDRESS (msym
);
1212 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1213 if (section_is_overlay (section
))
1215 load_addr
= overlay_unmapped_address (load_addr
, section
);
1216 printf_filtered (_(",\n -- loaded at "));
1217 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1218 printf_filtered (_(" in overlay section %s"), section
->name
);
1224 case LOC_HP_THREAD_LOCAL_STATIC
:
1225 printf_filtered (_("\
1226 a thread-local variable at offset %ld from the thread base register %s"),
1227 val
, gdbarch_register_name (current_gdbarch
, basereg
));
1230 case LOC_OPTIMIZED_OUT
:
1231 printf_filtered (_("optimized out"));
1235 printf_filtered (_("of unknown (botched) type"));
1238 printf_filtered (".\n");
1243 x_command (char *exp
, int from_tty
)
1245 struct expression
*expr
;
1246 struct format_data fmt
;
1247 struct cleanup
*old_chain
;
1250 fmt
.format
= last_format
;
1251 fmt
.size
= last_size
;
1254 if (exp
&& *exp
== '/')
1257 fmt
= decode_format (&exp
, last_format
, last_size
);
1260 /* If we have an expression, evaluate it and use it as the address. */
1262 if (exp
!= 0 && *exp
!= 0)
1264 expr
= parse_expression (exp
);
1265 /* Cause expression not to be there any more if this command is
1266 repeated with Newline. But don't clobber a user-defined
1267 command's definition. */
1270 old_chain
= make_cleanup (free_current_contents
, &expr
);
1271 val
= evaluate_expression (expr
);
1272 if (TYPE_CODE (value_type (val
)) == TYPE_CODE_REF
)
1273 val
= value_ind (val
);
1274 /* In rvalue contexts, such as this, functions are coerced into
1275 pointers to functions. This makes "x/i main" work. */
1276 if (/* last_format == 'i' && */
1277 TYPE_CODE (value_type (val
)) == TYPE_CODE_FUNC
1278 && VALUE_LVAL (val
) == lval_memory
)
1279 next_address
= VALUE_ADDRESS (val
);
1281 next_address
= value_as_address (val
);
1282 do_cleanups (old_chain
);
1285 do_examine (fmt
, next_address
);
1287 /* If the examine succeeds, we remember its size and format for next
1289 last_size
= fmt
.size
;
1290 last_format
= fmt
.format
;
1292 /* Set a couple of internal variables if appropriate. */
1293 if (last_examine_value
)
1295 /* Make last address examined available to the user as $_. Use
1296 the correct pointer type. */
1297 struct type
*pointer_type
1298 = lookup_pointer_type (value_type (last_examine_value
));
1299 set_internalvar (lookup_internalvar ("_"),
1300 value_from_pointer (pointer_type
,
1301 last_examine_address
));
1303 /* Make contents of last address examined available to the user
1304 as $__. If the last value has not been fetched from memory
1305 then don't fetch it now; instead mark it by voiding the $__
1307 if (value_lazy (last_examine_value
))
1308 set_internalvar (lookup_internalvar ("__"),
1309 allocate_value (builtin_type_void
));
1311 set_internalvar (lookup_internalvar ("__"), last_examine_value
);
1316 /* Add an expression to the auto-display chain.
1317 Specify the expression. */
1320 display_command (char *exp
, int from_tty
)
1322 struct format_data fmt
;
1323 struct expression
*expr
;
1324 struct display
*new;
1328 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1330 if (tui_active
&& exp
!= NULL
&& *exp
== '$')
1331 display_it
= (tui_set_layout_for_display_command (exp
) == TUI_FAILURE
);
1345 fmt
= decode_format (&exp
, 0, 0);
1346 if (fmt
.size
&& fmt
.format
== 0)
1348 if (fmt
.format
== 'i' || fmt
.format
== 's')
1358 innermost_block
= 0;
1359 expr
= parse_expression (exp
);
1361 new = (struct display
*) xmalloc (sizeof (struct display
));
1364 new->block
= innermost_block
;
1365 new->next
= display_chain
;
1366 new->number
= ++display_number
;
1369 display_chain
= new;
1371 if (from_tty
&& target_has_execution
)
1372 do_one_display (new);
1379 free_display (struct display
*d
)
1385 /* Clear out the display_chain. Done when new symtabs are loaded,
1386 since this invalidates the types stored in many expressions. */
1389 clear_displays (void)
1393 while ((d
= display_chain
) != NULL
)
1396 display_chain
= d
->next
;
1401 /* Delete the auto-display number NUM. */
1404 delete_display (int num
)
1406 struct display
*d1
, *d
;
1409 error (_("No display number %d."), num
);
1411 if (display_chain
->number
== num
)
1414 display_chain
= d1
->next
;
1418 for (d
= display_chain
;; d
= d
->next
)
1421 error (_("No display number %d."), num
);
1422 if (d
->next
->number
== num
)
1432 /* Delete some values from the auto-display chain.
1433 Specify the element numbers. */
1436 undisplay_command (char *args
, int from_tty
)
1444 if (query ("Delete all auto-display expressions? "))
1453 while (*p1
>= '0' && *p1
<= '9')
1455 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1456 error (_("Arguments must be display numbers."));
1460 delete_display (num
);
1463 while (*p
== ' ' || *p
== '\t')
1469 /* Display a single auto-display.
1470 Do nothing if the display cannot be printed in the current context,
1471 or if the display is disabled. */
1474 do_one_display (struct display
*d
)
1476 int within_current_scope
;
1478 if (d
->enabled_p
== 0)
1482 within_current_scope
= contained_in (get_selected_block (0), d
->block
);
1484 within_current_scope
= 1;
1485 if (!within_current_scope
)
1488 current_display_number
= d
->number
;
1490 annotate_display_begin ();
1491 printf_filtered ("%d", d
->number
);
1492 annotate_display_number_end ();
1493 printf_filtered (": ");
1499 annotate_display_format ();
1501 printf_filtered ("x/");
1502 if (d
->format
.count
!= 1)
1503 printf_filtered ("%d", d
->format
.count
);
1504 printf_filtered ("%c", d
->format
.format
);
1505 if (d
->format
.format
!= 'i' && d
->format
.format
!= 's')
1506 printf_filtered ("%c", d
->format
.size
);
1507 printf_filtered (" ");
1509 annotate_display_expression ();
1511 print_expression (d
->exp
, gdb_stdout
);
1512 annotate_display_expression_end ();
1514 if (d
->format
.count
!= 1)
1515 printf_filtered ("\n");
1517 printf_filtered (" ");
1519 val
= evaluate_expression (d
->exp
);
1520 addr
= value_as_address (val
);
1521 if (d
->format
.format
== 'i')
1522 addr
= gdbarch_addr_bits_remove (current_gdbarch
, addr
);
1524 annotate_display_value ();
1526 do_examine (d
->format
, addr
);
1530 annotate_display_format ();
1532 if (d
->format
.format
)
1533 printf_filtered ("/%c ", d
->format
.format
);
1535 annotate_display_expression ();
1537 print_expression (d
->exp
, gdb_stdout
);
1538 annotate_display_expression_end ();
1540 printf_filtered (" = ");
1542 annotate_display_expression ();
1544 print_formatted (evaluate_expression (d
->exp
),
1545 d
->format
.format
, d
->format
.size
, gdb_stdout
);
1546 printf_filtered ("\n");
1549 annotate_display_end ();
1551 gdb_flush (gdb_stdout
);
1552 current_display_number
= -1;
1555 /* Display all of the values on the auto-display chain which can be
1556 evaluated in the current scope. */
1563 for (d
= display_chain
; d
; d
= d
->next
)
1567 /* Delete the auto-display which we were in the process of displaying.
1568 This is done when there is an error or a signal. */
1571 disable_display (int num
)
1575 for (d
= display_chain
; d
; d
= d
->next
)
1576 if (d
->number
== num
)
1581 printf_unfiltered (_("No display number %d.\n"), num
);
1585 disable_current_display (void)
1587 if (current_display_number
>= 0)
1589 disable_display (current_display_number
);
1590 fprintf_unfiltered (gdb_stderr
, _("\
1591 Disabling display %d to avoid infinite recursion.\n"),
1592 current_display_number
);
1594 current_display_number
= -1;
1598 display_info (char *ignore
, int from_tty
)
1603 printf_unfiltered (_("There are no auto-display expressions now.\n"));
1605 printf_filtered (_("Auto-display expressions now in effect:\n\
1606 Num Enb Expression\n"));
1608 for (d
= display_chain
; d
; d
= d
->next
)
1610 printf_filtered ("%d: %c ", d
->number
, "ny"[(int) d
->enabled_p
]);
1612 printf_filtered ("/%d%c%c ", d
->format
.count
, d
->format
.size
,
1614 else if (d
->format
.format
)
1615 printf_filtered ("/%c ", d
->format
.format
);
1616 print_expression (d
->exp
, gdb_stdout
);
1617 if (d
->block
&& !contained_in (get_selected_block (0), d
->block
))
1618 printf_filtered (_(" (cannot be evaluated in the current context)"));
1619 printf_filtered ("\n");
1620 gdb_flush (gdb_stdout
);
1625 enable_display (char *args
, int from_tty
)
1634 for (d
= display_chain
; d
; d
= d
->next
)
1641 while (*p1
>= '0' && *p1
<= '9')
1643 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1644 error (_("Arguments must be display numbers."));
1648 for (d
= display_chain
; d
; d
= d
->next
)
1649 if (d
->number
== num
)
1654 printf_unfiltered (_("No display number %d.\n"), num
);
1657 while (*p
== ' ' || *p
== '\t')
1663 disable_display_command (char *args
, int from_tty
)
1671 for (d
= display_chain
; d
; d
= d
->next
)
1678 while (*p1
>= '0' && *p1
<= '9')
1680 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1681 error (_("Arguments must be display numbers."));
1683 disable_display (atoi (p
));
1686 while (*p
== ' ' || *p
== '\t')
1692 /* Print the value in stack frame FRAME of a variable specified by a
1696 print_variable_value (struct symbol
*var
, struct frame_info
*frame
,
1697 struct ui_file
*stream
)
1699 struct value
*val
= read_var_value (var
, frame
);
1701 value_print (val
, stream
, 0, Val_pretty_default
);
1705 printf_command (char *arg
, int from_tty
)
1709 char *string
= NULL
;
1710 struct value
**val_args
;
1712 char *current_substring
;
1714 int allocated_args
= 20;
1715 struct cleanup
*old_cleanups
;
1717 val_args
= xmalloc (allocated_args
* sizeof (struct value
*));
1718 old_cleanups
= make_cleanup (free_current_contents
, &val_args
);
1721 error_no_arg (_("format-control string and values to print"));
1723 /* Skip white space before format string */
1724 while (*s
== ' ' || *s
== '\t')
1727 /* A format string should follow, enveloped in double quotes. */
1729 error (_("Bad format string, missing '\"'."));
1731 /* Parse the format-control string and copy it into the string STRING,
1732 processing some kinds of escape sequence. */
1734 f
= string
= (char *) alloca (strlen (s
) + 1);
1742 error (_("Bad format string, non-terminated '\"'."));
1775 /* ??? TODO: handle other escape sequences */
1776 error (_("Unrecognized escape character \\%c in format string."),
1786 /* Skip over " and following space and comma. */
1789 while (*s
== ' ' || *s
== '\t')
1792 if (*s
!= ',' && *s
!= 0)
1793 error (_("Invalid argument syntax"));
1797 while (*s
== ' ' || *s
== '\t')
1800 /* Need extra space for the '\0's. Doubling the size is sufficient. */
1801 substrings
= alloca (strlen (string
) * 2);
1802 current_substring
= substrings
;
1805 /* Now scan the string for %-specs and see what kinds of args they want.
1806 argclass[I] classifies the %-specs so we can give printf_filtered
1807 something of the right size. */
1811 int_arg
, long_arg
, long_long_arg
, ptr_arg
, string_arg
,
1812 double_arg
, long_double_arg
1814 enum argclass
*argclass
;
1815 enum argclass this_argclass
;
1820 argclass
= (enum argclass
*) alloca (strlen (s
) * sizeof *argclass
);
1827 int seen_hash
= 0, seen_zero
= 0, lcount
= 0, seen_prec
= 0;
1828 int seen_space
= 0, seen_plus
= 0;
1829 int seen_big_l
= 0, seen_h
= 0;
1832 /* Check the validity of the format specifier, and work
1833 out what argument it expects. We only accept C89
1834 format strings, with the exception of long long (which
1835 we autoconf for). */
1837 /* Skip over "%%". */
1844 /* The first part of a format specifier is a set of flag
1846 while (strchr ("0-+ #", *f
))
1859 /* The next part of a format specifier is a width. */
1860 while (strchr ("0123456789", *f
))
1863 /* The next part of a format specifier is a precision. */
1868 while (strchr ("0123456789", *f
))
1872 /* The next part of a format specifier is a length modifier. */
1904 if (seen_space
|| seen_plus
)
1911 this_argclass
= int_arg
;
1912 else if (lcount
== 1)
1913 this_argclass
= long_arg
;
1915 this_argclass
= long_long_arg
;
1922 this_argclass
= int_arg
;
1923 if (lcount
|| seen_h
|| seen_big_l
)
1925 if (seen_prec
|| seen_zero
|| seen_space
|| seen_plus
)
1930 this_argclass
= ptr_arg
;
1931 if (lcount
|| seen_h
|| seen_big_l
)
1933 if (seen_prec
|| seen_zero
|| seen_space
|| seen_plus
)
1938 this_argclass
= string_arg
;
1939 if (lcount
|| seen_h
|| seen_big_l
)
1941 if (seen_zero
|| seen_space
|| seen_plus
)
1951 this_argclass
= long_double_arg
;
1953 this_argclass
= double_arg
;
1955 if (lcount
|| seen_h
)
1960 error (_("`*' not supported for precision or width in printf"));
1963 error (_("Format specifier `n' not supported in printf"));
1966 error (_("Incomplete format specifier at end of format string"));
1969 error (_("Unrecognized format specifier '%c' in printf"), *f
);
1973 error (_("Inappropriate modifiers to format specifier '%c' in printf"),
1977 strncpy (current_substring
, last_arg
, f
- last_arg
);
1978 current_substring
+= f
- last_arg
;
1979 *current_substring
++ = '\0';
1981 argclass
[nargs_wanted
++] = this_argclass
;
1984 /* Now, parse all arguments and evaluate them.
1985 Store the VALUEs in VAL_ARGS. */
1990 if (nargs
== allocated_args
)
1991 val_args
= (struct value
**) xrealloc ((char *) val_args
,
1992 (allocated_args
*= 2)
1993 * sizeof (struct value
*));
1995 val_args
[nargs
] = parse_to_comma_and_eval (&s1
);
1997 /* If format string wants a float, unchecked-convert the value to
1998 floating point of the same size */
2000 if (argclass
[nargs
] == double_arg
)
2002 struct type
*type
= value_type (val_args
[nargs
]);
2003 if (TYPE_LENGTH (type
) == sizeof (float))
2004 deprecated_set_value_type (val_args
[nargs
], builtin_type_float
);
2005 if (TYPE_LENGTH (type
) == sizeof (double))
2006 deprecated_set_value_type (val_args
[nargs
], builtin_type_double
);
2014 if (nargs
!= nargs_wanted
)
2015 error (_("Wrong number of arguments for specified format-string"));
2017 /* Now actually print them. */
2018 current_substring
= substrings
;
2019 for (i
= 0; i
< nargs
; i
++)
2021 switch (argclass
[i
])
2028 tem
= value_as_address (val_args
[i
]);
2030 /* This is a %s argument. Find the length of the string. */
2035 read_memory (tem
+ j
, &c
, 1);
2040 /* Copy the string contents into a string inside GDB. */
2041 str
= (gdb_byte
*) alloca (j
+ 1);
2043 read_memory (tem
, str
, j
);
2046 printf_filtered (current_substring
, (char *) str
);
2051 double val
= value_as_double (val_args
[i
]);
2052 printf_filtered (current_substring
, val
);
2055 case long_double_arg
:
2056 #ifdef HAVE_LONG_DOUBLE
2058 long double val
= value_as_double (val_args
[i
]);
2059 printf_filtered (current_substring
, val
);
2063 error (_("long double not supported in printf"));
2066 #if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG)
2068 long long val
= value_as_long (val_args
[i
]);
2069 printf_filtered (current_substring
, val
);
2073 error (_("long long not supported in printf"));
2077 int val
= value_as_long (val_args
[i
]);
2078 printf_filtered (current_substring
, val
);
2083 long val
= value_as_long (val_args
[i
]);
2084 printf_filtered (current_substring
, val
);
2088 internal_error (__FILE__
, __LINE__
,
2089 _("failed internal consitency check"));
2091 /* Skip to the next substring. */
2092 current_substring
+= strlen (current_substring
) + 1;
2094 /* Print the portion of the format string after the last argument. */
2095 puts_filtered (last_arg
);
2097 do_cleanups (old_cleanups
);
2101 _initialize_printcmd (void)
2103 struct cmd_list_element
*c
;
2105 current_display_number
= -1;
2107 add_info ("address", address_info
,
2108 _("Describe where symbol SYM is stored."));
2110 add_info ("symbol", sym_info
, _("\
2111 Describe what symbol is at location ADDR.\n\
2112 Only for symbols with fixed locations (global or static scope)."));
2114 add_com ("x", class_vars
, x_command
, _("\
2115 Examine memory: x/FMT ADDRESS.\n\
2116 ADDRESS is an expression for the memory address to examine.\n\
2117 FMT is a repeat count followed by a format letter and a size letter.\n\
2118 Format letters are o(octal), x(hex), d(decimal), u(unsigned decimal),\n\
2119 t(binary), f(float), a(address), i(instruction), c(char) and s(string).\n\
2120 Size letters are b(byte), h(halfword), w(word), g(giant, 8 bytes).\n\
2121 The specified number of objects of the specified size are printed\n\
2122 according to the format.\n\n\
2123 Defaults for format and size letters are those previously used.\n\
2124 Default count is 1. Default address is following last thing printed\n\
2125 with this command or \"print\"."));
2128 add_com ("whereis", class_vars
, whereis_command
,
2129 _("Print line number and file of definition of variable."));
2132 add_info ("display", display_info
, _("\
2133 Expressions to display when program stops, with code numbers."));
2135 add_cmd ("undisplay", class_vars
, undisplay_command
, _("\
2136 Cancel some expressions to be displayed when program stops.\n\
2137 Arguments are the code numbers of the expressions to stop displaying.\n\
2138 No argument means cancel all automatic-display expressions.\n\
2139 \"delete display\" has the same effect as this command.\n\
2140 Do \"info display\" to see current list of code numbers."),
2143 add_com ("display", class_vars
, display_command
, _("\
2144 Print value of expression EXP each time the program stops.\n\
2145 /FMT may be used before EXP as in the \"print\" command.\n\
2146 /FMT \"i\" or \"s\" or including a size-letter is allowed,\n\
2147 as in the \"x\" command, and then EXP is used to get the address to examine\n\
2148 and examining is done as in the \"x\" command.\n\n\
2149 With no argument, display all currently requested auto-display expressions.\n\
2150 Use \"undisplay\" to cancel display requests previously made."));
2152 add_cmd ("display", class_vars
, enable_display
, _("\
2153 Enable some expressions to be displayed when program stops.\n\
2154 Arguments are the code numbers of the expressions to resume displaying.\n\
2155 No argument means enable all automatic-display expressions.\n\
2156 Do \"info display\" to see current list of code numbers."), &enablelist
);
2158 add_cmd ("display", class_vars
, disable_display_command
, _("\
2159 Disable some expressions to be displayed when program stops.\n\
2160 Arguments are the code numbers of the expressions to stop displaying.\n\
2161 No argument means disable all automatic-display expressions.\n\
2162 Do \"info display\" to see current list of code numbers."), &disablelist
);
2164 add_cmd ("display", class_vars
, undisplay_command
, _("\
2165 Cancel some expressions to be displayed when program stops.\n\
2166 Arguments are the code numbers of the expressions to stop displaying.\n\
2167 No argument means cancel all automatic-display expressions.\n\
2168 Do \"info display\" to see current list of code numbers."), &deletelist
);
2170 add_com ("printf", class_vars
, printf_command
, _("\
2171 printf \"printf format string\", arg1, arg2, arg3, ..., argn\n\
2172 This is useful for formatted output in user-defined commands."));
2174 add_com ("output", class_vars
, output_command
, _("\
2175 Like \"print\" but don't put in value history and don't print newline.\n\
2176 This is useful in user-defined commands."));
2178 add_prefix_cmd ("set", class_vars
, set_command
, _("\
2179 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2180 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2181 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2182 with $), a register (a few standard names starting with $), or an actual\n\
2183 variable in the program being debugged. EXP is any valid expression.\n\
2184 Use \"set variable\" for variables with names identical to set subcommands.\n\
2186 With a subcommand, this command modifies parts of the gdb environment.\n\
2187 You can see these environment settings with the \"show\" command."),
2188 &setlist
, "set ", 1, &cmdlist
);
2190 add_com ("assign", class_vars
, set_command
, _("\
2191 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2192 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2193 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2194 with $), a register (a few standard names starting with $), or an actual\n\
2195 variable in the program being debugged. EXP is any valid expression.\n\
2196 Use \"set variable\" for variables with names identical to set subcommands.\n\
2197 \nWith a subcommand, this command modifies parts of the gdb environment.\n\
2198 You can see these environment settings with the \"show\" command."));
2200 /* "call" is the same as "set", but handy for dbx users to call fns. */
2201 c
= add_com ("call", class_vars
, call_command
, _("\
2202 Call a function in the program.\n\
2203 The argument is the function name and arguments, in the notation of the\n\
2204 current working language. The result is printed and saved in the value\n\
2205 history, if it is not void."));
2206 set_cmd_completer (c
, location_completer
);
2208 add_cmd ("variable", class_vars
, set_command
, _("\
2209 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2210 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2211 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2212 with $), a register (a few standard names starting with $), or an actual\n\
2213 variable in the program being debugged. EXP is any valid expression.\n\
2214 This may usually be abbreviated to simply \"set\"."),
2217 c
= add_com ("print", class_vars
, print_command
, _("\
2218 Print value of expression EXP.\n\
2219 Variables accessible are those of the lexical environment of the selected\n\
2220 stack frame, plus all those whose scope is global or an entire file.\n\
2222 $NUM gets previous value number NUM. $ and $$ are the last two values.\n\
2223 $$NUM refers to NUM'th value back from the last one.\n\
2224 Names starting with $ refer to registers (with the values they would have\n\
2225 if the program were to return to the stack frame now selected, restoring\n\
2226 all registers saved by frames farther in) or else to debugger\n\
2227 \"convenience\" variables (any such name not a known register).\n\
2228 Use assignment expressions to give values to convenience variables.\n\
2230 {TYPE}ADREXP refers to a datum of data type TYPE, located at address ADREXP.\n\
2231 @ is a binary operator for treating consecutive data objects\n\
2232 anywhere in memory as an array. FOO@NUM gives an array whose first\n\
2233 element is FOO, whose second element is stored in the space following\n\
2234 where FOO is stored, etc. FOO must be an expression whose value\n\
2235 resides in memory.\n\
2237 EXP may be preceded with /FMT, where FMT is a format letter\n\
2238 but no count or size letter (see \"x\" command)."));
2239 set_cmd_completer (c
, location_completer
);
2240 add_com_alias ("p", "print", class_vars
, 1);
2242 c
= add_com ("inspect", class_vars
, inspect_command
, _("\
2243 Same as \"print\" command, except that if you are running in the epoch\n\
2244 environment, the value is printed in its own window."));
2245 set_cmd_completer (c
, location_completer
);
2247 add_setshow_uinteger_cmd ("max-symbolic-offset", no_class
,
2248 &max_symbolic_offset
, _("\
2249 Set the largest offset that will be printed in <symbol+1234> form."), _("\
2250 Show the largest offset that will be printed in <symbol+1234> form."), NULL
,
2252 show_max_symbolic_offset
,
2253 &setprintlist
, &showprintlist
);
2254 add_setshow_boolean_cmd ("symbol-filename", no_class
,
2255 &print_symbol_filename
, _("\
2256 Set printing of source filename and line number with <symbol>."), _("\
2257 Show printing of source filename and line number with <symbol>."), NULL
,
2259 show_print_symbol_filename
,
2260 &setprintlist
, &showprintlist
);
2262 /* For examine/instruction a single byte quantity is specified as
2263 the data. This avoids problems with value_at_lazy() requiring a
2264 valid data type (and rejecting VOID). */
2265 examine_i_type
= init_type (TYPE_CODE_INT
, 1, 0, "examine_i_type", NULL
);
2267 examine_b_type
= init_type (TYPE_CODE_INT
, 1, 0, "examine_b_type", NULL
);
2268 examine_h_type
= init_type (TYPE_CODE_INT
, 2, 0, "examine_h_type", NULL
);
2269 examine_w_type
= init_type (TYPE_CODE_INT
, 4, 0, "examine_w_type", NULL
);
2270 examine_g_type
= init_type (TYPE_CODE_INT
, 8, 0, "examine_g_type", NULL
);