* ada-lang.c (ada_modulus): Correct to avoid sign problem with

        moduli >= 2**31.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d67ea1c..f6d30f1 100644 (file)
--- 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 (file)
--- 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;
 }
 \f