diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-textio.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/a-witeio.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/a-ztexio.adb | 5 |
3 files changed, 6 insertions, 9 deletions
diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index f9219e3..0f842a0 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1810,11 +1810,10 @@ package body Ada.Text_IO is Stop : Natural; begin - File.WC_Method := WCEM_Brackets; FIO.Form_Parameter (File.Form.all, "wcem", Start, Stop); if Start = 0 then - File.WC_Method := WCEM_Brackets; + File.WC_Method := Default_WCEM; else if Stop = Start then diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index 59e06e2..aadc5ee 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1652,11 +1652,10 @@ package body Ada.Wide_Text_IO is Stop : Natural; begin - File.WC_Method := WCEM_Brackets; FIO.Form_Parameter (File.Form.all, "wcem", Start, Stop); if Start = 0 then - File.WC_Method := WCEM_Brackets; + File.WC_Method := Default_WCEM; else if Stop = Start then diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb index 6102942..39fd38a 100644 --- a/gcc/ada/a-ztexio.adb +++ b/gcc/ada/a-ztexio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1626,11 +1626,10 @@ package body Ada.Wide_Wide_Text_IO is Stop : Natural; begin - File.WC_Method := WCEM_Brackets; FIO.Form_Parameter (File.Form.all, "wcem", Start, Stop); if Start = 0 then - File.WC_Method := WCEM_Brackets; + File.WC_Method := Default_WCEM; else if Stop = Start then |