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 /* 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"), REGISTER_NAME (val
));
1120 printf_filtered (_("static storage at address "));
1121 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1123 if (section_is_overlay (section
))
1125 load_addr
= overlay_unmapped_address (load_addr
, section
);
1126 printf_filtered (_(",\n -- loaded at "));
1127 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1128 printf_filtered (_(" in overlay section %s"), section
->name
);
1133 printf_filtered (_("external global (indirect addressing), at address *("));
1134 deprecated_print_address_numeric (load_addr
= SYMBOL_VALUE_ADDRESS (sym
),
1136 printf_filtered (")");
1137 if (section_is_overlay (section
))
1139 load_addr
= overlay_unmapped_address (load_addr
, section
);
1140 printf_filtered (_(",\n -- loaded at "));
1141 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1142 printf_filtered (_(" in overlay section %s"), section
->name
);
1147 printf_filtered (_("an argument in register %s"), REGISTER_NAME (val
));
1150 case LOC_REGPARM_ADDR
:
1151 printf_filtered (_("address of an argument in register %s"),
1152 REGISTER_NAME (val
));
1156 printf_filtered (_("an argument at offset %ld"), val
);
1160 printf_filtered (_("an argument at frame offset %ld"), val
);
1164 printf_filtered (_("a local variable at frame offset %ld"), val
);
1168 printf_filtered (_("a reference argument at offset %ld"), val
);
1172 printf_filtered (_("a variable at offset %ld from register %s"),
1173 val
, REGISTER_NAME (basereg
));
1176 case LOC_BASEREG_ARG
:
1177 printf_filtered (_("an argument at offset %ld from register %s"),
1178 val
, REGISTER_NAME (basereg
));
1182 printf_filtered (_("a typedef"));
1186 printf_filtered (_("a function at address "));
1187 load_addr
= BLOCK_START (SYMBOL_BLOCK_VALUE (sym
));
1188 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1189 if (section_is_overlay (section
))
1191 load_addr
= overlay_unmapped_address (load_addr
, section
);
1192 printf_filtered (_(",\n -- loaded at "));
1193 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1194 printf_filtered (_(" in overlay section %s"), section
->name
);
1198 case LOC_UNRESOLVED
:
1200 struct minimal_symbol
*msym
;
1202 msym
= lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (sym
), NULL
, NULL
);
1204 printf_filtered ("unresolved");
1207 section
= SYMBOL_BFD_SECTION (msym
);
1208 printf_filtered (_("static storage at address "));
1209 load_addr
= SYMBOL_VALUE_ADDRESS (msym
);
1210 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1211 if (section_is_overlay (section
))
1213 load_addr
= overlay_unmapped_address (load_addr
, section
);
1214 printf_filtered (_(",\n -- loaded at "));
1215 deprecated_print_address_numeric (load_addr
, 1, gdb_stdout
);
1216 printf_filtered (_(" in overlay section %s"), section
->name
);
1222 case LOC_HP_THREAD_LOCAL_STATIC
:
1223 printf_filtered (_("\
1224 a thread-local variable at offset %ld from the thread base register %s"),
1225 val
, REGISTER_NAME (basereg
));
1228 case LOC_OPTIMIZED_OUT
:
1229 printf_filtered (_("optimized out"));
1233 printf_filtered (_("of unknown (botched) type"));
1236 printf_filtered (".\n");
1241 x_command (char *exp
, int from_tty
)
1243 struct expression
*expr
;
1244 struct format_data fmt
;
1245 struct cleanup
*old_chain
;
1248 fmt
.format
= last_format
;
1249 fmt
.size
= last_size
;
1252 if (exp
&& *exp
== '/')
1255 fmt
= decode_format (&exp
, last_format
, last_size
);
1258 /* If we have an expression, evaluate it and use it as the address. */
1260 if (exp
!= 0 && *exp
!= 0)
1262 expr
= parse_expression (exp
);
1263 /* Cause expression not to be there any more if this command is
1264 repeated with Newline. But don't clobber a user-defined
1265 command's definition. */
1268 old_chain
= make_cleanup (free_current_contents
, &expr
);
1269 val
= evaluate_expression (expr
);
1270 if (TYPE_CODE (value_type (val
)) == TYPE_CODE_REF
)
1271 val
= value_ind (val
);
1272 /* In rvalue contexts, such as this, functions are coerced into
1273 pointers to functions. This makes "x/i main" work. */
1274 if (/* last_format == 'i' && */
1275 TYPE_CODE (value_type (val
)) == TYPE_CODE_FUNC
1276 && VALUE_LVAL (val
) == lval_memory
)
1277 next_address
= VALUE_ADDRESS (val
);
1279 next_address
= value_as_address (val
);
1280 do_cleanups (old_chain
);
1283 do_examine (fmt
, next_address
);
1285 /* If the examine succeeds, we remember its size and format for next
1287 last_size
= fmt
.size
;
1288 last_format
= fmt
.format
;
1290 /* Set a couple of internal variables if appropriate. */
1291 if (last_examine_value
)
1293 /* Make last address examined available to the user as $_. Use
1294 the correct pointer type. */
1295 struct type
*pointer_type
1296 = lookup_pointer_type (value_type (last_examine_value
));
1297 set_internalvar (lookup_internalvar ("_"),
1298 value_from_pointer (pointer_type
,
1299 last_examine_address
));
1301 /* Make contents of last address examined available to the user
1302 as $__. If the last value has not been fetched from memory
1303 then don't fetch it now; instead mark it by voiding the $__
1305 if (value_lazy (last_examine_value
))
1306 set_internalvar (lookup_internalvar ("__"),
1307 allocate_value (builtin_type_void
));
1309 set_internalvar (lookup_internalvar ("__"), last_examine_value
);
1314 /* Add an expression to the auto-display chain.
1315 Specify the expression. */
1318 display_command (char *exp
, int from_tty
)
1320 struct format_data fmt
;
1321 struct expression
*expr
;
1322 struct display
*new;
1326 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1328 if (tui_active
&& exp
!= NULL
&& *exp
== '$')
1329 display_it
= (tui_set_layout_for_display_command (exp
) == TUI_FAILURE
);
1343 fmt
= decode_format (&exp
, 0, 0);
1344 if (fmt
.size
&& fmt
.format
== 0)
1346 if (fmt
.format
== 'i' || fmt
.format
== 's')
1356 innermost_block
= 0;
1357 expr
= parse_expression (exp
);
1359 new = (struct display
*) xmalloc (sizeof (struct display
));
1362 new->block
= innermost_block
;
1363 new->next
= display_chain
;
1364 new->number
= ++display_number
;
1367 display_chain
= new;
1369 if (from_tty
&& target_has_execution
)
1370 do_one_display (new);
1377 free_display (struct display
*d
)
1383 /* Clear out the display_chain. Done when new symtabs are loaded,
1384 since this invalidates the types stored in many expressions. */
1387 clear_displays (void)
1391 while ((d
= display_chain
) != NULL
)
1394 display_chain
= d
->next
;
1399 /* Delete the auto-display number NUM. */
1402 delete_display (int num
)
1404 struct display
*d1
, *d
;
1407 error (_("No display number %d."), num
);
1409 if (display_chain
->number
== num
)
1412 display_chain
= d1
->next
;
1416 for (d
= display_chain
;; d
= d
->next
)
1419 error (_("No display number %d."), num
);
1420 if (d
->next
->number
== num
)
1430 /* Delete some values from the auto-display chain.
1431 Specify the element numbers. */
1434 undisplay_command (char *args
, int from_tty
)
1442 if (query ("Delete all auto-display expressions? "))
1451 while (*p1
>= '0' && *p1
<= '9')
1453 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1454 error (_("Arguments must be display numbers."));
1458 delete_display (num
);
1461 while (*p
== ' ' || *p
== '\t')
1467 /* Display a single auto-display.
1468 Do nothing if the display cannot be printed in the current context,
1469 or if the display is disabled. */
1472 do_one_display (struct display
*d
)
1474 int within_current_scope
;
1476 if (d
->enabled_p
== 0)
1480 within_current_scope
= contained_in (get_selected_block (0), d
->block
);
1482 within_current_scope
= 1;
1483 if (!within_current_scope
)
1486 current_display_number
= d
->number
;
1488 annotate_display_begin ();
1489 printf_filtered ("%d", d
->number
);
1490 annotate_display_number_end ();
1491 printf_filtered (": ");
1497 annotate_display_format ();
1499 printf_filtered ("x/");
1500 if (d
->format
.count
!= 1)
1501 printf_filtered ("%d", d
->format
.count
);
1502 printf_filtered ("%c", d
->format
.format
);
1503 if (d
->format
.format
!= 'i' && d
->format
.format
!= 's')
1504 printf_filtered ("%c", d
->format
.size
);
1505 printf_filtered (" ");
1507 annotate_display_expression ();
1509 print_expression (d
->exp
, gdb_stdout
);
1510 annotate_display_expression_end ();
1512 if (d
->format
.count
!= 1)
1513 printf_filtered ("\n");
1515 printf_filtered (" ");
1517 val
= evaluate_expression (d
->exp
);
1518 addr
= value_as_address (val
);
1519 if (d
->format
.format
== 'i')
1520 addr
= ADDR_BITS_REMOVE (addr
);
1522 annotate_display_value ();
1524 do_examine (d
->format
, addr
);
1528 annotate_display_format ();
1530 if (d
->format
.format
)
1531 printf_filtered ("/%c ", d
->format
.format
);
1533 annotate_display_expression ();
1535 print_expression (d
->exp
, gdb_stdout
);
1536 annotate_display_expression_end ();
1538 printf_filtered (" = ");
1540 annotate_display_expression ();
1542 print_formatted (evaluate_expression (d
->exp
),
1543 d
->format
.format
, d
->format
.size
, gdb_stdout
);
1544 printf_filtered ("\n");
1547 annotate_display_end ();
1549 gdb_flush (gdb_stdout
);
1550 current_display_number
= -1;
1553 /* Display all of the values on the auto-display chain which can be
1554 evaluated in the current scope. */
1561 for (d
= display_chain
; d
; d
= d
->next
)
1565 /* Delete the auto-display which we were in the process of displaying.
1566 This is done when there is an error or a signal. */
1569 disable_display (int num
)
1573 for (d
= display_chain
; d
; d
= d
->next
)
1574 if (d
->number
== num
)
1579 printf_unfiltered (_("No display number %d.\n"), num
);
1583 disable_current_display (void)
1585 if (current_display_number
>= 0)
1587 disable_display (current_display_number
);
1588 fprintf_unfiltered (gdb_stderr
, _("\
1589 Disabling display %d to avoid infinite recursion.\n"),
1590 current_display_number
);
1592 current_display_number
= -1;
1596 display_info (char *ignore
, int from_tty
)
1601 printf_unfiltered (_("There are no auto-display expressions now.\n"));
1603 printf_filtered (_("Auto-display expressions now in effect:\n\
1604 Num Enb Expression\n"));
1606 for (d
= display_chain
; d
; d
= d
->next
)
1608 printf_filtered ("%d: %c ", d
->number
, "ny"[(int) d
->enabled_p
]);
1610 printf_filtered ("/%d%c%c ", d
->format
.count
, d
->format
.size
,
1612 else if (d
->format
.format
)
1613 printf_filtered ("/%c ", d
->format
.format
);
1614 print_expression (d
->exp
, gdb_stdout
);
1615 if (d
->block
&& !contained_in (get_selected_block (0), d
->block
))
1616 printf_filtered (_(" (cannot be evaluated in the current context)"));
1617 printf_filtered ("\n");
1618 gdb_flush (gdb_stdout
);
1623 enable_display (char *args
, int from_tty
)
1632 for (d
= display_chain
; d
; d
= d
->next
)
1639 while (*p1
>= '0' && *p1
<= '9')
1641 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1642 error (_("Arguments must be display numbers."));
1646 for (d
= display_chain
; d
; d
= d
->next
)
1647 if (d
->number
== num
)
1652 printf_unfiltered (_("No display number %d.\n"), num
);
1655 while (*p
== ' ' || *p
== '\t')
1661 disable_display_command (char *args
, int from_tty
)
1669 for (d
= display_chain
; d
; d
= d
->next
)
1676 while (*p1
>= '0' && *p1
<= '9')
1678 if (*p1
&& *p1
!= ' ' && *p1
!= '\t')
1679 error (_("Arguments must be display numbers."));
1681 disable_display (atoi (p
));
1684 while (*p
== ' ' || *p
== '\t')
1690 /* Print the value in stack frame FRAME of a variable specified by a
1694 print_variable_value (struct symbol
*var
, struct frame_info
*frame
,
1695 struct ui_file
*stream
)
1697 struct value
*val
= read_var_value (var
, frame
);
1699 value_print (val
, stream
, 0, Val_pretty_default
);
1703 printf_command (char *arg
, int from_tty
)
1707 char *string
= NULL
;
1708 struct value
**val_args
;
1710 char *current_substring
;
1712 int allocated_args
= 20;
1713 struct cleanup
*old_cleanups
;
1715 val_args
= xmalloc (allocated_args
* sizeof (struct value
*));
1716 old_cleanups
= make_cleanup (free_current_contents
, &val_args
);
1719 error_no_arg (_("format-control string and values to print"));
1721 /* Skip white space before format string */
1722 while (*s
== ' ' || *s
== '\t')
1725 /* A format string should follow, enveloped in double quotes. */
1727 error (_("Bad format string, missing '\"'."));
1729 /* Parse the format-control string and copy it into the string STRING,
1730 processing some kinds of escape sequence. */
1732 f
= string
= (char *) alloca (strlen (s
) + 1);
1740 error (_("Bad format string, non-terminated '\"'."));
1773 /* ??? TODO: handle other escape sequences */
1774 error (_("Unrecognized escape character \\%c in format string."),
1784 /* Skip over " and following space and comma. */
1787 while (*s
== ' ' || *s
== '\t')
1790 if (*s
!= ',' && *s
!= 0)
1791 error (_("Invalid argument syntax"));
1795 while (*s
== ' ' || *s
== '\t')
1798 /* Need extra space for the '\0's. Doubling the size is sufficient. */
1799 substrings
= alloca (strlen (string
) * 2);
1800 current_substring
= substrings
;
1803 /* Now scan the string for %-specs and see what kinds of args they want.
1804 argclass[I] classifies the %-specs so we can give printf_filtered
1805 something of the right size. */
1809 int_arg
, long_arg
, long_long_arg
, ptr_arg
, string_arg
,
1810 double_arg
, long_double_arg
1812 enum argclass
*argclass
;
1813 enum argclass this_argclass
;
1818 argclass
= (enum argclass
*) alloca (strlen (s
) * sizeof *argclass
);
1825 int seen_hash
= 0, seen_zero
= 0, lcount
= 0, seen_prec
= 0;
1826 int seen_space
= 0, seen_plus
= 0;
1827 int seen_big_l
= 0, seen_h
= 0;
1830 /* Check the validity of the format specifier, and work
1831 out what argument it expects. We only accept C89
1832 format strings, with the exception of long long (which
1833 we autoconf for). */
1835 /* Skip over "%%". */
1842 /* The first part of a format specifier is a set of flag
1844 while (strchr ("0-+ #", *f
))
1857 /* The next part of a format specifier is a width. */
1858 while (strchr ("0123456789", *f
))
1861 /* The next part of a format specifier is a precision. */
1866 while (strchr ("0123456789", *f
))
1870 /* The next part of a format specifier is a length modifier. */
1902 if (seen_space
|| seen_plus
)
1909 this_argclass
= int_arg
;
1910 else if (lcount
== 1)
1911 this_argclass
= long_arg
;
1913 this_argclass
= long_long_arg
;
1920 this_argclass
= int_arg
;
1921 if (lcount
|| seen_h
|| seen_big_l
)
1923 if (seen_prec
|| seen_zero
|| seen_space
|| seen_plus
)
1928 this_argclass
= ptr_arg
;
1929 if (lcount
|| seen_h
|| seen_big_l
)
1931 if (seen_prec
|| seen_zero
|| seen_space
|| seen_plus
)
1936 this_argclass
= string_arg
;
1937 if (lcount
|| seen_h
|| seen_big_l
)
1939 if (seen_zero
|| seen_space
|| seen_plus
)
1949 this_argclass
= long_double_arg
;
1951 this_argclass
= double_arg
;
1953 if (lcount
|| seen_h
)
1958 error (_("`*' not supported for precision or width in printf"));
1961 error (_("Format specifier `n' not supported in printf"));
1964 error (_("Incomplete format specifier at end of format string"));
1967 error (_("Unrecognized format specifier '%c' in printf"), *f
);
1971 error (_("Inappropriate modifiers to format specifier '%c' in printf"),
1975 strncpy (current_substring
, last_arg
, f
- last_arg
);
1976 current_substring
+= f
- last_arg
;
1977 *current_substring
++ = '\0';
1979 argclass
[nargs_wanted
++] = this_argclass
;
1982 /* Now, parse all arguments and evaluate them.
1983 Store the VALUEs in VAL_ARGS. */
1988 if (nargs
== allocated_args
)
1989 val_args
= (struct value
**) xrealloc ((char *) val_args
,
1990 (allocated_args
*= 2)
1991 * sizeof (struct value
*));
1993 val_args
[nargs
] = parse_to_comma_and_eval (&s1
);
1995 /* If format string wants a float, unchecked-convert the value to
1996 floating point of the same size */
1998 if (argclass
[nargs
] == double_arg
)
2000 struct type
*type
= value_type (val_args
[nargs
]);
2001 if (TYPE_LENGTH (type
) == sizeof (float))
2002 deprecated_set_value_type (val_args
[nargs
], builtin_type_float
);
2003 if (TYPE_LENGTH (type
) == sizeof (double))
2004 deprecated_set_value_type (val_args
[nargs
], builtin_type_double
);
2012 if (nargs
!= nargs_wanted
)
2013 error (_("Wrong number of arguments for specified format-string"));
2015 /* Now actually print them. */
2016 current_substring
= substrings
;
2017 for (i
= 0; i
< nargs
; i
++)
2019 switch (argclass
[i
])
2026 tem
= value_as_address (val_args
[i
]);
2028 /* This is a %s argument. Find the length of the string. */
2033 read_memory (tem
+ j
, &c
, 1);
2038 /* Copy the string contents into a string inside GDB. */
2039 str
= (gdb_byte
*) alloca (j
+ 1);
2041 read_memory (tem
, str
, j
);
2044 printf_filtered (current_substring
, (char *) str
);
2049 double val
= value_as_double (val_args
[i
]);
2050 printf_filtered (current_substring
, val
);
2053 case long_double_arg
:
2054 #ifdef HAVE_LONG_DOUBLE
2056 long double val
= value_as_double (val_args
[i
]);
2057 printf_filtered (current_substring
, val
);
2061 error (_("long double not supported in printf"));
2064 #if defined (CC_HAS_LONG_LONG) && defined (PRINTF_HAS_LONG_LONG)
2066 long long val
= value_as_long (val_args
[i
]);
2067 printf_filtered (current_substring
, val
);
2071 error (_("long long not supported in printf"));
2075 int val
= value_as_long (val_args
[i
]);
2076 printf_filtered (current_substring
, val
);
2081 long val
= value_as_long (val_args
[i
]);
2082 printf_filtered (current_substring
, val
);
2086 internal_error (__FILE__
, __LINE__
,
2087 _("failed internal consitency check"));
2089 /* Skip to the next substring. */
2090 current_substring
+= strlen (current_substring
) + 1;
2092 /* Print the portion of the format string after the last argument. */
2093 puts_filtered (last_arg
);
2095 do_cleanups (old_cleanups
);
2099 _initialize_printcmd (void)
2101 struct cmd_list_element
*c
;
2103 current_display_number
= -1;
2105 add_info ("address", address_info
,
2106 _("Describe where symbol SYM is stored."));
2108 add_info ("symbol", sym_info
, _("\
2109 Describe what symbol is at location ADDR.\n\
2110 Only for symbols with fixed locations (global or static scope)."));
2112 add_com ("x", class_vars
, x_command
, _("\
2113 Examine memory: x/FMT ADDRESS.\n\
2114 ADDRESS is an expression for the memory address to examine.\n\
2115 FMT is a repeat count followed by a format letter and a size letter.\n\
2116 Format letters are o(octal), x(hex), d(decimal), u(unsigned decimal),\n\
2117 t(binary), f(float), a(address), i(instruction), c(char) and s(string).\n\
2118 Size letters are b(byte), h(halfword), w(word), g(giant, 8 bytes).\n\
2119 The specified number of objects of the specified size are printed\n\
2120 according to the format.\n\n\
2121 Defaults for format and size letters are those previously used.\n\
2122 Default count is 1. Default address is following last thing printed\n\
2123 with this command or \"print\"."));
2126 add_com ("whereis", class_vars
, whereis_command
,
2127 _("Print line number and file of definition of variable."));
2130 add_info ("display", display_info
, _("\
2131 Expressions to display when program stops, with code numbers."));
2133 add_cmd ("undisplay", class_vars
, undisplay_command
, _("\
2134 Cancel some expressions to be displayed when program stops.\n\
2135 Arguments are the code numbers of the expressions to stop displaying.\n\
2136 No argument means cancel all automatic-display expressions.\n\
2137 \"delete display\" has the same effect as this command.\n\
2138 Do \"info display\" to see current list of code numbers."),
2141 add_com ("display", class_vars
, display_command
, _("\
2142 Print value of expression EXP each time the program stops.\n\
2143 /FMT may be used before EXP as in the \"print\" command.\n\
2144 /FMT \"i\" or \"s\" or including a size-letter is allowed,\n\
2145 as in the \"x\" command, and then EXP is used to get the address to examine\n\
2146 and examining is done as in the \"x\" command.\n\n\
2147 With no argument, display all currently requested auto-display expressions.\n\
2148 Use \"undisplay\" to cancel display requests previously made."));
2150 add_cmd ("display", class_vars
, enable_display
, _("\
2151 Enable some expressions to be displayed when program stops.\n\
2152 Arguments are the code numbers of the expressions to resume displaying.\n\
2153 No argument means enable all automatic-display expressions.\n\
2154 Do \"info display\" to see current list of code numbers."), &enablelist
);
2156 add_cmd ("display", class_vars
, disable_display_command
, _("\
2157 Disable some expressions to be displayed when program stops.\n\
2158 Arguments are the code numbers of the expressions to stop displaying.\n\
2159 No argument means disable all automatic-display expressions.\n\
2160 Do \"info display\" to see current list of code numbers."), &disablelist
);
2162 add_cmd ("display", class_vars
, undisplay_command
, _("\
2163 Cancel some expressions to be displayed when program stops.\n\
2164 Arguments are the code numbers of the expressions to stop displaying.\n\
2165 No argument means cancel all automatic-display expressions.\n\
2166 Do \"info display\" to see current list of code numbers."), &deletelist
);
2168 add_com ("printf", class_vars
, printf_command
, _("\
2169 printf \"printf format string\", arg1, arg2, arg3, ..., argn\n\
2170 This is useful for formatted output in user-defined commands."));
2172 add_com ("output", class_vars
, output_command
, _("\
2173 Like \"print\" but don't put in value history and don't print newline.\n\
2174 This is useful in user-defined commands."));
2176 add_prefix_cmd ("set", class_vars
, set_command
, _("\
2177 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2178 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2179 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2180 with $), a register (a few standard names starting with $), or an actual\n\
2181 variable in the program being debugged. EXP is any valid expression.\n\
2182 Use \"set variable\" for variables with names identical to set subcommands.\n\
2184 With a subcommand, this command modifies parts of the gdb environment.\n\
2185 You can see these environment settings with the \"show\" command."),
2186 &setlist
, "set ", 1, &cmdlist
);
2188 add_com ("assign", class_vars
, set_command
, _("\
2189 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2190 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2191 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2192 with $), a register (a few standard names starting with $), or an actual\n\
2193 variable in the program being debugged. EXP is any valid expression.\n\
2194 Use \"set variable\" for variables with names identical to set subcommands.\n\
2195 \nWith a subcommand, this command modifies parts of the gdb environment.\n\
2196 You can see these environment settings with the \"show\" command."));
2198 /* "call" is the same as "set", but handy for dbx users to call fns. */
2199 c
= add_com ("call", class_vars
, call_command
, _("\
2200 Call a function in the program.\n\
2201 The argument is the function name and arguments, in the notation of the\n\
2202 current working language. The result is printed and saved in the value\n\
2203 history, if it is not void."));
2204 set_cmd_completer (c
, location_completer
);
2206 add_cmd ("variable", class_vars
, set_command
, _("\
2207 Evaluate expression EXP and assign result to variable VAR, using assignment\n\
2208 syntax appropriate for the current language (VAR = EXP or VAR := EXP for\n\
2209 example). VAR may be a debugger \"convenience\" variable (names starting\n\
2210 with $), a register (a few standard names starting with $), or an actual\n\
2211 variable in the program being debugged. EXP is any valid expression.\n\
2212 This may usually be abbreviated to simply \"set\"."),
2215 c
= add_com ("print", class_vars
, print_command
, _("\
2216 Print value of expression EXP.\n\
2217 Variables accessible are those of the lexical environment of the selected\n\
2218 stack frame, plus all those whose scope is global or an entire file.\n\
2220 $NUM gets previous value number NUM. $ and $$ are the last two values.\n\
2221 $$NUM refers to NUM'th value back from the last one.\n\
2222 Names starting with $ refer to registers (with the values they would have\n\
2223 if the program were to return to the stack frame now selected, restoring\n\
2224 all registers saved by frames farther in) or else to debugger\n\
2225 \"convenience\" variables (any such name not a known register).\n\
2226 Use assignment expressions to give values to convenience variables.\n\
2228 {TYPE}ADREXP refers to a datum of data type TYPE, located at address ADREXP.\n\
2229 @ is a binary operator for treating consecutive data objects\n\
2230 anywhere in memory as an array. FOO@NUM gives an array whose first\n\
2231 element is FOO, whose second element is stored in the space following\n\
2232 where FOO is stored, etc. FOO must be an expression whose value\n\
2233 resides in memory.\n\
2235 EXP may be preceded with /FMT, where FMT is a format letter\n\
2236 but no count or size letter (see \"x\" command)."));
2237 set_cmd_completer (c
, location_completer
);
2238 add_com_alias ("p", "print", class_vars
, 1);
2240 c
= add_com ("inspect", class_vars
, inspect_command
, _("\
2241 Same as \"print\" command, except that if you are running in the epoch\n\
2242 environment, the value is printed in its own window."));
2243 set_cmd_completer (c
, location_completer
);
2245 add_setshow_uinteger_cmd ("max-symbolic-offset", no_class
,
2246 &max_symbolic_offset
, _("\
2247 Set the largest offset that will be printed in <symbol+1234> form."), _("\
2248 Show the largest offset that will be printed in <symbol+1234> form."), NULL
,
2250 show_max_symbolic_offset
,
2251 &setprintlist
, &showprintlist
);
2252 add_setshow_boolean_cmd ("symbol-filename", no_class
,
2253 &print_symbol_filename
, _("\
2254 Set printing of source filename and line number with <symbol>."), _("\
2255 Show printing of source filename and line number with <symbol>."), NULL
,
2257 show_print_symbol_filename
,
2258 &setprintlist
, &showprintlist
);
2260 /* For examine/instruction a single byte quantity is specified as
2261 the data. This avoids problems with value_at_lazy() requiring a
2262 valid data type (and rejecting VOID). */
2263 examine_i_type
= init_type (TYPE_CODE_INT
, 1, 0, "examine_i_type", NULL
);
2265 examine_b_type
= init_type (TYPE_CODE_INT
, 1, 0, "examine_b_type", NULL
);
2266 examine_h_type
= init_type (TYPE_CODE_INT
, 2, 0, "examine_h_type", NULL
);
2267 examine_w_type
= init_type (TYPE_CODE_INT
, 4, 0, "examine_w_type", NULL
);
2268 examine_g_type
= init_type (TYPE_CODE_INT
, 8, 0, "examine_g_type", NULL
);