* ada-lang.c (ada_array_length): Use builtin_type_int32 instead

	of builtin_type_int.
	(ada_evaluate_subexp) [UNOP_IN_RANGE]: Use operand range type
	instead of builtin_type_int.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 848e00e..1c00e78 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+2008-09-10  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * ada-lang.c (ada_array_length): Use builtin_type_int32 instead
+       of builtin_type_int.
+       (ada_evaluate_subexp) [UNOP_IN_RANGE]: Use operand range type
+       instead of builtin_type_int.
+
 2008-09-09  Pedro Alves  <pedro@codesourcery.com>
 
        * infrun.c (normal_stop): Run hook-stop last.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 643cbec..8845433 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -2621,7 +2621,7 @@ ada_array_length (struct value *arr, int n)
     }
   else
     return
-      value_from_longest (builtin_type_int,
+      value_from_longest (builtin_type_int32,
                           value_as_long (desc_one_bound (desc_bounds (arr),
                                                          n, 1))
                           - value_as_long (desc_one_bound (desc_bounds (arr),
@@ -8842,9 +8842,8 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
           return value_from_longest (builtin_type_int, (LONGEST) 1);
 
         case TYPE_CODE_RANGE:
-          arg2 = value_from_longest (builtin_type_int, TYPE_LOW_BOUND (type));
-          arg3 = value_from_longest (builtin_type_int,
-                                     TYPE_HIGH_BOUND (type));
+         arg2 = value_from_longest (type, TYPE_LOW_BOUND (type));
+         arg3 = value_from_longest (type, TYPE_HIGH_BOUND (type));
           return
             value_from_longest (builtin_type_int,
                                 (value_less (arg1, arg3)