From 503fc476079060728f160f1a1af8b048fdef0c7e Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 12 Sep 2025 10:59:20 -0600 Subject: [PATCH] Fix 32-bit failure in array_long_idx.exp Testing on the AdaCore-internal equivalent to array_long_idx.exp showed that it failed on 32-bit targets. This patch fixes the problem by arranging to use types that aren't target-dependent. --- gdb/testsuite/gdb.ada/array_long_idx/main.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/gdb/testsuite/gdb.ada/array_long_idx/main.adb b/gdb/testsuite/gdb.ada/array_long_idx/main.adb index c2c480d158e..6c4971f71d6 100644 --- a/gdb/testsuite/gdb.ada/array_long_idx/main.adb +++ b/gdb/testsuite/gdb.ada/array_long_idx/main.adb @@ -17,7 +17,10 @@ with Pck; use Pck; procedure Main is - type My_Array is array (Integer range <>, Long_Integer range <>) of Integer; + type Shorter_Integer is range -2147483648 .. 2147483647; + type Longer_Integer is range -9223372036854775808 .. 9223372036854775807; + type My_Array is array (Shorter_Integer range <>, + Longer_Integer range <>) of Integer; type My_Reg_Acc is access all My_Array; -- 2.47.3