OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ada_val_print_1: Go through val_print instead of recursive call to self. 

This is to standardize a little bit how printing is done, and in
particular make sure that everyone goes through val_print when
printing sub-objects.  This helps making sure that standard features
handled by val_print get activated when expected.

gdb/ChangeLog:

        * ada-valprint.c (ada_val_print_1): Replace calls to
        ada_val_print_1 by calls to val_print.
This commit is contained in:
Joel Brobecker 2013-12-19 15:27:00 +04:00
parent cd1630f983
commit 3a92c861bb
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2014-01-07 Joel Brobecker <brobecker@adacore.com>
* ada-valprint.c (ada_val_print_1): Replace calls to
ada_val_print_1 by calls to val_print.
2014-01-07 Joel Brobecker <brobecker@adacore.com>
* ada-valprint.c (ada_val_print_1): Add parameter "language".

23
gdb/ada-valprint.c
View File

@ -811,11 +811,9 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr,
fprintf_filtered (stream, "0x0");
}
else
ada_val_print_1 (value_type (val),
value_contents_for_printing (val),
value_embedded_offset (val),
value_address (val), stream, recurse,
val, options, language);
val_print (value_type (val), value_contents_for_printing (val),
value_embedded_offset (val), value_address (val),
stream, recurse, val, options, language);
value_free_to_mark (mark);
return;
}
@ -873,17 +871,14 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr,
= value_from_contents_and_address (type, valaddr + offset, 0);
struct value *v = value_cast (target_type, v1);
ada_val_print_1 (target_type,
value_contents_for_printing (v),
value_embedded_offset (v), 0,
stream, recurse + 1, v, options,
language);
val_print (target_type, value_contents_for_printing (v),
value_embedded_offset (v), 0, stream,
recurse + 1, v, options, language);
}
else
ada_val_print_1 (TYPE_TARGET_TYPE (type),
valaddr, offset,
address, stream, recurse,
original_value, options, language);
val_print (TYPE_TARGET_TYPE (type), valaddr, offset,
address, stream, recurse, original_value,
options, language);
return;
}
else