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

        moduli >= 2**31.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d67ea1c0d1e0176d910267a44c57f1528eb23f92..f6d30f1c863b2794df8778211310ff30b19966ff 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 53505165926bfe26df819b8d9675734dbd6d5864..3c4f05a5dd6b06e3ba4cdb52dd1c09978e072f36 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