From 3b387bff56ed5ca2df4f271540ea9839ba84e57e Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 12 Jun 2017 11:28:33 +0000 Subject: [PATCH] re PR bootstrap/80897 (gnat bootstrap broken on SPARC64/Linux) PR bootstrap/80897 * exp_ch3.adb (Make_Predefined_Primitive_Specs): Use Positive index. From-SVN: r249119 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/exp_ch3.adb | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 07ddbe830de..30290fa8858 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-06-12 Eric Botcazou + + PR bootstrap/80897 + * exp_ch3.adb (Make_Predefined_Primitive_Specs): Use Positive index. + 2017-06-12 Eric Botcazou PR ada/81070 diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 6d9bdaab8c6..00d74c5fe1f 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -9216,7 +9216,7 @@ package body Exp_Ch3 is declare Stream_Op_TSS_Names : - constant array (Integer range <>) of TSS_Name_Type := + constant array (Positive range <>) of TSS_Name_Type := (TSS_Stream_Read, TSS_Stream_Write, TSS_Stream_Input, -- 2.30.2