diff options
Diffstat (limited to 'gcc/ada/a-wtenau.adb')
| -rw-r--r-- | gcc/ada/a-wtenau.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-wtenau.adb b/gcc/ada/a-wtenau.adb index 0bba4ec1de2..fcb4e1e67f5 100644 --- a/gcc/ada/a-wtenau.adb +++ b/gcc/ada/a-wtenau.adb @@ -159,7 +159,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is begin Check_On_One_Line (TFT (File), Actual_Width); - if Set = Lower_Case and then Item (1) /= ''' then + if Set = Lower_Case and then Item (Item'First) /= ''' then declare Iteml : Wide_String (Item'First .. Item'Last); @@ -204,7 +204,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is Ptr := To'First; for J in Item'Range loop if Set = Lower_Case - and then Item (1) /= ''' + and then Item (Item'First) /= ''' and then Is_Character (Item (J)) then To (Ptr) := |