From a481c9b40f0de76bf9e86b9aba7c1fe66cd7add0 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Fri, 8 Sep 2017 11:38:38 +0200 Subject: re PR ada/80888 (Wide_Text_IO defaults to bracket encoding even if -gnatW8 specified) 2017-09-08 Bob Duff PR ada/80888 * a-textio.adb, a-witeio.adb, a-ztexio.adb (Set_WCEM): Use Default_WCEM by default (i.e. if the encoding is not specified by the Form string). From-SVN: r251874 --- gcc/ada/a-textio.adb | 5 ++--- gcc/ada/a-witeio.adb | 5 ++--- 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 -- cgit v1.1