aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
Diffstat (limited to 'gdb')
-rw-r--r--gdb/ChangeLog5
-rw-r--r--gdb/p-valprint.c8
2 files changed, 13 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 33d15ea..0d2d43c 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-17 Pierre Muller <muller@ics.u-strasbg.fr>
+
+ * p-valprint.c (pascal_val_print): Handle set type if range limits
+ are undefined but size is known.
+
2010-05-17 Pedro Alves <pedro@codesourcery.com>
* procfs.c: Reformat.
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 78cba98..5f495b5 100644
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -480,6 +480,14 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
fputs_filtered ("[", stream);
i = get_discrete_bounds (range, &low_bound, &high_bound);
+ if (low_bound == 0 && high_bound == -1 && TYPE_LENGTH (type) > 0)
+ {
+ /* If we know the size of the set type, we can figure out the
+ maximum value. */
+ i = 0;
+ high_bound = TYPE_LENGTH (type) * TARGET_CHAR_BIT - 1;
+ TYPE_HIGH_BOUND (range) = high_bound;
+ }
maybe_bad_bstring:
if (i < 0)
{