diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-09-30 21:53:32 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-09-30 21:53:32 +0000 |
| commit | a474e947a7f0d6ce93c27392ca5fae94c094ddbd (patch) | |
| tree | d1aaeec586adfa018ebbaea28cb14bfb944d3f94 | |
| parent | 915c7c520062a28b8bf2681864f9510d450bea7d (diff) | |
| download | gdb-a474e947a7f0d6ce93c27392ca5fae94c094ddbd.tar.gz | |
* ada-lang.c (ada_modulus): Correct to avoid sign problem with
moduli >= 2**31.
| -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 d67ea1c0d1e..f6d30f1c863 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 53505165926..3c4f05a5dd6 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; } |