diff options
Diffstat (limited to 'gcc/ada/a-tienau.adb')
-rw-r--r-- | gcc/ada/a-tienau.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-tienau.adb b/gcc/ada/a-tienau.adb index aadb479ec7e..a43c4cbd1d2 100644 --- a/gcc/ada/a-tienau.adb +++ b/gcc/ada/a-tienau.adb @@ -128,7 +128,7 @@ package body Ada.Text_IO.Enumeration_Aux is Actual_Width : constant Count := Count'Max (Count (Width), Item'Length); begin - if Set = Lower_Case and then Item (1) /= ''' then + if Set = Lower_Case and then Item (Item'First) /= ''' then declare Iteml : String (Item'First .. Item'Last); @@ -167,7 +167,7 @@ package body Ada.Text_IO.Enumeration_Aux is else Ptr := To'First; for J in Item'Range loop - if Set = Lower_Case and then Item (1) /= ''' then + if Set = Lower_Case and then Item (Item'First) /= ''' then To (Ptr) := To_Lower (Item (J)); else To (Ptr) := Item (J); |