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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 07ddbe830deb50ae91f50d21c4a5b8b76ba1d079..30290fa8858cb882d545ecf951c91f6404650d44 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2017-06-12  Eric Botcazou  <ebotcazou@adacore.com>
+
+       PR bootstrap/80897
+       * exp_ch3.adb (Make_Predefined_Primitive_Specs): Use Positive index.
+
 2017-06-12  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR ada/81070

diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 6d9bdaab8c69cb47fa14ff2d84b6fd84a0d24657..00d74c5fe1fe8c661277cbb37472cd68b84a880c 100644 (file)
--- 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,