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

gcc/ada/ChangeLog

+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

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

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