mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-15 04:31:49 +08:00
dda83cd783
Many spots incorrectly use only spaces for indentation (for example, there are a lot of spots in ada-lang.c). I've always found it awkward when I needed to edit one of these spots: do I keep the original wrong indentation, or do I fix it? What if the lines around it are also wrong, do I fix them too? I probably don't want to fix them in the same patch, to avoid adding noise to my patch. So I propose to fix as much as possible once and for all (hopefully). One typical counter argument for this is that it makes code archeology more difficult, because git-blame will show this commit as the last change for these lines. My counter counter argument is: when git-blaming, you often need to do "blame the file at the parent commit" anyway, to go past some other refactor that touched the line you are interested in, but is not the change you are looking for. So you already need a somewhat efficient way to do this. Using some interactive tool, rather than plain git-blame, makes this trivial. For example, I use "tig blame <file>", where going back past the commit that changed the currently selected line is one keystroke. It looks like Magit in Emacs does it too (though I've never used it). Web viewers of Github and Gitlab do it too. My point is that it won't really make archeology more difficult. The other typical counter argument is that it will cause conflicts with existing patches. That's true... but it's a one time cost, and those are not conflicts that are difficult to resolve. I have also tried "git rebase --ignore-whitespace", it seems to work well. Although that will re-introduce the faulty indentation, so one needs to take care of fixing the indentation in the patch after that (which is easy). gdb/ChangeLog: * aarch64-linux-tdep.c: Fix indentation. * aarch64-ravenscar-thread.c: Fix indentation. * aarch64-tdep.c: Fix indentation. * aarch64-tdep.h: Fix indentation. * ada-lang.c: Fix indentation. * ada-lang.h: Fix indentation. * ada-tasks.c: Fix indentation. * ada-typeprint.c: Fix indentation. * ada-valprint.c: Fix indentation. * ada-varobj.c: Fix indentation. * addrmap.c: Fix indentation. * addrmap.h: Fix indentation. * agent.c: Fix indentation. * aix-thread.c: Fix indentation. * alpha-bsd-nat.c: Fix indentation. * alpha-linux-tdep.c: Fix indentation. * alpha-mdebug-tdep.c: Fix indentation. * alpha-nbsd-tdep.c: Fix indentation. * alpha-obsd-tdep.c: Fix indentation. * alpha-tdep.c: Fix indentation. * amd64-bsd-nat.c: Fix indentation. * amd64-darwin-tdep.c: Fix indentation. * amd64-linux-nat.c: Fix indentation. * amd64-linux-tdep.c: Fix indentation. * amd64-nat.c: Fix indentation. * amd64-obsd-tdep.c: Fix indentation. * amd64-tdep.c: Fix indentation. * amd64-windows-tdep.c: Fix indentation. * annotate.c: Fix indentation. * arc-tdep.c: Fix indentation. * arch-utils.c: Fix indentation. * arch/arm-get-next-pcs.c: Fix indentation. * arch/arm.c: Fix indentation. * arm-linux-nat.c: Fix indentation. * arm-linux-tdep.c: Fix indentation. * arm-nbsd-tdep.c: Fix indentation. * arm-pikeos-tdep.c: Fix indentation. * arm-tdep.c: Fix indentation. * arm-tdep.h: Fix indentation. * arm-wince-tdep.c: Fix indentation. * auto-load.c: Fix indentation. * auxv.c: Fix indentation. * avr-tdep.c: Fix indentation. * ax-gdb.c: Fix indentation. * ax-general.c: Fix indentation. * bfin-linux-tdep.c: Fix indentation. * block.c: Fix indentation. * block.h: Fix indentation. * blockframe.c: Fix indentation. * bpf-tdep.c: Fix indentation. * break-catch-sig.c: Fix indentation. * break-catch-syscall.c: Fix indentation. * break-catch-throw.c: Fix indentation. * breakpoint.c: Fix indentation. * breakpoint.h: Fix indentation. * bsd-uthread.c: Fix indentation. * btrace.c: Fix indentation. * build-id.c: Fix indentation. * buildsym-legacy.h: Fix indentation. * buildsym.c: Fix indentation. * c-typeprint.c: Fix indentation. * c-valprint.c: Fix indentation. * c-varobj.c: Fix indentation. * charset.c: Fix indentation. * cli/cli-cmds.c: Fix indentation. * cli/cli-decode.c: Fix indentation. * cli/cli-decode.h: Fix indentation. * cli/cli-script.c: Fix indentation. * cli/cli-setshow.c: Fix indentation. * coff-pe-read.c: Fix indentation. * coffread.c: Fix indentation. * compile/compile-cplus-types.c: Fix indentation. * compile/compile-object-load.c: Fix indentation. * compile/compile-object-run.c: Fix indentation. * completer.c: Fix indentation. * corefile.c: Fix indentation. * corelow.c: Fix indentation. * cp-abi.h: Fix indentation. * cp-namespace.c: Fix indentation. * cp-support.c: Fix indentation. * cp-valprint.c: Fix indentation. * cris-linux-tdep.c: Fix indentation. * cris-tdep.c: Fix indentation. * darwin-nat-info.c: Fix indentation. * darwin-nat.c: Fix indentation. * darwin-nat.h: Fix indentation. * dbxread.c: Fix indentation. * dcache.c: Fix indentation. * disasm.c: Fix indentation. * dtrace-probe.c: Fix indentation. * dwarf2/abbrev.c: Fix indentation. * dwarf2/attribute.c: Fix indentation. * dwarf2/expr.c: Fix indentation. * dwarf2/frame.c: Fix indentation. * dwarf2/index-cache.c: Fix indentation. * dwarf2/index-write.c: Fix indentation. * dwarf2/line-header.c: Fix indentation. * dwarf2/loc.c: Fix indentation. * dwarf2/macro.c: Fix indentation. * dwarf2/read.c: Fix indentation. * dwarf2/read.h: Fix indentation. * elfread.c: Fix indentation. * eval.c: Fix indentation. * event-top.c: Fix indentation. * exec.c: Fix indentation. * exec.h: Fix indentation. * expprint.c: Fix indentation. * f-lang.c: Fix indentation. * f-typeprint.c: Fix indentation. * f-valprint.c: Fix indentation. * fbsd-nat.c: Fix indentation. * fbsd-tdep.c: Fix indentation. * findvar.c: Fix indentation. * fork-child.c: Fix indentation. * frame-unwind.c: Fix indentation. * frame-unwind.h: Fix indentation. * frame.c: Fix indentation. * frv-linux-tdep.c: Fix indentation. * frv-tdep.c: Fix indentation. * frv-tdep.h: Fix indentation. * ft32-tdep.c: Fix indentation. * gcore.c: Fix indentation. * gdb_bfd.c: Fix indentation. * gdbarch.sh: Fix indentation. * gdbarch.c: Re-generate * gdbarch.h: Re-generate. * gdbcore.h: Fix indentation. * gdbthread.h: Fix indentation. * gdbtypes.c: Fix indentation. * gdbtypes.h: Fix indentation. * glibc-tdep.c: Fix indentation. * gnu-nat.c: Fix indentation. * gnu-nat.h: Fix indentation. * gnu-v2-abi.c: Fix indentation. * gnu-v3-abi.c: Fix indentation. * go32-nat.c: Fix indentation. * guile/guile-internal.h: Fix indentation. * guile/scm-cmd.c: Fix indentation. * guile/scm-frame.c: Fix indentation. * guile/scm-iterator.c: Fix indentation. * guile/scm-math.c: Fix indentation. * guile/scm-ports.c: Fix indentation. * guile/scm-pretty-print.c: Fix indentation. * guile/scm-value.c: Fix indentation. * h8300-tdep.c: Fix indentation. * hppa-linux-nat.c: Fix indentation. * hppa-linux-tdep.c: Fix indentation. * hppa-nbsd-nat.c: Fix indentation. * hppa-nbsd-tdep.c: Fix indentation. * hppa-obsd-nat.c: Fix indentation. * hppa-tdep.c: Fix indentation. * hppa-tdep.h: Fix indentation. * i386-bsd-nat.c: Fix indentation. * i386-darwin-nat.c: Fix indentation. * i386-darwin-tdep.c: Fix indentation. * i386-dicos-tdep.c: Fix indentation. * i386-gnu-nat.c: Fix indentation. * i386-linux-nat.c: Fix indentation. * i386-linux-tdep.c: Fix indentation. * i386-nto-tdep.c: Fix indentation. * i386-obsd-tdep.c: Fix indentation. * i386-sol2-nat.c: Fix indentation. * i386-tdep.c: Fix indentation. * i386-tdep.h: Fix indentation. * i386-windows-tdep.c: Fix indentation. * i387-tdep.c: Fix indentation. * i387-tdep.h: Fix indentation. * ia64-libunwind-tdep.c: Fix indentation. * ia64-libunwind-tdep.h: Fix indentation. * ia64-linux-nat.c: Fix indentation. * ia64-linux-tdep.c: Fix indentation. * ia64-tdep.c: Fix indentation. * ia64-tdep.h: Fix indentation. * ia64-vms-tdep.c: Fix indentation. * infcall.c: Fix indentation. * infcmd.c: Fix indentation. * inferior.c: Fix indentation. * infrun.c: Fix indentation. * iq2000-tdep.c: Fix indentation. * language.c: Fix indentation. * linespec.c: Fix indentation. * linux-fork.c: Fix indentation. * linux-nat.c: Fix indentation. * linux-tdep.c: Fix indentation. * linux-thread-db.c: Fix indentation. * lm32-tdep.c: Fix indentation. * m2-lang.c: Fix indentation. * m2-typeprint.c: Fix indentation. * m2-valprint.c: Fix indentation. * m32c-tdep.c: Fix indentation. * m32r-linux-tdep.c: Fix indentation. * m32r-tdep.c: Fix indentation. * m68hc11-tdep.c: Fix indentation. * m68k-bsd-nat.c: Fix indentation. * m68k-linux-nat.c: Fix indentation. * m68k-linux-tdep.c: Fix indentation. * m68k-tdep.c: Fix indentation. * machoread.c: Fix indentation. * macrocmd.c: Fix indentation. * macroexp.c: Fix indentation. * macroscope.c: Fix indentation. * macrotab.c: Fix indentation. * macrotab.h: Fix indentation. * main.c: Fix indentation. * mdebugread.c: Fix indentation. * mep-tdep.c: Fix indentation. * mi/mi-cmd-catch.c: Fix indentation. * mi/mi-cmd-disas.c: Fix indentation. * mi/mi-cmd-env.c: Fix indentation. * mi/mi-cmd-stack.c: Fix indentation. * mi/mi-cmd-var.c: Fix indentation. * mi/mi-cmds.c: Fix indentation. * mi/mi-main.c: Fix indentation. * mi/mi-parse.c: Fix indentation. * microblaze-tdep.c: Fix indentation. * minidebug.c: Fix indentation. * minsyms.c: Fix indentation. * mips-linux-nat.c: Fix indentation. * mips-linux-tdep.c: Fix indentation. * mips-nbsd-tdep.c: Fix indentation. * mips-tdep.c: Fix indentation. * mn10300-linux-tdep.c: Fix indentation. * mn10300-tdep.c: Fix indentation. * moxie-tdep.c: Fix indentation. * msp430-tdep.c: Fix indentation. * namespace.h: Fix indentation. * nat/fork-inferior.c: Fix indentation. * nat/gdb_ptrace.h: Fix indentation. * nat/linux-namespaces.c: Fix indentation. * nat/linux-osdata.c: Fix indentation. * nat/netbsd-nat.c: Fix indentation. * nat/x86-dregs.c: Fix indentation. * nbsd-nat.c: Fix indentation. * nbsd-tdep.c: Fix indentation. * nios2-linux-tdep.c: Fix indentation. * nios2-tdep.c: Fix indentation. * nto-procfs.c: Fix indentation. * nto-tdep.c: Fix indentation. * objfiles.c: Fix indentation. * objfiles.h: Fix indentation. * opencl-lang.c: Fix indentation. * or1k-tdep.c: Fix indentation. * osabi.c: Fix indentation. * osabi.h: Fix indentation. * osdata.c: Fix indentation. * p-lang.c: Fix indentation. * p-typeprint.c: Fix indentation. * p-valprint.c: Fix indentation. * parse.c: Fix indentation. * ppc-linux-nat.c: Fix indentation. * ppc-linux-tdep.c: Fix indentation. * ppc-nbsd-nat.c: Fix indentation. * ppc-nbsd-tdep.c: Fix indentation. * ppc-obsd-nat.c: Fix indentation. * ppc-ravenscar-thread.c: Fix indentation. * ppc-sysv-tdep.c: Fix indentation. * ppc64-tdep.c: Fix indentation. * printcmd.c: Fix indentation. * proc-api.c: Fix indentation. * producer.c: Fix indentation. * producer.h: Fix indentation. * prologue-value.c: Fix indentation. * prologue-value.h: Fix indentation. * psymtab.c: Fix indentation. * python/py-arch.c: Fix indentation. * python/py-bpevent.c: Fix indentation. * python/py-event.c: Fix indentation. * python/py-event.h: Fix indentation. * python/py-finishbreakpoint.c: Fix indentation. * python/py-frame.c: Fix indentation. * python/py-framefilter.c: Fix indentation. * python/py-inferior.c: Fix indentation. * python/py-infthread.c: Fix indentation. * python/py-objfile.c: Fix indentation. * python/py-prettyprint.c: Fix indentation. * python/py-registers.c: Fix indentation. * python/py-signalevent.c: Fix indentation. * python/py-stopevent.c: Fix indentation. * python/py-stopevent.h: Fix indentation. * python/py-threadevent.c: Fix indentation. * python/py-tui.c: Fix indentation. * python/py-unwind.c: Fix indentation. * python/py-value.c: Fix indentation. * python/py-xmethods.c: Fix indentation. * python/python-internal.h: Fix indentation. * python/python.c: Fix indentation. * ravenscar-thread.c: Fix indentation. * record-btrace.c: Fix indentation. * record-full.c: Fix indentation. * record.c: Fix indentation. * reggroups.c: Fix indentation. * regset.h: Fix indentation. * remote-fileio.c: Fix indentation. * remote.c: Fix indentation. * reverse.c: Fix indentation. * riscv-linux-tdep.c: Fix indentation. * riscv-ravenscar-thread.c: Fix indentation. * riscv-tdep.c: Fix indentation. * rl78-tdep.c: Fix indentation. * rs6000-aix-tdep.c: Fix indentation. * rs6000-lynx178-tdep.c: Fix indentation. * rs6000-nat.c: Fix indentation. * rs6000-tdep.c: Fix indentation. * rust-lang.c: Fix indentation. * rx-tdep.c: Fix indentation. * s12z-tdep.c: Fix indentation. * s390-linux-tdep.c: Fix indentation. * score-tdep.c: Fix indentation. * ser-base.c: Fix indentation. * ser-mingw.c: Fix indentation. * ser-uds.c: Fix indentation. * ser-unix.c: Fix indentation. * serial.c: Fix indentation. * sh-linux-tdep.c: Fix indentation. * sh-nbsd-tdep.c: Fix indentation. * sh-tdep.c: Fix indentation. * skip.c: Fix indentation. * sol-thread.c: Fix indentation. * solib-aix.c: Fix indentation. * solib-darwin.c: Fix indentation. * solib-frv.c: Fix indentation. * solib-svr4.c: Fix indentation. * solib.c: Fix indentation. * source.c: Fix indentation. * sparc-linux-tdep.c: Fix indentation. * sparc-nbsd-tdep.c: Fix indentation. * sparc-obsd-tdep.c: Fix indentation. * sparc-ravenscar-thread.c: Fix indentation. * sparc-tdep.c: Fix indentation. * sparc64-linux-tdep.c: Fix indentation. * sparc64-nbsd-tdep.c: Fix indentation. * sparc64-obsd-tdep.c: Fix indentation. * sparc64-tdep.c: Fix indentation. * stabsread.c: Fix indentation. * stack.c: Fix indentation. * stap-probe.c: Fix indentation. * stubs/ia64vms-stub.c: Fix indentation. * stubs/m32r-stub.c: Fix indentation. * stubs/m68k-stub.c: Fix indentation. * stubs/sh-stub.c: Fix indentation. * stubs/sparc-stub.c: Fix indentation. * symfile-mem.c: Fix indentation. * symfile.c: Fix indentation. * symfile.h: Fix indentation. * symmisc.c: Fix indentation. * symtab.c: Fix indentation. * symtab.h: Fix indentation. * target-float.c: Fix indentation. * target.c: Fix indentation. * target.h: Fix indentation. * tic6x-tdep.c: Fix indentation. * tilegx-linux-tdep.c: Fix indentation. * tilegx-tdep.c: Fix indentation. * top.c: Fix indentation. * tracefile-tfile.c: Fix indentation. * tracepoint.c: Fix indentation. * tui/tui-disasm.c: Fix indentation. * tui/tui-io.c: Fix indentation. * tui/tui-regs.c: Fix indentation. * tui/tui-stack.c: Fix indentation. * tui/tui-win.c: Fix indentation. * tui/tui-winsource.c: Fix indentation. * tui/tui.c: Fix indentation. * typeprint.c: Fix indentation. * ui-out.h: Fix indentation. * unittests/copy_bitwise-selftests.c: Fix indentation. * unittests/memory-map-selftests.c: Fix indentation. * utils.c: Fix indentation. * v850-tdep.c: Fix indentation. * valarith.c: Fix indentation. * valops.c: Fix indentation. * valprint.c: Fix indentation. * valprint.h: Fix indentation. * value.c: Fix indentation. * value.h: Fix indentation. * varobj.c: Fix indentation. * vax-tdep.c: Fix indentation. * windows-nat.c: Fix indentation. * windows-tdep.c: Fix indentation. * xcoffread.c: Fix indentation. * xml-syscall.c: Fix indentation. * xml-tdesc.c: Fix indentation. * xstormy16-tdep.c: Fix indentation. * xtensa-config.c: Fix indentation. * xtensa-linux-nat.c: Fix indentation. * xtensa-linux-tdep.c: Fix indentation. * xtensa-tdep.c: Fix indentation. gdbserver/ChangeLog: * ax.cc: Fix indentation. * dll.cc: Fix indentation. * inferiors.h: Fix indentation. * linux-low.cc: Fix indentation. * linux-nios2-low.cc: Fix indentation. * linux-ppc-ipa.cc: Fix indentation. * linux-ppc-low.cc: Fix indentation. * linux-x86-low.cc: Fix indentation. * linux-xtensa-low.cc: Fix indentation. * regcache.cc: Fix indentation. * server.cc: Fix indentation. * tracepoint.cc: Fix indentation. gdbsupport/ChangeLog: * common-exceptions.h: Fix indentation. * event-loop.cc: Fix indentation. * fileio.cc: Fix indentation. * filestuff.cc: Fix indentation. * gdb-dlfcn.cc: Fix indentation. * gdb_string_view.h: Fix indentation. * job-control.cc: Fix indentation. * signals.cc: Fix indentation. Change-Id: I4bad7ae6be0fbe14168b8ebafb98ffe14964a695
875 lines
24 KiB
C
875 lines
24 KiB
C
/* Support for printing Pascal values for GDB, the GNU debugger.
|
||
|
||
Copyright (C) 2000-2020 Free Software Foundation, Inc.
|
||
|
||
This file is part of GDB.
|
||
|
||
This program is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 3 of the License, or
|
||
(at your option) any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
||
|
||
/* This file is derived from c-valprint.c */
|
||
|
||
#include "defs.h"
|
||
#include "gdb_obstack.h"
|
||
#include "symtab.h"
|
||
#include "gdbtypes.h"
|
||
#include "expression.h"
|
||
#include "value.h"
|
||
#include "command.h"
|
||
#include "gdbcmd.h"
|
||
#include "gdbcore.h"
|
||
#include "demangle.h"
|
||
#include "valprint.h"
|
||
#include "typeprint.h"
|
||
#include "language.h"
|
||
#include "target.h"
|
||
#include "annotate.h"
|
||
#include "p-lang.h"
|
||
#include "cp-abi.h"
|
||
#include "cp-support.h"
|
||
#include "objfiles.h"
|
||
#include "gdbsupport/byte-vector.h"
|
||
#include "cli/cli-style.h"
|
||
|
||
|
||
static void pascal_object_print_value_fields (struct value *, struct ui_file *,
|
||
int,
|
||
const struct value_print_options *,
|
||
struct type **, int);
|
||
|
||
/* Decorations for Pascal. */
|
||
|
||
static const struct generic_val_print_decorations p_decorations =
|
||
{
|
||
"",
|
||
" + ",
|
||
" * I",
|
||
"true",
|
||
"false",
|
||
"void",
|
||
"{",
|
||
"}"
|
||
};
|
||
|
||
/* See p-lang.h. */
|
||
|
||
void
|
||
pascal_value_print_inner (struct value *val, struct ui_file *stream,
|
||
int recurse,
|
||
const struct value_print_options *options)
|
||
|
||
{
|
||
struct type *type = check_typedef (value_type (val));
|
||
struct gdbarch *gdbarch = get_type_arch (type);
|
||
enum bfd_endian byte_order = type_byte_order (type);
|
||
unsigned int i = 0; /* Number of characters printed */
|
||
unsigned len;
|
||
struct type *elttype;
|
||
unsigned eltlen;
|
||
int length_pos, length_size, string_pos;
|
||
struct type *char_type;
|
||
CORE_ADDR addr;
|
||
int want_space = 0;
|
||
const gdb_byte *valaddr = value_contents_for_printing (val);
|
||
|
||
switch (type->code ())
|
||
{
|
||
case TYPE_CODE_ARRAY:
|
||
{
|
||
LONGEST low_bound, high_bound;
|
||
|
||
if (get_array_bounds (type, &low_bound, &high_bound))
|
||
{
|
||
len = high_bound - low_bound + 1;
|
||
elttype = check_typedef (TYPE_TARGET_TYPE (type));
|
||
eltlen = TYPE_LENGTH (elttype);
|
||
/* If 's' format is used, try to print out as string.
|
||
If no format is given, print as string if element type
|
||
is of TYPE_CODE_CHAR and element size is 1,2 or 4. */
|
||
if (options->format == 's'
|
||
|| ((eltlen == 1 || eltlen == 2 || eltlen == 4)
|
||
&& elttype->code () == TYPE_CODE_CHAR
|
||
&& options->format == 0))
|
||
{
|
||
/* If requested, look for the first null char and only print
|
||
elements up to it. */
|
||
if (options->stop_print_at_null)
|
||
{
|
||
unsigned int temp_len;
|
||
|
||
/* Look for a NULL char. */
|
||
for (temp_len = 0;
|
||
extract_unsigned_integer (valaddr + temp_len * eltlen,
|
||
eltlen, byte_order)
|
||
&& temp_len < len && temp_len < options->print_max;
|
||
temp_len++);
|
||
len = temp_len;
|
||
}
|
||
|
||
LA_PRINT_STRING (stream, TYPE_TARGET_TYPE (type),
|
||
valaddr, len, NULL, 0, options);
|
||
i = len;
|
||
}
|
||
else
|
||
{
|
||
fprintf_filtered (stream, "{");
|
||
/* If this is a virtual function table, print the 0th
|
||
entry specially, and the rest of the members normally. */
|
||
if (pascal_object_is_vtbl_ptr_type (elttype))
|
||
{
|
||
i = 1;
|
||
fprintf_filtered (stream, "%d vtable entries", len - 1);
|
||
}
|
||
else
|
||
{
|
||
i = 0;
|
||
}
|
||
value_print_array_elements (val, stream, recurse, options, i);
|
||
fprintf_filtered (stream, "}");
|
||
}
|
||
break;
|
||
}
|
||
/* Array of unspecified length: treat like pointer to first elt. */
|
||
addr = value_address (val);
|
||
}
|
||
goto print_unpacked_pointer;
|
||
|
||
case TYPE_CODE_PTR:
|
||
if (options->format && options->format != 's')
|
||
{
|
||
value_print_scalar_formatted (val, options, 0, stream);
|
||
break;
|
||
}
|
||
if (options->vtblprint && pascal_object_is_vtbl_ptr_type (type))
|
||
{
|
||
/* Print the unmangled name if desired. */
|
||
/* Print vtable entry - we only get here if we ARE using
|
||
-fvtable_thunks. (Otherwise, look under TYPE_CODE_STRUCT.) */
|
||
/* Extract the address, assume that it is unsigned. */
|
||
addr = extract_unsigned_integer (valaddr,
|
||
TYPE_LENGTH (type), byte_order);
|
||
print_address_demangle (options, gdbarch, addr, stream, demangle);
|
||
break;
|
||
}
|
||
check_typedef (TYPE_TARGET_TYPE (type));
|
||
|
||
addr = unpack_pointer (type, valaddr);
|
||
print_unpacked_pointer:
|
||
elttype = check_typedef (TYPE_TARGET_TYPE (type));
|
||
|
||
if (elttype->code () == TYPE_CODE_FUNC)
|
||
{
|
||
/* Try to print what function it points to. */
|
||
print_address_demangle (options, gdbarch, addr, stream, demangle);
|
||
return;
|
||
}
|
||
|
||
if (options->addressprint && options->format != 's')
|
||
{
|
||
fputs_filtered (paddress (gdbarch, addr), stream);
|
||
want_space = 1;
|
||
}
|
||
|
||
/* For a pointer to char or unsigned char, also print the string
|
||
pointed to, unless pointer is null. */
|
||
if (((TYPE_LENGTH (elttype) == 1
|
||
&& (elttype->code () == TYPE_CODE_INT
|
||
|| elttype->code () == TYPE_CODE_CHAR))
|
||
|| ((TYPE_LENGTH (elttype) == 2 || TYPE_LENGTH (elttype) == 4)
|
||
&& elttype->code () == TYPE_CODE_CHAR))
|
||
&& (options->format == 0 || options->format == 's')
|
||
&& addr != 0)
|
||
{
|
||
if (want_space)
|
||
fputs_filtered (" ", stream);
|
||
/* No wide string yet. */
|
||
i = val_print_string (elttype, NULL, addr, -1, stream, options);
|
||
}
|
||
/* Also for pointers to pascal strings. */
|
||
/* Note: this is Free Pascal specific:
|
||
as GDB does not recognize stabs pascal strings
|
||
Pascal strings are mapped to records
|
||
with lowercase names PM. */
|
||
if (is_pascal_string_type (elttype, &length_pos, &length_size,
|
||
&string_pos, &char_type, NULL)
|
||
&& addr != 0)
|
||
{
|
||
ULONGEST string_length;
|
||
gdb_byte *buffer;
|
||
|
||
if (want_space)
|
||
fputs_filtered (" ", stream);
|
||
buffer = (gdb_byte *) xmalloc (length_size);
|
||
read_memory (addr + length_pos, buffer, length_size);
|
||
string_length = extract_unsigned_integer (buffer, length_size,
|
||
byte_order);
|
||
xfree (buffer);
|
||
i = val_print_string (char_type, NULL,
|
||
addr + string_pos, string_length,
|
||
stream, options);
|
||
}
|
||
else if (pascal_object_is_vtbl_member (type))
|
||
{
|
||
/* Print vtbl's nicely. */
|
||
CORE_ADDR vt_address = unpack_pointer (type, valaddr);
|
||
struct bound_minimal_symbol msymbol =
|
||
lookup_minimal_symbol_by_pc (vt_address);
|
||
|
||
/* If 'symbol_print' is set, we did the work above. */
|
||
if (!options->symbol_print
|
||
&& (msymbol.minsym != NULL)
|
||
&& (vt_address == BMSYMBOL_VALUE_ADDRESS (msymbol)))
|
||
{
|
||
if (want_space)
|
||
fputs_filtered (" ", stream);
|
||
fputs_filtered ("<", stream);
|
||
fputs_filtered (msymbol.minsym->print_name (), stream);
|
||
fputs_filtered (">", stream);
|
||
want_space = 1;
|
||
}
|
||
if (vt_address && options->vtblprint)
|
||
{
|
||
struct value *vt_val;
|
||
struct symbol *wsym = NULL;
|
||
struct type *wtype;
|
||
|
||
if (want_space)
|
||
fputs_filtered (" ", stream);
|
||
|
||
if (msymbol.minsym != NULL)
|
||
{
|
||
const char *search_name = msymbol.minsym->search_name ();
|
||
wsym = lookup_symbol_search_name (search_name, NULL,
|
||
VAR_DOMAIN).symbol;
|
||
}
|
||
|
||
if (wsym)
|
||
{
|
||
wtype = SYMBOL_TYPE (wsym);
|
||
}
|
||
else
|
||
{
|
||
wtype = TYPE_TARGET_TYPE (type);
|
||
}
|
||
vt_val = value_at (wtype, vt_address);
|
||
common_val_print (vt_val, stream, recurse + 1, options,
|
||
current_language);
|
||
if (options->prettyformat)
|
||
{
|
||
fprintf_filtered (stream, "\n");
|
||
print_spaces_filtered (2 + 2 * recurse, stream);
|
||
}
|
||
}
|
||
}
|
||
|
||
return;
|
||
|
||
case TYPE_CODE_REF:
|
||
case TYPE_CODE_ENUM:
|
||
case TYPE_CODE_FLAGS:
|
||
case TYPE_CODE_FUNC:
|
||
case TYPE_CODE_RANGE:
|
||
case TYPE_CODE_INT:
|
||
case TYPE_CODE_FLT:
|
||
case TYPE_CODE_VOID:
|
||
case TYPE_CODE_ERROR:
|
||
case TYPE_CODE_UNDEF:
|
||
case TYPE_CODE_BOOL:
|
||
case TYPE_CODE_CHAR:
|
||
generic_value_print (val, stream, recurse, options, &p_decorations);
|
||
break;
|
||
|
||
case TYPE_CODE_UNION:
|
||
if (recurse && !options->unionprint)
|
||
{
|
||
fprintf_filtered (stream, "{...}");
|
||
break;
|
||
}
|
||
/* Fall through. */
|
||
case TYPE_CODE_STRUCT:
|
||
if (options->vtblprint && pascal_object_is_vtbl_ptr_type (type))
|
||
{
|
||
/* Print the unmangled name if desired. */
|
||
/* Print vtable entry - we only get here if NOT using
|
||
-fvtable_thunks. (Otherwise, look under TYPE_CODE_PTR.) */
|
||
/* Extract the address, assume that it is unsigned. */
|
||
print_address_demangle
|
||
(options, gdbarch,
|
||
extract_unsigned_integer
|
||
(valaddr + TYPE_FIELD_BITPOS (type, VTBL_FNADDR_OFFSET) / 8,
|
||
TYPE_LENGTH (type->field (VTBL_FNADDR_OFFSET).type ()),
|
||
byte_order),
|
||
stream, demangle);
|
||
}
|
||
else
|
||
{
|
||
if (is_pascal_string_type (type, &length_pos, &length_size,
|
||
&string_pos, &char_type, NULL))
|
||
{
|
||
len = extract_unsigned_integer (valaddr + length_pos,
|
||
length_size, byte_order);
|
||
LA_PRINT_STRING (stream, char_type, valaddr + string_pos,
|
||
len, NULL, 0, options);
|
||
}
|
||
else
|
||
pascal_object_print_value_fields (val, stream, recurse,
|
||
options, NULL, 0);
|
||
}
|
||
break;
|
||
|
||
case TYPE_CODE_SET:
|
||
elttype = type->index_type ();
|
||
elttype = check_typedef (elttype);
|
||
if (elttype->is_stub ())
|
||
{
|
||
fprintf_styled (stream, metadata_style.style (), "<incomplete type>");
|
||
break;
|
||
}
|
||
else
|
||
{
|
||
struct type *range = elttype;
|
||
LONGEST low_bound, high_bound;
|
||
int need_comma = 0;
|
||
|
||
fputs_filtered ("[", stream);
|
||
|
||
int bound_info = get_discrete_bounds (range, &low_bound, &high_bound);
|
||
if (low_bound == 0 && high_bound == -1 && TYPE_LENGTH (type) > 0)
|
||
{
|
||
/* If we know the size of the set type, we can figure out the
|
||
maximum value. */
|
||
bound_info = 0;
|
||
high_bound = TYPE_LENGTH (type) * TARGET_CHAR_BIT - 1;
|
||
range->bounds ()->high.set_const_val (high_bound);
|
||
}
|
||
maybe_bad_bstring:
|
||
if (bound_info < 0)
|
||
{
|
||
fputs_styled ("<error value>", metadata_style.style (), stream);
|
||
goto done;
|
||
}
|
||
|
||
for (i = low_bound; i <= high_bound; i++)
|
||
{
|
||
int element = value_bit_index (type, valaddr, i);
|
||
|
||
if (element < 0)
|
||
{
|
||
i = element;
|
||
goto maybe_bad_bstring;
|
||
}
|
||
if (element)
|
||
{
|
||
if (need_comma)
|
||
fputs_filtered (", ", stream);
|
||
print_type_scalar (range, i, stream);
|
||
need_comma = 1;
|
||
|
||
if (i + 1 <= high_bound
|
||
&& value_bit_index (type, valaddr, ++i))
|
||
{
|
||
int j = i;
|
||
|
||
fputs_filtered ("..", stream);
|
||
while (i + 1 <= high_bound
|
||
&& value_bit_index (type, valaddr, ++i))
|
||
j = i;
|
||
print_type_scalar (range, j, stream);
|
||
}
|
||
}
|
||
}
|
||
done:
|
||
fputs_filtered ("]", stream);
|
||
}
|
||
break;
|
||
|
||
default:
|
||
error (_("Invalid pascal type code %d in symbol table."),
|
||
type->code ());
|
||
}
|
||
}
|
||
|
||
|
||
void
|
||
pascal_value_print (struct value *val, struct ui_file *stream,
|
||
const struct value_print_options *options)
|
||
{
|
||
struct type *type = value_type (val);
|
||
struct value_print_options opts = *options;
|
||
|
||
opts.deref_ref = 1;
|
||
|
||
/* If it is a pointer, indicate what it points to.
|
||
|
||
Print type also if it is a reference.
|
||
|
||
Object pascal: if it is a member pointer, we will take care
|
||
of that when we print it. */
|
||
if (type->code () == TYPE_CODE_PTR
|
||
|| type->code () == TYPE_CODE_REF)
|
||
{
|
||
/* Hack: remove (char *) for char strings. Their
|
||
type is indicated by the quoted string anyway. */
|
||
if (type->code () == TYPE_CODE_PTR
|
||
&& type->name () == NULL
|
||
&& TYPE_TARGET_TYPE (type)->name () != NULL
|
||
&& strcmp (TYPE_TARGET_TYPE (type)->name (), "char") == 0)
|
||
{
|
||
/* Print nothing. */
|
||
}
|
||
else
|
||
{
|
||
fprintf_filtered (stream, "(");
|
||
type_print (type, "", stream, -1);
|
||
fprintf_filtered (stream, ") ");
|
||
}
|
||
}
|
||
common_val_print (val, stream, 0, &opts, current_language);
|
||
}
|
||
|
||
|
||
static void
|
||
show_pascal_static_field_print (struct ui_file *file, int from_tty,
|
||
struct cmd_list_element *c, const char *value)
|
||
{
|
||
fprintf_filtered (file, _("Printing of pascal static members is %s.\n"),
|
||
value);
|
||
}
|
||
|
||
static struct obstack dont_print_vb_obstack;
|
||
static struct obstack dont_print_statmem_obstack;
|
||
|
||
static void pascal_object_print_static_field (struct value *,
|
||
struct ui_file *, int,
|
||
const struct value_print_options *);
|
||
|
||
static void pascal_object_print_value (struct value *, struct ui_file *, int,
|
||
const struct value_print_options *,
|
||
struct type **);
|
||
|
||
/* It was changed to this after 2.4.5. */
|
||
const char pascal_vtbl_ptr_name[] =
|
||
{'_', '_', 'v', 't', 'b', 'l', '_', 'p', 't', 'r', '_', 't', 'y', 'p', 'e', 0};
|
||
|
||
/* Return truth value for assertion that TYPE is of the type
|
||
"pointer to virtual function". */
|
||
|
||
int
|
||
pascal_object_is_vtbl_ptr_type (struct type *type)
|
||
{
|
||
const char *type_name = type->name ();
|
||
|
||
return (type_name != NULL
|
||
&& strcmp (type_name, pascal_vtbl_ptr_name) == 0);
|
||
}
|
||
|
||
/* Return truth value for the assertion that TYPE is of the type
|
||
"pointer to virtual function table". */
|
||
|
||
int
|
||
pascal_object_is_vtbl_member (struct type *type)
|
||
{
|
||
if (type->code () == TYPE_CODE_PTR)
|
||
{
|
||
type = TYPE_TARGET_TYPE (type);
|
||
if (type->code () == TYPE_CODE_ARRAY)
|
||
{
|
||
type = TYPE_TARGET_TYPE (type);
|
||
if (type->code () == TYPE_CODE_STRUCT /* If not using
|
||
thunks. */
|
||
|| type->code () == TYPE_CODE_PTR) /* If using thunks. */
|
||
{
|
||
/* Virtual functions tables are full of pointers
|
||
to virtual functions. */
|
||
return pascal_object_is_vtbl_ptr_type (type);
|
||
}
|
||
}
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
/* Mutually recursive subroutines of pascal_object_print_value and
|
||
pascal_value_print to print out a structure's fields:
|
||
pascal_object_print_value_fields and pascal_object_print_value.
|
||
|
||
VAL, STREAM, RECURSE, and OPTIONS have the same meanings as in
|
||
pascal_object_print_value and c_value_print.
|
||
|
||
DONT_PRINT is an array of baseclass types that we
|
||
should not print, or zero if called from top level. */
|
||
|
||
static void
|
||
pascal_object_print_value_fields (struct value *val, struct ui_file *stream,
|
||
int recurse,
|
||
const struct value_print_options *options,
|
||
struct type **dont_print_vb,
|
||
int dont_print_statmem)
|
||
{
|
||
int i, len, n_baseclasses;
|
||
char *last_dont_print
|
||
= (char *) obstack_next_free (&dont_print_statmem_obstack);
|
||
|
||
struct type *type = check_typedef (value_type (val));
|
||
|
||
fprintf_filtered (stream, "{");
|
||
len = type->num_fields ();
|
||
n_baseclasses = TYPE_N_BASECLASSES (type);
|
||
|
||
/* Print out baseclasses such that we don't print
|
||
duplicates of virtual baseclasses. */
|
||
if (n_baseclasses > 0)
|
||
pascal_object_print_value (val, stream, recurse + 1,
|
||
options, dont_print_vb);
|
||
|
||
if (!len && n_baseclasses == 1)
|
||
fprintf_styled (stream, metadata_style.style (), "<No data fields>");
|
||
else
|
||
{
|
||
struct obstack tmp_obstack = dont_print_statmem_obstack;
|
||
int fields_seen = 0;
|
||
const gdb_byte *valaddr = value_contents_for_printing (val);
|
||
|
||
if (dont_print_statmem == 0)
|
||
{
|
||
/* If we're at top level, carve out a completely fresh
|
||
chunk of the obstack and use that until this particular
|
||
invocation returns. */
|
||
obstack_finish (&dont_print_statmem_obstack);
|
||
}
|
||
|
||
for (i = n_baseclasses; i < len; i++)
|
||
{
|
||
/* If requested, skip printing of static fields. */
|
||
if (!options->pascal_static_field_print
|
||
&& field_is_static (&type->field (i)))
|
||
continue;
|
||
if (fields_seen)
|
||
fprintf_filtered (stream, ", ");
|
||
else if (n_baseclasses > 0)
|
||
{
|
||
if (options->prettyformat)
|
||
{
|
||
fprintf_filtered (stream, "\n");
|
||
print_spaces_filtered (2 + 2 * recurse, stream);
|
||
fputs_filtered ("members of ", stream);
|
||
fputs_filtered (type->name (), stream);
|
||
fputs_filtered (": ", stream);
|
||
}
|
||
}
|
||
fields_seen = 1;
|
||
|
||
if (options->prettyformat)
|
||
{
|
||
fprintf_filtered (stream, "\n");
|
||
print_spaces_filtered (2 + 2 * recurse, stream);
|
||
}
|
||
else
|
||
{
|
||
wrap_here (n_spaces (2 + 2 * recurse));
|
||
}
|
||
|
||
annotate_field_begin (type->field (i).type ());
|
||
|
||
if (field_is_static (&type->field (i)))
|
||
{
|
||
fputs_filtered ("static ", stream);
|
||
fprintf_symbol_filtered (stream,
|
||
TYPE_FIELD_NAME (type, i),
|
||
current_language->la_language,
|
||
DMGL_PARAMS | DMGL_ANSI);
|
||
}
|
||
else
|
||
fputs_styled (TYPE_FIELD_NAME (type, i),
|
||
variable_name_style.style (), stream);
|
||
annotate_field_name_end ();
|
||
fputs_filtered (" = ", stream);
|
||
annotate_field_value ();
|
||
|
||
if (!field_is_static (&type->field (i))
|
||
&& TYPE_FIELD_PACKED (type, i))
|
||
{
|
||
struct value *v;
|
||
|
||
/* Bitfields require special handling, especially due to byte
|
||
order problems. */
|
||
if (TYPE_FIELD_IGNORE (type, i))
|
||
{
|
||
fputs_styled ("<optimized out or zero length>",
|
||
metadata_style.style (), stream);
|
||
}
|
||
else if (value_bits_synthetic_pointer (val,
|
||
TYPE_FIELD_BITPOS (type,
|
||
i),
|
||
TYPE_FIELD_BITSIZE (type,
|
||
i)))
|
||
{
|
||
fputs_styled (_("<synthetic pointer>"),
|
||
metadata_style.style (), stream);
|
||
}
|
||
else
|
||
{
|
||
struct value_print_options opts = *options;
|
||
|
||
v = value_field_bitfield (type, i, valaddr, 0, val);
|
||
|
||
opts.deref_ref = 0;
|
||
common_val_print (v, stream, recurse + 1, &opts,
|
||
current_language);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if (TYPE_FIELD_IGNORE (type, i))
|
||
{
|
||
fputs_styled ("<optimized out or zero length>",
|
||
metadata_style.style (), stream);
|
||
}
|
||
else if (field_is_static (&type->field (i)))
|
||
{
|
||
/* struct value *v = value_static_field (type, i);
|
||
v4.17 specific. */
|
||
struct value *v;
|
||
|
||
v = value_field_bitfield (type, i, valaddr, 0, val);
|
||
|
||
if (v == NULL)
|
||
val_print_optimized_out (NULL, stream);
|
||
else
|
||
pascal_object_print_static_field (v, stream, recurse + 1,
|
||
options);
|
||
}
|
||
else
|
||
{
|
||
struct value_print_options opts = *options;
|
||
|
||
opts.deref_ref = 0;
|
||
|
||
struct value *v = value_primitive_field (val, 0, i,
|
||
value_type (val));
|
||
common_val_print (v, stream, recurse + 1, &opts,
|
||
current_language);
|
||
}
|
||
}
|
||
annotate_field_end ();
|
||
}
|
||
|
||
if (dont_print_statmem == 0)
|
||
{
|
||
/* Free the space used to deal with the printing
|
||
of the members from top level. */
|
||
obstack_free (&dont_print_statmem_obstack, last_dont_print);
|
||
dont_print_statmem_obstack = tmp_obstack;
|
||
}
|
||
|
||
if (options->prettyformat)
|
||
{
|
||
fprintf_filtered (stream, "\n");
|
||
print_spaces_filtered (2 * recurse, stream);
|
||
}
|
||
}
|
||
fprintf_filtered (stream, "}");
|
||
}
|
||
|
||
/* Special val_print routine to avoid printing multiple copies of virtual
|
||
baseclasses. */
|
||
|
||
static void
|
||
pascal_object_print_value (struct value *val, struct ui_file *stream,
|
||
int recurse,
|
||
const struct value_print_options *options,
|
||
struct type **dont_print_vb)
|
||
{
|
||
struct type **last_dont_print
|
||
= (struct type **) obstack_next_free (&dont_print_vb_obstack);
|
||
struct obstack tmp_obstack = dont_print_vb_obstack;
|
||
struct type *type = check_typedef (value_type (val));
|
||
int i, n_baseclasses = TYPE_N_BASECLASSES (type);
|
||
|
||
if (dont_print_vb == 0)
|
||
{
|
||
/* If we're at top level, carve out a completely fresh
|
||
chunk of the obstack and use that until this particular
|
||
invocation returns. */
|
||
/* Bump up the high-water mark. Now alpha is omega. */
|
||
obstack_finish (&dont_print_vb_obstack);
|
||
}
|
||
|
||
for (i = 0; i < n_baseclasses; i++)
|
||
{
|
||
LONGEST boffset = 0;
|
||
struct type *baseclass = check_typedef (TYPE_BASECLASS (type, i));
|
||
const char *basename = baseclass->name ();
|
||
int skip = 0;
|
||
|
||
if (BASETYPE_VIA_VIRTUAL (type, i))
|
||
{
|
||
struct type **first_dont_print
|
||
= (struct type **) obstack_base (&dont_print_vb_obstack);
|
||
|
||
int j = (struct type **) obstack_next_free (&dont_print_vb_obstack)
|
||
- first_dont_print;
|
||
|
||
while (--j >= 0)
|
||
if (baseclass == first_dont_print[j])
|
||
goto flush_it;
|
||
|
||
obstack_ptr_grow (&dont_print_vb_obstack, baseclass);
|
||
}
|
||
|
||
struct value *base_value;
|
||
try
|
||
{
|
||
base_value = value_primitive_field (val, 0, i, type);
|
||
}
|
||
catch (const gdb_exception_error &ex)
|
||
{
|
||
base_value = nullptr;
|
||
if (ex.error == NOT_AVAILABLE_ERROR)
|
||
skip = -1;
|
||
else
|
||
skip = 1;
|
||
}
|
||
|
||
if (skip == 0)
|
||
{
|
||
/* The virtual base class pointer might have been clobbered by the
|
||
user program. Make sure that it still points to a valid memory
|
||
location. */
|
||
|
||
if (boffset < 0 || boffset >= TYPE_LENGTH (type))
|
||
{
|
||
CORE_ADDR address= value_address (val);
|
||
gdb::byte_vector buf (TYPE_LENGTH (baseclass));
|
||
|
||
if (target_read_memory (address + boffset, buf.data (),
|
||
TYPE_LENGTH (baseclass)) != 0)
|
||
skip = 1;
|
||
base_value = value_from_contents_and_address (baseclass,
|
||
buf.data (),
|
||
address + boffset);
|
||
baseclass = value_type (base_value);
|
||
boffset = 0;
|
||
}
|
||
}
|
||
|
||
if (options->prettyformat)
|
||
{
|
||
fprintf_filtered (stream, "\n");
|
||
print_spaces_filtered (2 * recurse, stream);
|
||
}
|
||
fputs_filtered ("<", stream);
|
||
/* Not sure what the best notation is in the case where there is no
|
||
baseclass name. */
|
||
|
||
fputs_filtered (basename ? basename : "", stream);
|
||
fputs_filtered ("> = ", stream);
|
||
|
||
if (skip < 0)
|
||
val_print_unavailable (stream);
|
||
else if (skip > 0)
|
||
val_print_invalid_address (stream);
|
||
else
|
||
pascal_object_print_value_fields
|
||
(base_value, stream, recurse, options,
|
||
(struct type **) obstack_base (&dont_print_vb_obstack),
|
||
0);
|
||
fputs_filtered (", ", stream);
|
||
|
||
flush_it:
|
||
;
|
||
}
|
||
|
||
if (dont_print_vb == 0)
|
||
{
|
||
/* Free the space used to deal with the printing
|
||
of this type from top level. */
|
||
obstack_free (&dont_print_vb_obstack, last_dont_print);
|
||
/* Reset watermark so that we can continue protecting
|
||
ourselves from whatever we were protecting ourselves. */
|
||
dont_print_vb_obstack = tmp_obstack;
|
||
}
|
||
}
|
||
|
||
/* Print value of a static member.
|
||
To avoid infinite recursion when printing a class that contains
|
||
a static instance of the class, we keep the addresses of all printed
|
||
static member classes in an obstack and refuse to print them more
|
||
than once.
|
||
|
||
VAL contains the value to print, STREAM, RECURSE, and OPTIONS
|
||
have the same meanings as in c_val_print. */
|
||
|
||
static void
|
||
pascal_object_print_static_field (struct value *val,
|
||
struct ui_file *stream,
|
||
int recurse,
|
||
const struct value_print_options *options)
|
||
{
|
||
struct type *type = value_type (val);
|
||
struct value_print_options opts;
|
||
|
||
if (value_entirely_optimized_out (val))
|
||
{
|
||
val_print_optimized_out (val, stream);
|
||
return;
|
||
}
|
||
|
||
if (type->code () == TYPE_CODE_STRUCT)
|
||
{
|
||
CORE_ADDR *first_dont_print, addr;
|
||
int i;
|
||
|
||
first_dont_print
|
||
= (CORE_ADDR *) obstack_base (&dont_print_statmem_obstack);
|
||
i = (CORE_ADDR *) obstack_next_free (&dont_print_statmem_obstack)
|
||
- first_dont_print;
|
||
|
||
while (--i >= 0)
|
||
{
|
||
if (value_address (val) == first_dont_print[i])
|
||
{
|
||
fputs_styled (_("\
|
||
<same as static member of an already seen type>"),
|
||
metadata_style.style (), stream);
|
||
return;
|
||
}
|
||
}
|
||
|
||
addr = value_address (val);
|
||
obstack_grow (&dont_print_statmem_obstack, (char *) &addr,
|
||
sizeof (CORE_ADDR));
|
||
|
||
type = check_typedef (type);
|
||
pascal_object_print_value_fields (val, stream, recurse,
|
||
options, NULL, 1);
|
||
return;
|
||
}
|
||
|
||
opts = *options;
|
||
opts.deref_ref = 0;
|
||
common_val_print (val, stream, recurse, &opts, current_language);
|
||
}
|
||
|
||
void _initialize_pascal_valprint ();
|
||
void
|
||
_initialize_pascal_valprint ()
|
||
{
|
||
add_setshow_boolean_cmd ("pascal_static-members", class_support,
|
||
&user_print_options.pascal_static_field_print, _("\
|
||
Set printing of pascal static members."), _("\
|
||
Show printing of pascal static members."), NULL,
|
||
NULL,
|
||
show_pascal_static_field_print,
|
||
&setprintlist, &showprintlist);
|
||
}
|