diff options
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 2 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index d67ea1c..f6d30f1 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,4 +1,9 @@ -2008-09-30 Paul Hilfinger <brobecker@adacore.com> +2008-09-30 Paul Hilfinger <hilfinger@adacore.com> + + * ada-lang.c (ada_modulus): Correct to avoid sign problem with + moduli >= 2**31. + +2008-09-30 Paul Hilfinger <hilfinger@adacore.com> * ada-lang.c (ada_lookup_struct_elt_type): Handle case of a "naked" variant branch. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 5350516..3c4f05a 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -9626,7 +9626,7 @@ ada_is_modular_type (struct type *type) ULONGEST ada_modulus (struct type * type) { - return (ULONGEST) TYPE_HIGH_BOUND (type) + 1; + return (ULONGEST) (unsigned int) TYPE_HIGH_BOUND (type) + 1; } |