diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 07ddbe8..30290fa 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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 * s-interr-hwint.adb: Reinstate. * gcc-interface/Makefile.in (RTEMS): Use it again. diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 6d9bdaa..00d74c5 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, |