From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 12 Jun 2017 11:28:33 +0000 (+0000)
Subject: re PR bootstrap/80897 (gnat bootstrap broken on SPARC64/Linux)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3b387bff56ed5ca2df4f271540ea9839ba84e57e;p=gcc.git

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 07ddbe830de..30290fa8858 100644
--- 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 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,