From 030b4912c632cdd459ca59e1b196c4293a691292 Mon Sep 17 00:00:00 2001 From: Ulrich Weigand Date: Wed, 10 Sep 2008 09:47:39 +0000 Subject: [PATCH] * 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. --- gdb/ChangeLog | 7 +++++++ gdb/ada-lang.c | 7 +++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 848e00e3100..1c00e78f244 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2008-09-10 Ulrich Weigand + + * 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 * infrun.c (normal_stop): Run hook-stop last. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 643cbec1e61..8845433061f 100644 --- 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) -- 2.30.2