mirrors/binutils-gdb
1
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-11-23 18:14:13 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

* ada-valprint.c: Include "objfiles.h".

Browse Source 
(ada_val_print_1): Use the gdbarch associated with the objfile whether
	a System.Address type is defined to retrieve the proper pointer type
	to use to print it.
This commit is contained in:
Ulrich Weigand 2008-09-11 14:19:44 +00:00
parent 3cb382c9d3
commit 8ca1c40ee1
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog
View File

@ -1,3 +1,10 @@
2008-09-11 Ulrich Weigand <uweigand@de.ibm.com>
* ada-valprint.c: Include "objfiles.h".
(ada_val_print_1): Use the gdbarch associated with the objfile whether
a System.Address type is defined to retrieve the proper pointer type
to use to print it.
2008-09-11 Ulrich Weigand <uweigand@de.ibm.com>
* ada-lang.c (value_pos_atr): Add TYPE argument. Use it as

16
gdb/ada-valprint.c
View File

@ -33,6 +33,7 @@
#include "c-lang.h"
#include "infcall.h"
#include "exceptions.h"
#include "objfiles.h"
/* Encapsulates arguments to ada_val_print. */
struct ada_val_print_args
@ -792,18 +793,27 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
{
print_scalar_formatted (valaddr, type, format, 0, stream);
}
else if (ada_is_system_address_type (type))
else if (ada_is_system_address_type (type)
&& TYPE_OBJFILE (type) != NULL)
{
/* FIXME: We want to print System.Address variables using
the same format as for any access type. But for some
reason GNAT encodes the System.Address type as an int,
so we have to work-around this deficiency by handling
System.Address values as a special case. */
System.Address values as a special case.
We do this only for System.Address types defined in an
objfile. For the built-in version of System.Address we
have installed the proper type to begin with. */
struct gdbarch *gdbarch = get_objfile_arch (TYPE_OBJFILE (type));
struct type *ptr_type = builtin_type (gdbarch)->builtin_data_ptr;
fprintf_filtered (stream, "(");
type_print (type, "", stream, -1);
fprintf_filtered (stream, ") ");
fputs_filtered (paddress (extract_typed_address
(valaddr, builtin_type_void_data_ptr)),
(valaddr, ptr_type)),
stream);
}
else