Skip to content

R
riscv-gcc-1
Commit 21f560ba by Vincent Celier Committed by Arnaud Charlet
Options

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
parent 43540ec6
Showing with 11 additions and 8 deletions
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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment