aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorUlrich Weigand <uweigand@de.ibm.com>2008-09-11 14:17:24 +0000
committerUlrich Weigand <uweigand@de.ibm.com>2008-09-11 14:17:24 +0000
commitd8631d213f802a03c92513bb264b2f4ae65eb259 (patch)
tree13c27622bdebda8f496bd4c334b88577a15dbc76
parentcb18ec49971fe854438c21c6fd9bd08672d476e6 (diff)
downloadgdb-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.
-rw-r--r--gdb/ChangeLog9
-rw-r--r--gdb/ada-valprint.c4
-rw-r--r--gdb/c-valprint.c3
-rw-r--r--gdb/f-valprint.c3
-rw-r--r--gdb/m2-valprint.c8
-rw-r--r--gdb/p-valprint.c3
6 files changed, 15 insertions, 15 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ec43cbd..4249f7f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,14 @@
2008-09-11 Ulrich Weigand <uweigand@de.ibm.com>
+ * 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.
+
+2008-09-11 Ulrich Weigand <uweigand@de.ibm.com>
+
* eval.c (evaluate_subexp_standard): Use builtin_type_int8
to construct the EVAL_SKIP dummy return value.
* ada-lang.c (ada_evaluate_subexp): Likewise.
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 =
diff --git a/gdb/c-valprint.c b/gdb/c-valprint.c
index 30a1be7..9d8b439 100644
--- a/gdb/c-valprint.c
+++ b/gdb/c-valprint.c
@@ -310,8 +310,7 @@ c_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
struct value *deref_val =
value_at
(TYPE_TARGET_TYPE (type),
- unpack_pointer (lookup_pointer_type (builtin_type_void),
- valaddr + embedded_offset));
+ unpack_pointer (type, valaddr + embedded_offset));
common_val_print (deref_val, stream, format, deref_ref,
recurse, pretty, current_language);
}
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 4cbb788..69c3395 100644
--- a/gdb/f-valprint.c
+++ b/gdb/f-valprint.c
@@ -444,8 +444,7 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
struct value *deref_val =
value_at
(TYPE_TARGET_TYPE (type),
- unpack_pointer (lookup_pointer_type (builtin_type_void),
- valaddr + embedded_offset));
+ unpack_pointer (type, valaddr + embedded_offset));
common_val_print (deref_val, stream, format, deref_ref, recurse,
pretty, current_language);
}
diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
index 1258d07..e09ec21 100644
--- a/gdb/m2-valprint.c
+++ b/gdb/m2-valprint.c
@@ -258,10 +258,7 @@ print_variable_at_address (struct type *type,
if (TYPE_CODE (elttype) != TYPE_CODE_UNDEF)
{
struct value *deref_val =
- value_at
- (TYPE_TARGET_TYPE (type),
- unpack_pointer (lookup_pointer_type (builtin_type_void),
- valaddr));
+ value_at (TYPE_TARGET_TYPE (type), unpack_pointer (type, valaddr));
common_val_print (deref_val, stream, format, deref_ref,
recurse, pretty, current_language);
}
@@ -420,8 +417,7 @@ m2_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset,
struct value *deref_val =
value_at
(TYPE_TARGET_TYPE (type),
- unpack_pointer (lookup_pointer_type (builtin_type_void),
- valaddr + embedded_offset));
+ unpack_pointer (type, valaddr + embedded_offset));
common_val_print (deref_val, stream, format, deref_ref,
recurse, pretty, current_language);
}
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 23a04da..f76bf56 100644
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -267,8 +267,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
struct value *deref_val =
value_at
(TYPE_TARGET_TYPE (type),
- unpack_pointer (lookup_pointer_type (builtin_type_void),
- valaddr + embedded_offset));
+ unpack_pointer (type, valaddr + embedded_offset));
common_val_print (deref_val, stream, format, deref_ref,
recurse + 1, pretty, current_language);
}