* p-valprint.c (pascal_val_print): Handle set type if range limits

	are undefined but size is known.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 33d15ea8897b46d5f225e49da806c0d98481c111..0d2d43c37142b11aa5a555f9cd9327e5fcbaafe5 100644 (file)
--- 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 78cba98d3866e6979c45d9284fd3e1ece43396c7..5f495b5d2bce7e7549f52735bf27e8dd45597770 100644 (file)
--- 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)
            {