mirrors/binutils-gdb
1
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-11-25 02:53:48 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
are undefined but size is known.
This commit is contained in:
Pierre Muller 2010-05-17 15:29:02 +00:00
parent 77382aeed2
commit 7a081a30fd
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -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> 2010-05-17 Pedro Alves <pedro@codesourcery.com>
* procfs.c: Reformat. * procfs.c: Reformat.

8
gdb/p-valprint.c
View File

@ -480,6 +480,14 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
fputs_filtered ("[", stream); fputs_filtered ("[", stream);
i = get_discrete_bounds (range, &low_bound, &high_bound); 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: maybe_bad_bstring:
if (i < 0) if (i < 0)
{ {