darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-04 16:18:18 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source 
of builtin_type_int.
	(ada_evaluate_subexp) [UNOP_IN_RANGE]: Use operand range type
	instead of builtin_type_int.
This commit is contained in:
Ulrich Weigand 2008-09-10 09:47:39 +00:00
parent 1830312f60
commit 030b4912c6
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog
View File

@ -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> 2008-09-09 Pedro Alves <pedro@codesourcery.com>
* infrun.c (normal_stop): Run hook-stop last. * infrun.c (normal_stop): Run hook-stop last.

7
gdb/ada-lang.c
View File

@ -2621,7 +2621,7 @@ ada_array_length (struct value *arr, int n)
} }
else else
return return
value_from_longest (builtin_type_int, value_from_longest (builtin_type_int32,
value_as_long (desc_one_bound (desc_bounds (arr), value_as_long (desc_one_bound (desc_bounds (arr),
n, 1)) n, 1))
- value_as_long (desc_one_bound (desc_bounds (arr), - 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); return value_from_longest (builtin_type_int, (LONGEST) 1);
case TYPE_CODE_RANGE: case TYPE_CODE_RANGE:
arg2 = value_from_longest (builtin_type_int, TYPE_LOW_BOUND (type)); arg2 = value_from_longest (type, TYPE_LOW_BOUND (type));
arg3 = value_from_longest (builtin_type_int, arg3 = value_from_longest (type, TYPE_HIGH_BOUND (type));
TYPE_HIGH_BOUND (type));
return return
value_from_longest (builtin_type_int, value_from_longest (builtin_type_int,
(value_less (arg1, arg3) (value_less (arg1, arg3)