From: Joel Brobecker <brobecker@gnat.com>
Date: Tue, 30 Sep 2008 21:53:32 +0000 (+0000)
Subject:         * ada-lang.c (ada_modulus): Correct to avoid sign problem with
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=a474e947a7f0d6ce93c27392ca5fae94c094ddbd;p=pf3gnuchains%2Fpf3gnuchains3x.git

    * ada-lang.c (ada_modulus): Correct to avoid sign problem with
        moduli >= 2**31.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index d67ea1c0d1..f6d30f1c86 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 5350516592..3c4f05a5dd 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;
 }