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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d83538f..e2e204d 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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