From 21f560ba8e287996eb0af332ba965e7d6e62a77e Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Tue, 5 Aug 2008 13:53:04 +0000 Subject: [PATCH] a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put (File). 2008-08-05 Vincent Celier * a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put (File). * a-ztdeio.adb: Ditto. From-SVN: r138710 --- gcc/ada/ChangeLog | 7 +++++++ gcc/ada/a-wtdeio.adb | 6 ++---- 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 + + * a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put + (File). + + * a-ztdeio.adb: Ditto. + 2008-08-05 Pascal Obry * 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 -- 2.7.4