MatCat.OpenSource/8sa1-binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* p-valprint.c (pascal_val_print): Use extract_typed_address

Browse Source 
to extract reference value.
This commit is contained in:
Ulrich Weigand 2009-05-18 13:45:51 +00:00
parent e035e3736f
commit 830bb937a1
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2009-05-18 Ulrich Weigand <uweigand@de.ibm.com>
* p-valprint.c (pascal_val_print): Use extract_typed_address
to extract reference value.
2009-05-18 Ulrich Weigand <uweigand@de.ibm.com>
* doublest.c (NAN): Remove unused define.

7
gdb/p-valprint.c
View File

@ -251,11 +251,10 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
elttype = check_typedef (TYPE_TARGET_TYPE (type));
if (options->addressprint)
{
CORE_ADDR addr
= extract_typed_address (valaddr + embedded_offset, type);
fprintf_filtered (stream, "@");
/* Extract the address, assume that it is unsigned. */
fputs_filtered (paddress (
extract_unsigned_integer (valaddr + embedded_offset,
gdbarch_ptr_bit (current_gdbarch) / HOST_CHAR_BIT)), stream);
fputs_filtered (paddress (addr), stream);
if (options->deref_ref)
fputs_filtered (": ", stream);
}