diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:17:24 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:17:24 +0000 |
| commit | d8631d213f802a03c92513bb264b2f4ae65eb259 (patch) | |
| tree | 13c27622bdebda8f496bd4c334b88577a15dbc76 /gdb/ada-valprint.c | |
| parent | cb18ec49971fe854438c21c6fd9bd08672d476e6 (diff) | |
| download | gdb-d8631d213f802a03c92513bb264b2f4ae65eb259.zip gdb-d8631d213f802a03c92513bb264b2f4ae65eb259.tar.gz gdb-d8631d213f802a03c92513bb264b2f4ae65eb259.tar.bz2 | |
* ada-valprint.c (ada_val_print_1): When implicitly dereferencing
a reference type, pass the reference type directly to unpack_pointer.
* c-valprint.c (c_val_print): Likewise.
* f-valprint.c (f_val_print): Likewise.
* m2-valprint.c (print_variable_at_address, m2_val_print): Likewise.
* p-valprint.c (pascal_val_print): Likewise.
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 7ae8c0f..dbce8d3 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -891,9 +891,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, if (TYPE_CODE (elttype) != TYPE_CODE_UNDEF) { - LONGEST deref_val_int = (LONGEST) - unpack_pointer (lookup_pointer_type (builtin_type_void), - valaddr); + LONGEST deref_val_int = (LONGEST) unpack_pointer (type, valaddr); if (deref_val_int != 0) { struct value *deref_val = |