2011-01-05 Michael Snyder <msnyder@vmware.com>
* addrmap.c: Shorten lines of >= 80 columns. * arch-utils.c: Ditto. * arch-utils.h: Ditto. * ax-gdb.c: Ditto. * ax-general.c: Ditto. * bcache.c: Ditto. * blockframe.c: Ditto. * breakpoint.c: Ditto. * buildsym.c: Ditto. * c-lang.c: Ditto. * c-typeprint.c: Ditto. * charset.c: Ditto. * coffread.c: Ditto. * command.h: Ditto. * corelow.c: Ditto. * cp-abi.c: Ditto. * cp-namespace.c: Ditto. * cp-support.c: Ditto. * dbug-rom.c: Ditto. * dbxread.c: Ditto. * defs.h: Ditto. * dfp.c: Ditto. * dfp.h: Ditto. * dictionary.c: Ditto. * disasm.c: Ditto. * doublest.c: Ditto. * dwarf2-frame.c: Ditto. * dwarf2expr.c: Ditto. * dwarf2loc.c: Ditto. * dwarf2read.c: Ditto. * elfread.c: Ditto. * eval.c: Ditto. * event-loop.c: Ditto. * event-loop.h: Ditto. * exceptions.h: Ditto. * exec.c: Ditto. * expprint.c: Ditto. * expression.h: Ditto. * f-lang.c: Ditto. * f-valprint.c: Ditto. * findcmd.c: Ditto. * frame-base.c: Ditto. * frame-unwind.c: Ditto. * frame-unwind.h: Ditto. * frame.c: Ditto. * frame.h: Ditto. * gcore.c: Ditto. * gdb-stabs.h: Ditto. * gdb_assert.h: Ditto. * gdb_dirent.h: Ditto. * gdb_obstack.h: Ditto. * gdbcore.h: Ditto. * gdbtypes.c: Ditto. * gdbtypes.h: Ditto. * inf-ttrace.c: Ditto. * infcall.c: Ditto. * infcmd.c: Ditto. * inflow.c: Ditto. * infrun.c: Ditto. * inline-frame.h: Ditto. * language.c: Ditto. * language.h: Ditto. * libunwind-frame.c: Ditto. * libunwind-frame.h: Ditto. * linespec.c: Ditto. * linux-nat.c: Ditto. * linux-nat.h: Ditto. * linux-thread-db.c: Ditto. * machoread.c: Ditto. * macroexp.c: Ditto. * macrotab.c: Ditto. * main.c: Ditto. * maint.c: Ditto. * mdebugread.c: Ditto. * memattr.c: Ditto. * minsyms.c: Ditto. * monitor.c: Ditto. * monitor.h: Ditto. * objfiles.c: Ditto. * objfiles.h: Ditto. * osabi.c: Ditto. * p-typeprint.c: Ditto. * p-valprint.c: Ditto. * parse.c: Ditto. * printcmd.c: Ditto. * proc-events.c: Ditto. * procfs.c: Ditto. * progspace.c: Ditto. * progspace.h: Ditto. * psympriv.h: Ditto. * psymtab.c: Ditto. * record.c: Ditto. * regcache.c: Ditto. * regcache.h: Ditto. * remote-fileio.c: Ditto. * remote.c: Ditto. * ser-mingw.c: Ditto. * ser-tcp.c: Ditto. * ser-unix.c: Ditto. * serial.c: Ditto. * serial.h: Ditto. * solib-frv.c: Ditto. * solib-irix.c: Ditto. * solib-osf.c: Ditto. * solib-pa64.c: Ditto. * solib-som.c: Ditto. * solib-sunos.c: Ditto. * solib-svr4.c: Ditto. * solib-target.c: Ditto. * solib.c: Ditto. * somread.c: Ditto. * source.c: Ditto. * stabsread.c: Ditto. * stabsread.c: Ditto. * stack.c: Ditto. * stack.h: Ditto. * symfile-mem.c: Ditto. * symfile.c: Ditto. * symfile.h: Ditto. * symmisc.c: Ditto. * symtab.c: Ditto. * symtab.h: Ditto. * target-descriptions.c: Ditto. * target-memory.c: Ditto. * target.c: Ditto. * target.h: Ditto. * terminal.h: Ditto. * thread.c: Ditto. * top.c: Ditto. * tracepoint.c: Ditto. * tracepoint.h: Ditto. * ui-file.c: Ditto. * ui-file.h: Ditto. * ui-out.h: Ditto. * user-regs.c: Ditto. * user-regs.h: Ditto. * utils.c: Ditto. * valarith.c: Ditto. * valops.c: Ditto. * valprint.c: Ditto. * valprint.h: Ditto. * value.c: Ditto. * varobj.c: Ditto. * varobj.h: Ditto. * vec.h: Ditto. * xcoffread.c: Ditto. * xcoffsolib.c: Ditto. * xcoffsolib.h: Ditto. * xml-syscall.c: Ditto. * xml-tdesc.c: Ditto.
This commit is contained in:
Michael Snyder
parent
9689e3a3a7
commit
3e43a32aaa
151 changed files with 2974 additions and 1820 deletions
|
|
@ -125,8 +125,9 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
{
|
||||
i = 0;
|
||||
}
|
||||
val_print_array_elements (type, valaddr + embedded_offset, address, stream,
|
||||
recurse, original_value, options, i);
|
||||
val_print_array_elements (type, valaddr + embedded_offset,
|
||||
address, stream, recurse,
|
||||
original_value, options, i);
|
||||
fprintf_filtered (stream, "}");
|
||||
}
|
||||
break;
|
||||
|
|
@ -209,7 +210,8 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
else if (pascal_object_is_vtbl_member (type))
|
||||
{
|
||||
/* print vtbl's nicely */
|
||||
CORE_ADDR vt_address = unpack_pointer (type, valaddr + embedded_offset);
|
||||
CORE_ADDR vt_address = unpack_pointer (type,
|
||||
valaddr + embedded_offset);
|
||||
struct minimal_symbol *msymbol =
|
||||
lookup_minimal_symbol_by_pc (vt_address);
|
||||
|
||||
|
|
@ -304,8 +306,12 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
/* Extract the address, assume that it is unsigned. */
|
||||
print_address_demangle
|
||||
(gdbarch,
|
||||
extract_unsigned_integer (valaddr + embedded_offset + TYPE_FIELD_BITPOS (type, VTBL_FNADDR_OFFSET) / 8,
|
||||
TYPE_LENGTH (TYPE_FIELD_TYPE (type, VTBL_FNADDR_OFFSET)), byte_order),
|
||||
extract_unsigned_integer (valaddr + embedded_offset
|
||||
+ TYPE_FIELD_BITPOS (type,
|
||||
VTBL_FNADDR_OFFSET) / 8,
|
||||
TYPE_LENGTH (TYPE_FIELD_TYPE (type,
|
||||
VTBL_FNADDR_OFFSET)),
|
||||
byte_order),
|
||||
stream, demangle);
|
||||
}
|
||||
else
|
||||
|
|
@ -313,14 +319,18 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
if (is_pascal_string_type (type, &length_pos, &length_size,
|
||||
&string_pos, &char_type, NULL))
|
||||
{
|
||||
len = extract_unsigned_integer (valaddr + embedded_offset + length_pos, length_size, byte_order);
|
||||
len = extract_unsigned_integer (valaddr + embedded_offset
|
||||
+ length_pos, length_size,
|
||||
byte_order);
|
||||
LA_PRINT_STRING (stream, char_type,
|
||||
valaddr + embedded_offset + string_pos,
|
||||
len, NULL, 0, options);
|
||||
}
|
||||
else
|
||||
pascal_object_print_value_fields (type, valaddr + embedded_offset, address, stream,
|
||||
recurse, original_value, options, NULL, 0);
|
||||
pascal_object_print_value_fields (type, valaddr + embedded_offset,
|
||||
address, stream, recurse,
|
||||
original_value, options,
|
||||
NULL, 0);
|
||||
}
|
||||
break;
|
||||
|
||||
|
|
@ -501,7 +511,8 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
|
||||
for (i = low_bound; i <= high_bound; i++)
|
||||
{
|
||||
int element = value_bit_index (type, valaddr + embedded_offset, i);
|
||||
int element = value_bit_index (type,
|
||||
valaddr + embedded_offset, i);
|
||||
|
||||
if (element < 0)
|
||||
{
|
||||
|
|
@ -517,13 +528,17 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
print_type_scalar (range, i, stream);
|
||||
need_comma = 1;
|
||||
|
||||
if (i + 1 <= high_bound && value_bit_index (type, valaddr + embedded_offset, ++i))
|
||||
if (i + 1 <= high_bound
|
||||
&& value_bit_index (type,
|
||||
valaddr + embedded_offset, ++i))
|
||||
{
|
||||
int j = i;
|
||||
|
||||
fputs_filtered ("..", stream);
|
||||
while (i + 1 <= high_bound
|
||||
&& value_bit_index (type, valaddr + embedded_offset, ++i))
|
||||
&& value_bit_index (type,
|
||||
valaddr + embedded_offset,
|
||||
++i))
|
||||
j = i;
|
||||
print_type_scalar (range, j, stream);
|
||||
}
|
||||
|
|
@ -553,7 +568,8 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
|
|||
break;
|
||||
|
||||
default:
|
||||
error (_("Invalid pascal type code %d in symbol table."), TYPE_CODE (type));
|
||||
error (_("Invalid pascal type code %d in symbol table."),
|
||||
TYPE_CODE (type));
|
||||
}
|
||||
gdb_flush (stream);
|
||||
return (0);
|
||||
|
|
@ -646,7 +662,8 @@ pascal_object_is_vtbl_member (struct type *type)
|
|||
if (TYPE_CODE (type) == TYPE_CODE_ARRAY)
|
||||
{
|
||||
type = TYPE_TARGET_TYPE (type);
|
||||
if (TYPE_CODE (type) == TYPE_CODE_STRUCT /* if not using thunks */
|
||||
if (TYPE_CODE (type) == TYPE_CODE_STRUCT /* if not using
|
||||
thunks */
|
||||
|| TYPE_CODE (type) == TYPE_CODE_PTR) /* if using thunks */
|
||||
{
|
||||
/* Virtual functions tables are full of pointers
|
||||
|
|
@ -812,7 +829,8 @@ pascal_object_print_value_fields (struct type *type, const gdb_byte *valaddr,
|
|||
}
|
||||
else if (field_is_static (&TYPE_FIELD (type, i)))
|
||||
{
|
||||
/* struct value *v = value_static_field (type, i); v4.17 specific */
|
||||
/* struct value *v = value_static_field (type, i);
|
||||
v4.17 specific */
|
||||
struct value *v;
|
||||
|
||||
v = value_from_longest (TYPE_FIELD_TYPE (type, i),
|
||||
|
|
@ -941,8 +959,9 @@ pascal_object_print_value (struct type *type, const gdb_byte *valaddr,
|
|||
if (boffset == -1)
|
||||
fprintf_filtered (stream, "<invalid address>");
|
||||
else
|
||||
pascal_object_print_value_fields (baseclass, base_valaddr, address + boffset,
|
||||
stream, recurse, val, options,
|
||||
pascal_object_print_value_fields (baseclass, base_valaddr,
|
||||
address + boffset, stream,
|
||||
recurse, val, options,
|
||||
(struct type **) obstack_base (&dont_print_vb_obstack),
|
||||
0);
|
||||
fputs_filtered (", ", stream);
|
||||
|
|
@ -994,7 +1013,8 @@ pascal_object_print_static_field (struct value *val,
|
|||
{
|
||||
if (value_address (val) == first_dont_print[i])
|
||||
{
|
||||
fputs_filtered ("<same as static member of an already seen type>",
|
||||
fputs_filtered ("\
|
||||
<same as static member of an already seen type>",
|
||||
stream);
|
||||
return;
|
||||
}
|
||||
|
|
@ -1016,7 +1036,8 @@ pascal_object_print_static_field (struct value *val,
|
|||
common_val_print (val, stream, recurse, &opts, current_language);
|
||||
}
|
||||
|
||||
extern initialize_file_ftype _initialize_pascal_valprint; /* -Wmissing-prototypes */
|
||||
/* -Wmissing-prototypes */
|
||||
extern initialize_file_ftype _initialize_pascal_valprint;
|
||||
|
||||
void
|
||||
_initialize_pascal_valprint (void)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue