diff options
| author | Vincent Celier <celier@adacore.com> | 2008-08-05 13:53:04 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 15:53:04 +0200 |
| commit | 21f560ba8e287996eb0af332ba965e7d6e62a77e (patch) | |
| tree | adae851b3d7f72bda3095ce2bd2b0d43d1647f4b | |
| parent | 43540ec65f8139e1470ce00a649dc10252ab7c1e (diff) | |
| download | gcc-21f560ba8e287996eb0af332ba965e7d6e62a77e.zip gcc-21f560ba8e287996eb0af332ba965e7d6e62a77e.tar.gz gcc-21f560ba8e287996eb0af332ba965e7d6e62a77e.tar.bz2 | |
a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put (File).
2008-08-05 Vincent Celier <celier@adacore.com>
* a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put
(File).
* a-ztdeio.adb: Ditto.
From-SVN: r138710
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/a-wtdeio.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/a-ztdeio.adb | 6 |
3 files changed, 11 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d83538f..e2e204d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2008-08-05 Vincent Celier <celier@adacore.com> + + * a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put + (File). + + * a-ztdeio.adb: Ditto. + 2008-08-05 Pascal Obry <obry@adacore.com> * adaint.c, adaint.h, s-os_lib.adb, s-os_lib.ads: Add support for the diff --git a/gcc/ada/a-wtdeio.adb b/gcc/ada/a-wtdeio.adb index 9101650..bdc11f3 100644 --- a/gcc/ada/a-wtdeio.adb +++ b/gcc/ada/a-wtdeio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -139,10 +139,8 @@ package body Ada.Wide_Text_IO.Decimal_IO is Aft : Field := Default_Aft; Exp : Field := Default_Exp) is - pragma Unreferenced (Fore); - -- ??? how come this is unreferenced, sounds wrong ??? begin - Put (Current_Output, Item, Aft, Exp); + Put (Current_Output, Item, Fore, Aft, Exp); end Put; procedure Put diff --git a/gcc/ada/a-ztdeio.adb b/gcc/ada/a-ztdeio.adb index 796dfc8..564431c 100644 --- a/gcc/ada/a-ztdeio.adb +++ b/gcc/ada/a-ztdeio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -139,10 +139,8 @@ package body Ada.Wide_Wide_Text_IO.Decimal_IO is Aft : Field := Default_Aft; Exp : Field := Default_Exp) is - pragma Unreferenced (Fore); - -- ??? how come this is unreferenced, sounds wrong ??? begin - Put (Current_Output, Item, Aft, Exp); + Put (Current_Output, Item, Fore, Aft, Exp); end Put; procedure Put |