1 /* Print values for GNU debugger GDB.
3 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
4 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
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 (TARGET_PTR_BIT
== 64)
216 val
.size
= osize
? 'g' : osize
;
217 else if (TARGET_PTR_BIT
== 32)
218 val
.size
= osize
? 'w' : osize
;
219 else if (TARGET_PTR_BIT
== 16)
220 val
.size
= osize
? 'h' : osize
;
222 /* Bad value for TARGET_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 TARGET_ADDR_BIT/TARGET_CHAR_BIT, not TYPE_LENGTH (type). */
350 if (TYPE_CODE (type
) == TYPE_CODE_PTR
)
351 len
= TARGET_ADDR_BIT
/ 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
= TARGET_ADDR_BIT
;
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 posibility of a fetched value not
790 being used, its retreval 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 sect
= osect
->the_bfd_section
;
987 sect_addr
= overlay_mapped_address (addr
, sect
);
989 if (osect
->addr
<= sect_addr
&& sect_addr
< osect
->endaddr
&&
990 (msymbol
= lookup_minimal_symbol_by_pc_section (sect_addr
, sect
)))
993 offset
= sect_addr
- SYMBOL_VALUE_ADDRESS (msymbol
);
995 printf_filtered ("%s + %u in ",
996 SYMBOL_PRINT_NAME (msymbol
), offset
);
998 printf_filtered ("%s in ",
999 SYMBOL_PRINT_NAME (msymbol
));
1000 if (pc_in_unmapped_range (addr
, sect
))
1001 printf_filtered (_("load address range of "));
1002 if (section_is_overlay (sect
))
1003 printf_filtered (_("%s overlay "),
1004 section_is_mapped (sect
) ? "mapped" : "unmapped");
1005 printf_filtered (_("section %s"), sect
->name
);
1006 printf_filtered ("\n");
1010 printf_filtered (_("No symbol matches %s.\n"), arg
);
1014 address_info (char *exp
, int from_tty
)
1017 struct minimal_symbol
*msymbol
;
1021 CORE_ADDR load_addr
;
1022 int is_a_field_of_this
; /* C++: lookup_symbol sets this to nonzero
1023 if exp is a field of `this'. */
1026 error (_("Argument required."));
1028 sym
= lookup_symbol (exp
, get_selected_block (0), VAR_DOMAIN
,
1029 &is_a_field_of_this
, (struct symtab
**) NULL
);
1032 if (is_a_field_of_this
)
1034 printf_filtered ("Symbol \"");
1035 fprintf_symbol_filtered (gdb_stdout
, exp
,
1036 current_language
->la_language
, DMGL_ANSI
);
1037 printf_filtered ("\" is a field of the local class variable ");
1038 if (current_language
->la_language
== language_objc
)
1039 printf_filtered ("`self'\n"); /* ObjC equivalent of "this" */
1041 printf_filtered ("`this'\n");
1045 msymbol
= lookup_minimal_symbol (exp
, NULL
, NULL
);
1047 if (msymbol
!= NULL
)
1049 load_addr
= SYMBOL_VALUE_ADDRESS (msymbol
);
1051 printf_filtered ("Symbol \"");
1052 fprintf_symbol_filtered (gdb_stdout
, exp
,
1053 current_language
->la_language
, DMGL_ANSI
);
1054 printf_filtered ("\" is at ");
1055 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1056 printf_filtered (" in a file compiled without debugging");
1057 section
= SYMBOL_BFD_SECTION (msymbol
);
1058 if (section_is_overlay (section
))
1060 load_addr
= overlay_unmapped_address (load_addr
, section
);
1061 printf_filtered (",\n -- loaded at ");
1062 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1063 printf_filtered (" in overlay section %s", section
->name
);
1065 printf_filtered (".\n");
1068 error (_("No symbol \"%s\" in current context."), exp
);
1072 printf_filtered ("Symbol \"");
1073 fprintf_symbol_filtered (gdb_stdout
, DEPRECATED_SYMBOL_NAME (sym
),
1074 current_language
->la_language
, DMGL_ANSI
);
1075 printf_filtered ("\" is ");
1076 val
= SYMBOL_VALUE (sym
);
1077 basereg
= SYMBOL_BASEREG (sym
);
1078 section
= SYMBOL_BFD_SECTION (sym
);
1080 switch (SYMBOL_CLASS (sym
))
1083 case LOC_CONST_BYTES
:
1084 printf_filtered ("constant");
1088 printf_filtered ("a label at address ");
1089 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1091 if (section_is_overlay (section
))
1093 load_addr
= overlay_unmapped_address (load_addr
, section
);
1094 printf_filtered (",\n -- loaded at ");
1095 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1096 printf_filtered (" in overlay section %s", section
->name
);
1101 case LOC_COMPUTED_ARG
:
1102 /* FIXME: cagney/2004-01-26: It should be possible to
1103 unconditionally call the SYMBOL_OPS method when available.
1104 Unfortunately DWARF 2 stores the frame-base (instead of the
1105 function) location in a function's symbol. Oops! For the
1106 moment enable this when/where applicable. */
1107 SYMBOL_OPS (sym
)->describe_location (sym
, gdb_stdout
);
1111 printf_filtered (_("a variable in register %s"), REGISTER_NAME (val
));
1115 printf_filtered (_("static storage at address "));
1116 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1118 if (section_is_overlay (section
))
1120 load_addr
= overlay_unmapped_address (load_addr
, section
);
1121 printf_filtered (_(",\n -- loaded at "));
1122 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1123 printf_filtered (_(" in overlay section %s"), section
->name
);
1128 printf_filtered (_("external global (indirect addressing), at address *("));
1129 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1131 printf_filtered (")");
1132 if (section_is_overlay (section
))
1134 load_addr
= overlay_unmapped_address (load_addr
, section
);
1135 printf_filtered (_(",\n -- loaded at "));
1136 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1137 printf_filtered (_(" in overlay section %s"), section
->name
);
1142 printf_filtered (_("an argument in register %s"), REGISTER_NAME (val
));
1145 case LOC_REGPARM_ADDR
:
1146 printf_filtered (_("address of an argument in register %s"),
1147 REGISTER_NAME (val
));
1151 printf_filtered (_("an argument at offset %ld"), val
);
1155 printf_filtered (_("an argument at frame offset %ld"), val
);
1159 printf_filtered (_("a local variable at frame offset %ld"), val
);
1163 printf_filtered (_("a reference argument at offset %ld"), val
);
1167 printf_filtered (_("a variable at offset %ld from register %s"),
1168 val
, REGISTER_NAME (basereg
));
1171 case LOC_BASEREG_ARG
:
1172 printf_filtered (_("an argument at offset %ld from register %s"),
1173 val
, REGISTER_NAME (basereg
));
1177 printf_filtered (_("a typedef"));
1181 printf_filtered (_("a function at address "));
1182 load_addr
= BLOCK_START (SYMBOL_BLOCK_VALUE (sym
));
1183 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1184 if (section_is_overlay (section
))
1186 load_addr
= overlay_unmapped_address (load_addr
, section
);
1187 printf_filtered (_(",\n -- loaded at "));
1188 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1189 printf_filtered (_(" in overlay section %s"), section
->name
);
1193 case LOC_UNRESOLVED
:
1195 struct minimal_symbol
*msym
;
1197 msym
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (sym
), NULL
, NULL
);
1199 printf_filtered ("unresolved");
1202 section
= SYMBOL_BFD_SECTION (msym
);
1203 printf_filtered (_("static storage at address "));
1204 load_addr
= SYMBOL_VALUE_ADDRESS (msym
);
1205 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1206 if (section_is_overlay (section
))
1208 load_addr
= overlay_unmapped_address (load_addr
, section
);
1209 printf_filtered (_(",\n -- loaded at "));
1210 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1211 printf_filtered (_(" in overlay section %s"), section
->name
);
1217 case LOC_HP_THREAD_LOCAL_STATIC
:
1218 printf_filtered (_("\
1219 a thread-local variable at offset %ld from the thread base register %s"),
1220 val
, REGISTER_NAME (basereg
));
1223 case LOC_OPTIMIZED_OUT
:
1224 printf_filtered (_("optimized out"));
1228 printf_filtered (_("of unknown (botched) type"));
1231 printf_filtered (".\n");
1236 x_command (char *exp
, int from_tty
)
1238 struct expression
*expr
;
1239 struct format_data fmt
;
1240 struct cleanup
*old_chain
;
1243 fmt
.format
= last_format
;
1244 fmt
.size
= last_size
;
1247 if (exp
&& *exp
== '/')
1250 fmt
= decode_format (&exp
, last_format
, last_size
);
1253 /* If we have an expression, evaluate it and use it as the address. */
1255 if (exp
!= 0 && *exp
!= 0)
1257 expr
= parse_expression (exp
);
1258 /* Cause expression not to be there any more if this command is
1259 repeated with Newline. But don't clobber a user-defined
1260 command's definition. */
1263 old_chain
= make_cleanup (free_current_contents
, &expr
);
1264 val
= evaluate_expression (expr
);
1265 if (TYPE_CODE (value_type (val
)) == TYPE_CODE_REF
)
1266 val
= value_ind (val
);
1267 /* In rvalue contexts, such as this, functions are coerced into
1268 pointers to functions. This makes "x/i main" work. */
1269 if (/* last_format == 'i' && */
1270 TYPE_CODE (value_type (val
)) == TYPE_CODE_FUNC
1271 && VALUE_LVAL (val
) == lval_memory
)
1272 next_address
= VALUE_ADDRESS (val
);
1274 next_address
= value_as_address (val
);
1275 do_cleanups (old_chain
);
1278 do_examine (fmt
, next_address
);
1280 /* If the examine succeeds, we remember its size and format for next
1282 last_size
= fmt
.size
;
1283 last_format
= fmt
.format
;
1285 /* Set a couple of internal variables if appropriate. */
1286 if (last_examine_value
)
1288 /* Make last address examined available to the user as $_. Use
1289 the correct pointer type. */
1290 struct type
*pointer_type
1291 = lookup_pointer_type (value_type (last_examine_value
));
1292 set_internalvar (lookup_internalvar ("_"),
1293 value_from_pointer (pointer_type
,
1294 last_examine_address
));
1296 /* Make contents of last address examined available to the user
1297 as $__. If the last value has not been fetched from memory
1298 then don't fetch it now; instead mark it by voiding the $__
1300 if (value_lazy (last_examine_value
))
1301 set_internalvar (lookup_internalvar ("__"),
1302 allocate_value (builtin_type_void
));
1304 set_internalvar (lookup_internalvar ("__"), last_examine_value
);
1309 /* Add an expression to the auto-display chain.
1310 Specify the expression. */
1313 display_command (char *exp
, int from_tty
)
1315 struct format_data fmt
;
1316 struct expression
*expr
;
1317 struct display
*new;
1321 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1323 if (tui_active
&& exp
!= NULL
&& *exp
== '$')
1324 display_it
= (tui_set_layout_for_display_command (exp
) == TUI_FAILURE
);
1338 fmt
= decode_format (&exp
, 0, 0);
1339 if (fmt
.size
&& fmt
.format
== 0)
1341 if (fmt
.format
== 'i' || fmt
.format
== 's')
1351 innermost_block
= 0;
1352 expr
= parse_expression (exp
);
1354 new = (struct display
*) xmalloc (sizeof (struct display
));
1357 new->block
= innermost_block
;
1358 new->next
= display_chain
;
1359 new->number
= ++display_number
;
1362 display_chain
= new;
1364 if (from_tty
&& target_has_execution
)
1365 do_one_display (new);
1372 free_display (struct display
*d
)
1378 /* Clear out the display_chain. Done when new symtabs are loaded,
1379 since this invalidates the types stored in many expressions. */
1382 clear_displays (void)
1386 while ((d
= display_chain
) != NULL
)
1389 display_chain
= d
->next
;
1394 /* Delete the auto-display number NUM. */
1397 delete_display (int num
)
1399 struct display
*d1
, *d
;
1402 error (_("No display number %d."), num
);
1404 if (display_chain
->number
== num
)
1407 display_chain
= d1
->next
;
1411 for (d
= display_chain
;; d
= d
->next
)
1414 error (_("No display number %d."), num
);
1415 if (d
->next
->number
== num
)
1425 /* Delete some values from the auto-display chain.
1426 Specify the element numbers. */
1429 undisplay_command (char *args
, int from_tty
)
1437 if (query ("Delete all auto-display expressions? "))
1446 while (*p1
>= '0' && *p1
<= '9')
1448 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1449 error (_("Arguments must be display numbers."));
1453 delete_display (num
);
1456 while (*p
== ' ' || *p
== '\t')
1462 /* Display a single auto-display.
1463 Do nothing if the display cannot be printed in the current context,
1464 or if the display is disabled. */
1467 do_one_display (struct display
*d
)
1469 int within_current_scope
;
1471 if (d
->enabled_p
== 0)
1475 within_current_scope
= contained_in (get_selected_block (0), d
->block
);
1477 within_current_scope
= 1;
1478 if (!within_current_scope
)
1481 current_display_number
= d
->number
;
1483 annotate_display_begin ();
1484 printf_filtered ("%d", d
->number
);
1485 annotate_display_number_end ();
1486 printf_filtered (": ");
1492 annotate_display_format ();
1494 printf_filtered ("x/");
1495 if (d
->format
.count
!= 1)
1496 printf_filtered ("%d", d
->format
.count
);
1497 printf_filtered ("%c", d
->format
.format
);
1498 if (d
->format
.format
!= 'i' && d
->format
.format
!= 's')
1499 printf_filtered ("%c", d
->format
.size
);
1500 printf_filtered (" ");
1502 annotate_display_expression ();
1504 print_expression (d
->exp
, gdb_stdout
);
1505 annotate_display_expression_end ();
1507 if (d
->format
.count
!= 1)
1508 printf_filtered ("\n");
1510 printf_filtered (" ");
1512 val
= evaluate_expression (d
->exp
);
1513 addr
= value_as_address (val
);
1514 if (d
->format
.format
== 'i')
1515 addr
= ADDR_BITS_REMOVE (addr
);
1517 annotate_display_value ();
1519 do_examine (d
->format
, addr
);
1523 annotate_display_format ();
1525 if (d
->format
.format
)
1526 printf_filtered ("/%c ", d
->format
.format
);
1528 annotate_display_expression ();
1530 print_expression (d
->exp
, gdb_stdout
);
1531 annotate_display_expression_end ();
1533 printf_filtered (" = ");
1535 annotate_display_expression ();
1537 print_formatted (evaluate_expression (d
->exp
),
1538 d
->format
.format
, d
->format
.size
, gdb_stdout
);
1539 printf_filtered ("\n");
1542 annotate_display_end ();
1544 gdb_flush (gdb_stdout
);
1545 current_display_number
= -1;
1548 /* Display all of the values on the auto-display chain which can be
1549 evaluated in the current scope. */
1556 for (d
= display_chain
; d
; d
= d
->next
)
1560 /* Delete the auto-display which we were in the process of displaying.
1561 This is done when there is an error or a signal. */
1564 disable_display (int num
)
1568 for (d
= display_chain
; d
; d
= d
->next
)
1569 if (d
->number
== num
)
1574 printf_unfiltered (_("No display number %d.\n"), num
);
1578 disable_current_display (void)
1580 if (current_display_number
>= 0)
1582 disable_display (current_display_number
);
1583 fprintf_unfiltered (gdb_stderr
, _("\
1584 Disabling display %d to avoid infinite recursion.\n"),
1585 current_display_number
);
1587 current_display_number
= -1;
1591 display_info (char *ignore
, int from_tty
)
1596 printf_unfiltered (_("There are no auto-display expressions now.\n"));
1598 printf_filtered (_("Auto-display expressions now in effect:\n\
1599 Num Enb Expression\n"));
1601 for (d
= display_chain
; d
; d
= d
->next
)
1603 printf_filtered ("%d: %c ", d
->number
, "ny"[(int) d
->enabled_p
]);
1605 printf_filtered ("/%d%c%c ", d
->format
.count
, d
->format
.size
,
1607 else if (d
->format
.format
)
1608 printf_filtered ("/%c ", d
->format
.format
);
1609 print_expression (d
->exp
, gdb_stdout
);
1610 if (d
->block
&& !contained_in (get_selected_block (0), d
->block
))
1611 printf_filtered (_(" (cannot be evaluated in the current context)"));
1612 printf_filtered ("\n");
1613 gdb_flush (gdb_stdout
);
1618 enable_display (char *args
, int from_tty
)
1627 for (d
= display_chain
; d
; d
= d
->next
)
1634 while (*p1
>= '0' && *p1
<= '9')
1636 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1637 error (_("Arguments must be display numbers."));
1641 for (d
= display_chain
; d
; d
= d
->next
)
1642 if (d
->number
== num
)
1647 printf_unfiltered (_("No display number %d.\n"), num
);
1650 while (*p
== ' ' || *p
== '\t')
1656 disable_display_command (char *args
, int from_tty
)
1664 for (d
= display_chain
; d
; d
= d
->next
)
1671 while (*p1
>= '0' && *p1
<= '9')
1673 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1674 error (_("Arguments must be display numbers."));
1676 disable_display (atoi (p
));
1679 while (*p
== ' ' || *p
== '\t')
1685 /* Print the value in stack frame FRAME of a variable specified by a
1689 print_variable_value (struct symbol
*var
, struct frame_info
*frame
,
1690 struct ui_file
*stream
)
1692 struct value
*val
= read_var_value (var
, frame
);
1694 value_print (val
, stream
, 0, Val_pretty_default
);
1698 printf_command (char *arg
, int from_tty
)
1702 char *string
= NULL
;
1703 struct value
**val_args
;
1705 char *current_substring
;
1707 int allocated_args
= 20;
1708 struct cleanup
*old_cleanups
;
1710 val_args
= xmalloc (allocated_args
* sizeof (struct value
*));
1711 old_cleanups
= make_cleanup (free_current_contents
, &val_args
);
1714 error_no_arg (_("format-control string and values to print"));
1716 /* Skip white space before format string */
1717 while (*s
== ' ' || *s
== '\t')
1720 /* A format string should follow, enveloped in double quotes. */
1722 error (_("Bad format string, missing '\"'."));
1724 /* Parse the format-control string and copy it into the string STRING,
1725 processing some kinds of escape sequence. */
1727 f
= string
= (char *) alloca (strlen (s
) + 1);
1735 error (_("Bad format string, non-terminated '\"'."));
1768 /* ??? TODO: handle other escape sequences */
1769 error (_("Unrecognized escape character \\%c in format string."),
1779 /* Skip over " and following space and comma. */
1782 while (*s
== ' ' || *s
== '\t')
1785 if (*s
!= ',' && *s
!= 0)
1786 error (_("Invalid argument syntax"));
1790 while (*s
== ' ' || *s
== '\t')
1793 /* Need extra space for the '\0's. Doubling the size is sufficient. */
1794 substrings
= alloca (strlen (string
) * 2);
1795 current_substring
= substrings
;
1798 /* Now scan the string for %-specs and see what kinds of args they want.
1799 argclass[I] classifies the %-specs so we can give printf_filtered
1800 something of the right size. */
1804 int_arg
, long_arg
, long_long_arg
, ptr_arg
, string_arg
,
1805 double_arg
, long_double_arg
1807 enum argclass
*argclass
;
1808 enum argclass this_argclass
;
1813 argclass
= (enum argclass
*) alloca (strlen (s
) * sizeof *argclass
);
1820 int seen_hash
= 0, seen_zero
= 0, lcount
= 0, seen_prec
= 0;
1821 int seen_space
= 0, seen_plus
= 0;
1822 int seen_big_l
= 0, seen_h
= 0;
1825 /* Check the validity of the format specifier, and work
1826 out what argument it expects. We only accept C89
1827 format strings, with the exception of long long (which
1828 we autoconf for). */
1830 /* Skip over "%%". */
1837 /* The first part of a format specifier is a set of flag
1839 while (strchr ("0-+ #", *f
))
1852 /* The next part of a format specifier is a width. */
1853 while (strchr ("0123456789", *f
))
1856 /* The next part of a format specifier is a precision. */
1861 while (strchr ("0123456789", *f
))
1865 /* The next part of a format specifier is a length modifier. */
1897 if (seen_space
|| seen_plus
)
1904 this_argclass
= int_arg
;
1905 else if (lcount
== 1)
1906 this_argclass
= long_arg
;
1908 this_argclass
= long_long_arg
;
1915 this_argclass
= int_arg
;
1916 if (lcount
|| seen_h
|| seen_big_l
)
1918 if (seen_prec
|| seen_zero
|| seen_space
|| seen_plus
)
1923 this_argclass
= ptr_arg
;
1924 if (lcount
|| seen_h
|| seen_big_l
)
1926 if (seen_prec
|| seen_zero
|| seen_space
|| seen_plus
)
1931 this_argclass
= string_arg
;
1932 if (lcount
|| seen_h
|| seen_big_l
)
1934 if (seen_zero
|| seen_space
|| seen_plus
)
1944 this_argclass
= long_double_arg
;
1946 this_argclass
= double_arg
;
1948 if (lcount
|| seen_h
)
1953 error (_("`*' not supported for precision or width in printf"));
1956 error (_("Format specifier `n' not supported in printf"));
1959 error (_("Incomplete format specifier at end of format string"));
1962 error (_("Unrecognized format specifier '%c' in printf"), *f
);
1966 error (_("Inappropriate modifiers to format specifier '%c' in printf"),
1970 strncpy (current_substring
, last_arg
, f
- last_arg
);
1971 current_substring
+= f
- last_arg
;
1972 *current_substring
++ = '\0';
1974 argclass
[nargs_wanted
++] = this_argclass
;
1977 /* Now, parse all arguments and evaluate them.
1978 Store the VALUEs in VAL_ARGS. */
1983 if (nargs
== allocated_args
)
1984 val_args
= (struct value
**) xrealloc ((char *) val_args
,
1985 (allocated_args
*= 2)
1986 * sizeof (struct value
*));
1988 val_args
[nargs
] = parse_to_comma_and_eval (&s1
);
1990 /* If format string wants a float, unchecked-convert the value to
1991 floating point of the same size */
1993 if (argclass
[nargs
] == double_arg
)
1995 struct type
*type
= value_type (val_args
[nargs
]);
1996 if (TYPE_LENGTH (type
) == sizeof (float))
1997 deprecated_set_value_type (val_args
[nargs
], builtin_type_float
);
1998 if (TYPE_LENGTH (type
) == sizeof (double))
1999 deprecated_set_value_type (val_args
[nargs
], builtin_type_double
);
2007 if (nargs
!= nargs_wanted
)
2008 error (_("Wrong number of arguments for specified format-string"));
2010 /* Now actually print them. */
2011 current_substring
= substrings
;
2012 for (i
= 0; i
< nargs
; i
++)
2014 switch (argclass
[i
])
2021 tem
= value_as_address (val_args
[i
]);
2023 /* This is a %s argument. Find the length of the string. */
2028 read_memory (tem
+ j
, &c
, 1);
2033 /* Copy the string contents into a string inside GDB. */
2034 str
= (gdb_byte
*) alloca (j
+ 1);
2036 read_memory (tem
, str
, j
);
2039 printf_filtered (current_substring
, (char *) str
);
2044 double val
= value_as_double (val_args
[i
]);
2045 printf_filtered (current_substring
, val
);
2048 case long_double_arg
:
2049 #ifdef HAVE_LONG_DOUBLE
2051 long double val
= value_as_double (val_args
[i
]);
2052 printf_filtered (current_substring
, val
);
2056 error (_("long double not supported in printf"));
2059 #if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG)
2061 long long val
= value_as_long (val_args
[i
]);
2062 printf_filtered (current_substring
, val
);
2066 error (_("long long not supported in printf"));
2070 int val
= value_as_long (val_args
[i
]);
2071 printf_filtered (current_substring
, val
);
2076 long val
= value_as_long (val_args
[i
]);
2077 printf_filtered (current_substring
, val
);
2081 internal_error (__FILE__
, __LINE__
,
2082 _("failed internal consitency check"));
2084 /* Skip to the next substring. */
2085 current_substring
+= strlen (current_substring
) + 1;
2087 /* Print the portion of the format string after the last argument. */
2088 puts_filtered (last_arg
);
2090 do_cleanups (old_cleanups
);
2094 _initialize_printcmd (void)
2096 struct cmd_list_element
*c
;
2098 current_display_number
= -1;
2100 add_info ("address", address_info
,
2101 _("Describe where symbol SYM is stored."));
2103 add_info ("symbol", sym_info
, _("\
2104 Describe what symbol is at location ADDR.\n\
2105 Only for symbols with fixed locations (global or static scope)."));
2107 add_com ("x", class_vars
, x_command
, _("\
2108 Examine memory: x/FMT ADDRESS.\n\
2109 ADDRESS is an expression for the memory address to examine.\n\
2110 FMT is a repeat count followed by a format letter and a size letter.\n\
2111 Format letters are o(octal), x(hex), d(decimal), u(unsigned decimal),\n\
2112 t(binary), f(float), a(address), i(instruction), c(char) and s(string).\n\
2113 Size letters are b(byte), h(halfword), w(word), g(giant, 8 bytes).\n\
2114 The specified number of objects of the specified size are printed\n\
2115 according to the format.\n\n\
2116 Defaults for format and size letters are those previously used.\n\
2117 Default count is 1. Default address is following last thing printed\n\
2118 with this command or \"print\"."));
2121 add_com ("whereis", class_vars
, whereis_command
,
2122 _("Print line number and file of definition of variable."));
2125 add_info ("display", display_info
, _("\
2126 Expressions to display when program stops, with code numbers."));
2128 add_cmd ("undisplay", class_vars
, undisplay_command
, _("\
2129 Cancel some expressions to be displayed when program stops.\n\
2130 Arguments are the code numbers of the expressions to stop displaying.\n\
2131 No argument means cancel all automatic-display expressions.\n\
2132 \"delete display\" has the same effect as this command.\n\
2133 Do \"info display\" to see current list of code numbers."),
2136 add_com ("display", class_vars
, display_command
, _("\
2137 Print value of expression EXP each time the program stops.\n\
2138 /FMT may be used before EXP as in the \"print\" command.\n\
2139 /FMT \"i\" or \"s\" or including a size-letter is allowed,\n\
2140 as in the \"x\" command, and then EXP is used to get the address to examine\n\
2141 and examining is done as in the \"x\" command.\n\n\
2142 With no argument, display all currently requested auto-display expressions.\n\
2143 Use \"undisplay\" to cancel display requests previously made."));
2145 add_cmd ("display", class_vars
, enable_display
, _("\
2146 Enable some expressions to be displayed when program stops.\n\
2147 Arguments are the code numbers of the expressions to resume displaying.\n\
2148 No argument means enable all automatic-display expressions.\n\
2149 Do \"info display\" to see current list of code numbers."), &enablelist
);
2151 add_cmd ("display", class_vars
, disable_display_command
, _("\
2152 Disable some expressions to be displayed when program stops.\n\
2153 Arguments are the code numbers of the expressions to stop displaying.\n\
2154 No argument means disable all automatic-display expressions.\n\
2155 Do \"info display\" to see current list of code numbers."), &disablelist
);
2157 add_cmd ("display", class_vars
, undisplay_command
, _("\
2158 Cancel some expressions to be displayed when program stops.\n\
2159 Arguments are the code numbers of the expressions to stop displaying.\n\
2160 No argument means cancel all automatic-display expressions.\n\
2161 Do \"info display\" to see current list of code numbers."), &deletelist
);
2163 add_com ("printf", class_vars
, printf_command
, _("\
2164 printf \"printf format string\", arg1, arg2, arg3, ..., argn\n\
2165 This is useful for formatted output in user-defined commands."));
2167 add_com ("output", class_vars
, output_command
, _("\
2168 Like \"print\" but don't put in value history and don't print newline.\n\
2169 This is useful in user-defined commands."));
2171 add_prefix_cmd ("set", class_vars
, set_command
, _("\
2172 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2173 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2174 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2175 with $), a register (a few standard names starting with $), or an actual\n\
2176 variable in the program being debugged. EXP is any valid expression.\n\
2177 Use \"set variable\" for variables with names identical to set subcommands.\n\
2179 With a subcommand, this command modifies parts of the gdb environment.\n\
2180 You can see these environment settings with the \"show\" command."),
2181 &setlist
, "set ", 1, &cmdlist
);
2183 add_com ("assign", class_vars
, set_command
, _("\
2184 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2185 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2186 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2187 with $), a register (a few standard names starting with $), or an actual\n\
2188 variable in the program being debugged. EXP is any valid expression.\n\
2189 Use \"set variable\" for variables with names identical to set subcommands.\n\
2190 \nWith a subcommand, this command modifies parts of the gdb environment.\n\
2191 You can see these environment settings with the \"show\" command."));
2193 /* "call" is the same as "set", but handy for dbx users to call fns. */
2194 c
= add_com ("call", class_vars
, call_command
, _("\
2195 Call a function in the program.\n\
2196 The argument is the function name and arguments, in the notation of the\n\
2197 current working language. The result is printed and saved in the value\n\
2198 history, if it is not void."));
2199 set_cmd_completer (c
, location_completer
);
2201 add_cmd ("variable", class_vars
, set_command
, _("\
2202 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2203 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2204 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2205 with $), a register (a few standard names starting with $), or an actual\n\
2206 variable in the program being debugged. EXP is any valid expression.\n\
2207 This may usually be abbreviated to simply \"set\"."),
2210 c
= add_com ("print", class_vars
, print_command
, _("\
2211 Print value of expression EXP.\n\
2212 Variables accessible are those of the lexical environment of the selected\n\
2213 stack frame, plus all those whose scope is global or an entire file.\n\
2215 $NUM gets previous value number NUM. $ and $$ are the last two values.\n\
2216 $$NUM refers to NUM'th value back from the last one.\n\
2217 Names starting with $ refer to registers (with the values they would have\n\
2218 if the program were to return to the stack frame now selected, restoring\n\
2219 all registers saved by frames farther in) or else to debugger\n\
2220 \"convenience\" variables (any such name not a known register).\n\
2221 Use assignment expressions to give values to convenience variables.\n\
2223 {TYPE}ADREXP refers to a datum of data type TYPE, located at address ADREXP.\n\
2224 @ is a binary operator for treating consecutive data objects\n\
2225 anywhere in memory as an array. FOO@NUM gives an array whose first\n\
2226 element is FOO, whose second element is stored in the space following\n\
2227 where FOO is stored, etc. FOO must be an expression whose value\n\
2228 resides in memory.\n\
2230 EXP may be preceded with /FMT, where FMT is a format letter\n\
2231 but no count or size letter (see \"x\" command)."));
2232 set_cmd_completer (c
, location_completer
);
2233 add_com_alias ("p", "print", class_vars
, 1);
2235 c
= add_com ("inspect", class_vars
, inspect_command
, _("\
2236 Same as \"print\" command, except that if you are running in the epoch\n\
2237 environment, the value is printed in its own window."));
2238 set_cmd_completer (c
, location_completer
);
2240 add_setshow_uinteger_cmd ("max-symbolic-offset", no_class
,
2241 &max_symbolic_offset
, _("\
2242 Set the largest offset that will be printed in <symbol+1234> form."), _("\
2243 Show the largest offset that will be printed in <symbol+1234> form."), NULL
,
2245 show_max_symbolic_offset
,
2246 &setprintlist
, &showprintlist
);
2247 add_setshow_boolean_cmd ("symbol-filename", no_class
,
2248 &print_symbol_filename
, _("\
2249 Set printing of source filename and line number with <symbol>."), _("\
2250 Show printing of source filename and line number with <symbol>."), NULL
,
2252 show_print_symbol_filename
,
2253 &setprintlist
, &showprintlist
);
2255 /* For examine/instruction a single byte quantity is specified as
2256 the data. This avoids problems with value_at_lazy() requiring a
2257 valid data type (and rejecting VOID). */
2258 examine_i_type
= init_type (TYPE_CODE_INT
, 1, 0, "examine_i_type", NULL
);
2260 examine_b_type
= init_type (TYPE_CODE_INT
, 1, 0, "examine_b_type", NULL
);
2261 examine_h_type
= init_type (TYPE_CODE_INT
, 2, 0, "examine_h_type", NULL
);
2262 examine_w_type
= init_type (TYPE_CODE_INT
, 4, 0, "examine_w_type", NULL
);
2263 examine_g_type
= init_type (TYPE_CODE_INT
, 8, 0, "examine_g_type", NULL
);