* ada-lang.c (ada_coerce_to_simple_array_type): Use builtin_type_int32

[deliverable/binutils-gdb.git] / gdb / eval.c

diff --git a/gdb/eval.c b/gdb/eval.c
index 0cccc82866276857a1e34418a0ab255e0d51c44c..66259b9f95df1f3ca9bcf126479daf9d6f613cab 100644 (file)
--- a/gdb/eval.c
+++ b/gdb/eval.c
@@ -2028,7 +2028,7 @@ evaluate_subexp_standard (struct type *expect_type,
 
        /* Construct a value node with the value of the offset */
 
-       arg2 = value_from_longest (builtin_type_f_integer, offset_item);
+       arg2 = value_from_longest (builtin_type_int32, offset_item);
 
        /* Let us now play a dirty trick: we will take arg1 
           which is a value node pointing to the topmost level