Skip to content

R
riscv-gcc-1
Commit 0ae9f22f by Robert Dewar Committed by Arnaud Charlet
Options

s-gloloc-mingw.adb, [...]: Minor reformatting. 

2006-02-13  Robert Dewar  <dewar@adacore.com>

	* s-gloloc-mingw.adb, a-cgaaso.ads, a-stzmap.adb, a-stzmap.adb,
	a-stzmap.ads, a-ztcoio.adb, a-ztedit.adb, a-ztedit.ads, a-ztenau.adb,
	a-ztenau.ads, a-colien.adb, a-colien.ads, a-colire.adb, a-colire.ads,
	a-comlin.adb, a-decima.adb, a-decima.ads, a-direio.adb, a-direio.adb,
	a-direio.adb, a-direio.ads, a-ngcoty.adb, a-ngcoty.ads, a-nuflra.adb,
	a-nuflra.ads, a-sequio.adb, a-sequio.ads, a-sequio.ads, a-storio.ads,
	a-stream.ads, a-ststio.adb, a-ststio.adb, a-ststio.ads, a-ststio.ads,
	a-stwima.adb, a-stwima.adb, a-stwima.ads, a-stwise.adb, a-teioed.adb,
	a-teioed.ads, a-ticoau.adb, a-ticoau.ads, a-ticoio.adb, a-tasatt.ads,
	a-tideau.adb, a-tideau.ads, a-tideio.adb, a-tideio.ads, a-tienau.adb,
	a-tienau.ads, a-tienio.adb, a-tienio.ads, a-tifiio.ads, a-tiflau.adb,
	a-tiflau.ads, a-tiflio.adb, a-tiflio.adb, a-tiflio.ads, a-tigeau.ads,
	a-tiinau.adb, a-tiinau.ads, a-tiinio.adb, a-tiinio.ads, a-timoio.adb,
	a-timoio.ads, a-titest.adb, a-titest.ads, a-wtcoio.adb, a-wtdeau.adb,
	a-wtdeau.ads, a-wtdeio.adb, a-wtdeio.ads, a-wtedit.adb, a-wtedit.adb,
	a-wtedit.ads, a-wtenau.adb, a-wtenau.ads, a-wtenau.ads, a-wtenio.adb,
	a-wtenio.ads, a-wtfiio.adb, a-wtfiio.ads, a-wtflau.adb, a-wtflau.ads,
	a-wtflio.adb, a-wtflio.adb, a-wtflio.ads, a-wtgeau.ads, a-wtinau.adb,
	a-wtinau.ads, a-wtinio.adb, a-wtinio.ads, a-wtmoau.adb, a-wtmoau.ads,
	a-wtmoio.adb, a-wtmoio.ads, xref_lib.adb, xref_lib.ads, xr_tabls.adb,
	g-boubuf.adb, g-boubuf.ads, g-cgideb.adb, g-io.adb, gnatdll.adb,
	g-pehage.adb, i-c.ads, g-spitbo.adb, g-spitbo.ads, mdll.adb,
	mlib-fil.adb, mlib-utl.adb, mlib-utl.ads, prj-env.adb, prj-tree.adb,
	prj-tree.ads, prj-util.adb, s-arit64.adb, s-asthan.ads, s-auxdec.adb,
	s-auxdec.ads, s-chepoo.ads, s-direio.adb, s-direio.ads, s-errrep.adb,
	s-errrep.ads, s-fileio.adb, s-fileio.ads, s-finroo.adb, s-finroo.ads,
	s-gloloc.adb, s-gloloc.ads, s-io.adb, s-io.ads, s-rpc.adb,
	s-rpc.ads, s-shasto.ads, s-sequio.adb, s-stopoo.ads, s-stratt.adb,
	s-stratt.ads, s-taasde.adb, s-taasde.ads, s-tadert.adb, s-sequio.ads,
	s-taskin.adb, s-tasque.adb, s-tasque.ads, s-wchjis.ads, makegpr.adb,
	a-coinve.adb, a-cidlli.adb, eval_fat.adb, exp_dist.ads, exp_smem.adb,
	fmap.adb, g-dyntab.ads, g-expect.adb, lib-xref.ads, osint.adb,
	par-load.adb, restrict.adb, sinput-c.ads, a-cdlili.adb,
	system-vms.ads, system-vms-zcx.ads, system-vms_64.ads: Minor
	reformatting.

From-SVN: r111023
parent 85a40c43
Showing with 937 additions and 967 deletions
gcc/ada/a-cdlili.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -499,9 +499,7 @@ package body Ada.Containers.Doubly_Linked_Lists is
procedure Sort (Container : in out List) is
procedure Partition
(Pivot : in Node_Access;
Back : in Node_Access);
procedure Partition (Pivot : Node_Access; Back : Node_Access);
procedure Sort (Front, Back : Node_Access);
......@@ -509,10 +507,7 @@ package body Ada.Containers.Doubly_Linked_Lists is
-- Partition --
---------------
procedure Partition
(Pivot : Node_Access;
Back : Node_Access)
is
procedure Partition (Pivot : Node_Access; Back : Node_Access) is
Node : Node_Access := Pivot.Next;
begin
......@@ -948,7 +943,7 @@ package body Ada.Containers.Doubly_Linked_Lists is
procedure Query_Element
(Position : Cursor;
Process : not null access procedure (Element : in Element_Type))
Process : not null access procedure (Element : Element_Type))
is
begin
if Position.Node = null then
......
gcc/ada/a-cgaaso.ads
......@@ -7,7 +7,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -40,6 +40,6 @@ generic
with procedure Swap (Left, Right : Index_Type) is <>;
procedure Ada.Containers.Generic_Anonymous_Array_Sort
(First, Last : in Index_Type'Base);
(First, Last : Index_Type'Base);
pragma Pure (Ada.Containers.Generic_Anonymous_Array_Sort);
gcc/ada/a-cidlli.adb
......@@ -7,7 +7,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -789,7 +789,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is
procedure Iterate
(Container : List;
Process : not null access procedure (Position : in Cursor))
Process : not null access procedure (Position : Cursor))
is
C : List renames Container'Unrestricted_Access.all;
B : Natural renames C.Busy;
......@@ -969,7 +969,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is
procedure Query_Element
(Position : Cursor;
Process : not null access procedure (Element : in Element_Type))
Process : not null access procedure (Element : Element_Type))
is
begin
if Position.Node = null then
......@@ -1233,7 +1233,7 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is
procedure Reverse_Iterate
(Container : List;
Process : not null access procedure (Position : in Cursor))
Process : not null access procedure (Position : Cursor))
is
C : List renames Container'Unrestricted_Access.all;
B : Natural renames C.Busy;
......
gcc/ada/a-coinve.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2004-2005, Free Software Foundation, Inc. --
-- Copyright (C) 2004-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -1620,7 +1620,7 @@ package body Ada.Containers.Indefinite_Vectors is
procedure Iterate
(Container : Vector;
Process : not null access procedure (Position : in Cursor))
Process : not null access procedure (Position : Cursor))
is
V : Vector renames Container'Unrestricted_Access.all;
B : Natural renames V.Busy;
......@@ -1811,7 +1811,7 @@ package body Ada.Containers.Indefinite_Vectors is
procedure Query_Element
(Container : Vector;
Index : Index_Type;
Process : not null access procedure (Element : in Element_Type))
Process : not null access procedure (Element : Element_Type))
is
V : Vector renames Container'Unrestricted_Access.all;
B : Natural renames V.Busy;
......@@ -1844,7 +1844,7 @@ package body Ada.Containers.Indefinite_Vectors is
procedure Query_Element
(Position : Cursor;
Process : not null access procedure (Element : in Element_Type))
Process : not null access procedure (Element : Element_Type))
is
begin
if Position.Container = null then
......@@ -2189,7 +2189,7 @@ package body Ada.Containers.Indefinite_Vectors is
procedure Reverse_Iterate
(Container : Vector;
Process : not null access procedure (Position : in Cursor))
Process : not null access procedure (Position : Cursor))
is
V : Vector renames Container'Unrestricted_Access.all;
B : Natural renames V.Busy;
......
gcc/ada/a-colien.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1996-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1996-2006, 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- --
......@@ -51,7 +51,7 @@ package body Ada.Command_Line.Environment is
-- Environment_Value --
-----------------------
function Environment_Value (Number : in Positive) return String is
function Environment_Value (Number : Positive) return String is
procedure Fill_Env (E : System.Address; Env_Num : Integer);
pragma Import (C, Fill_Env, "__gnat_fill_env");
......
gcc/ada/a-colien.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1996-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1996-2006, 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- --
......@@ -45,7 +45,7 @@ package Ada.Command_Line.Environment is
-- variables in the environment of the program invoking the function.
-- Otherwise it returns 0. And that's a lot of environment.
function Environment_Value (Number : in Positive) return String;
function Environment_Value (Number : Positive) return String;
-- If the external execution environment supports passing the environment
-- to a program, then Environment_Value returns an implementation-defined
-- value corresponding to the value at relative position Number. If Number
......
gcc/ada/a-colire.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1999-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1999-2006, 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- --
......@@ -60,7 +60,7 @@ package body Ada.Command_Line.Remove is
-- Remove_Argument --
---------------------
procedure Remove_Argument (Number : in Positive) is
procedure Remove_Argument (Number : Positive) is
begin
Initialize;
......
gcc/ada/a-colire.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1999-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1999-2006, 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- --
......@@ -43,7 +43,7 @@
package Ada.Command_Line.Remove is
pragma Preelaborate;
procedure Remove_Argument (Number : in Positive);
procedure Remove_Argument (Number : Positive);
-- Removes the argument identified by Number, which must be in the
-- range 1 .. Argument_Count (i.e. an in range argument number which
-- reflects removals). If Number is out of range Constraint_Error
......
gcc/ada/a-comlin.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -57,7 +57,7 @@ package body Ada.Command_Line is
-- Argument --
--------------
function Argument (Number : in Positive) return String is
function Argument (Number : Positive) return String is
Num : Positive;
begin
......
gcc/ada/a-decima.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -38,8 +38,8 @@ package body Ada.Decimal is
------------
procedure Divide
(Dividend : in Dividend_Type;
Divisor : in Divisor_Type;
(Dividend : Dividend_Type;
Divisor : Divisor_Type;
Quotient : out Quotient_Type;
Remainder : out Remainder_Type)
is
......@@ -48,8 +48,8 @@ package body Ada.Decimal is
-- not have convention Intrinsic.
procedure Divide
(Dividend : in Dividend_Type;
Divisor : in Divisor_Type;
(Dividend : Dividend_Type;
Divisor : Divisor_Type;
Quotient : out Quotient_Type;
Remainder : out Remainder_Type);
......
gcc/ada/a-decima.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -58,8 +58,8 @@ package Ada.Decimal is
type Remainder_Type is delta <> digits <>;
procedure Divide
(Dividend : in Dividend_Type;
Divisor : in Divisor_Type;
(Dividend : Dividend_Type;
Divisor : Divisor_Type;
Quotient : out Quotient_Type;
Remainder : out Remainder_Type);
......
gcc/ada/a-direio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -83,9 +83,9 @@ package body Ada.Direct_IO is
procedure Create
(File : in out File_Type;
Mode : in File_Mode := Inout_File;
Name : in String := "";
Form : in String := "")
Mode : File_Mode := Inout_File;
Name : String := "";
Form : String := "")
is
begin
DIO.Create (FP (File), To_FCB (Mode), Name, Form);
......@@ -105,7 +105,7 @@ package body Ada.Direct_IO is
-- End_Of_File --
-----------------
function End_Of_File (File : in File_Type) return Boolean is
function End_Of_File (File : File_Type) return Boolean is
begin
return DIO.End_Of_File (FP (File));
end End_Of_File;
......@@ -114,7 +114,7 @@ package body Ada.Direct_IO is
-- Form --
----------
function Form (File : in File_Type) return String is
function Form (File : File_Type) return String is
begin
return FIO.Form (AP (File));
end Form;
......@@ -123,7 +123,7 @@ package body Ada.Direct_IO is
-- Index --
-----------
function Index (File : in File_Type) return Positive_Count is
function Index (File : File_Type) return Positive_Count is
begin
return Positive_Count (DIO.Index (FP (File)));
end Index;
......@@ -132,7 +132,7 @@ package body Ada.Direct_IO is
-- Is_Open --
-------------
function Is_Open (File : in File_Type) return Boolean is
function Is_Open (File : File_Type) return Boolean is
begin
return FIO.Is_Open (AP (File));
end Is_Open;
......@@ -141,7 +141,7 @@ package body Ada.Direct_IO is
-- Mode --
----------
function Mode (File : in File_Type) return File_Mode is
function Mode (File : File_Type) return File_Mode is
begin
return To_DIO (FIO.Mode (AP (File)));
end Mode;
......@@ -150,7 +150,7 @@ package body Ada.Direct_IO is
-- Name --
----------
function Name (File : in File_Type) return String is
function Name (File : File_Type) return String is
begin
return FIO.Name (AP (File));
end Name;
......@@ -161,9 +161,9 @@ package body Ada.Direct_IO is
procedure Open
(File : in out File_Type;
Mode : in File_Mode;
Name : in String;
Form : in String := "")
Mode : File_Mode;
Name : String;
Form : String := "")
is
begin
DIO.Open (FP (File), To_FCB (Mode), Name, Form);
......@@ -175,9 +175,9 @@ package body Ada.Direct_IO is
----------
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Element_Type;
From : in Positive_Count)
From : Positive_Count)
is
begin
-- For a non-constrained variant record type, we read into an
......@@ -207,7 +207,7 @@ package body Ada.Direct_IO is
end if;
end Read;
procedure Read (File : in File_Type; Item : out Element_Type) is
procedure Read (File : File_Type; Item : out Element_Type) is
begin
-- Same processing for unconstrained case as above
......@@ -235,7 +235,7 @@ package body Ada.Direct_IO is
-- Reset --
-----------
procedure Reset (File : in out File_Type; Mode : in File_Mode) is
procedure Reset (File : in out File_Type; Mode : File_Mode) is
begin
DIO.Reset (FP (File), To_FCB (Mode));
end Reset;
......@@ -249,7 +249,7 @@ package body Ada.Direct_IO is
-- Set_Index --
---------------
procedure Set_Index (File : in File_Type; To : in Positive_Count) is
procedure Set_Index (File : File_Type; To : Positive_Count) is
begin
DIO.Set_Index (FP (File), DPCount (To));
end Set_Index;
......@@ -258,7 +258,7 @@ package body Ada.Direct_IO is
-- Size --
----------
function Size (File : in File_Type) return Count is
function Size (File : File_Type) return Count is
begin
return Count (DIO.Size (FP (File)));
end Size;
......@@ -268,16 +268,16 @@ package body Ada.Direct_IO is
-----------
procedure Write
(File : in File_Type;
Item : in Element_Type;
To : in Positive_Count)
(File : File_Type;
Item : Element_Type;
To : Positive_Count)
is
begin
DIO.Set_Index (FP (File), DPCount (To));
DIO.Write (FP (File), Item'Address, Item'Size / SU, Zeroes);
end Write;
procedure Write (File : in File_Type; Item : in Element_Type) is
procedure Write (File : File_Type; Item : Element_Type) is
begin
DIO.Write (FP (File), Item'Address, Item'Size / SU, Zeroes);
end Write;
......
gcc/ada/a-direio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -71,55 +71,55 @@ package Ada.Direct_IO is
procedure Create
(File : in out File_Type;
Mode : in File_Mode := Inout_File;
Name : in String := "";
Form : in String := "");
Mode : File_Mode := Inout_File;
Name : String := "";
Form : String := "");
procedure Open
(File : in out File_Type;
Mode : in File_Mode;
Name : in String;
Form : in String := "");
Mode : File_Mode;
Name : String;
Form : String := "");
procedure Close (File : in out File_Type);
procedure Delete (File : in out File_Type);
procedure Reset (File : in out File_Type; Mode : in File_Mode);
procedure Reset (File : in out File_Type; Mode : File_Mode);
procedure Reset (File : in out File_Type);
function Mode (File : in File_Type) return File_Mode;
function Name (File : in File_Type) return String;
function Form (File : in File_Type) return String;
function Mode (File : File_Type) return File_Mode;
function Name (File : File_Type) return String;
function Form (File : File_Type) return String;
function Is_Open (File : in File_Type) return Boolean;
function Is_Open (File : File_Type) return Boolean;
---------------------------------
-- Input and Output Operations --
---------------------------------
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Element_Type;
From : in Positive_Count);
From : Positive_Count);
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Element_Type);
procedure Write
(File : in File_Type;
Item : in Element_Type;
To : in Positive_Count);
(File : File_Type;
Item : Element_Type;
To : Positive_Count);
procedure Write
(File : in File_Type;
Item : in Element_Type);
(File : File_Type;
Item : Element_Type);
procedure Set_Index (File : in File_Type; To : in Positive_Count);
procedure Set_Index (File : File_Type; To : Positive_Count);
function Index (File : in File_Type) return Positive_Count;
function Size (File : in File_Type) return Count;
function Index (File : File_Type) return Positive_Count;
function Size (File : File_Type) return Count;
function End_Of_File (File : in File_Type) return Boolean;
function End_Of_File (File : File_Type) return Boolean;
----------------
-- Exceptions --
......
gcc/ada/a-ngcoty.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -647,12 +647,12 @@ package body Ada.Numerics.Generic_Complex_Types is
-- Set_Im --
------------
procedure Set_Im (X : in out Complex; Im : in Real'Base) is
procedure Set_Im (X : in out Complex; Im : Real'Base) is
begin
X.Im := Im;
end Set_Im;
procedure Set_Im (X : out Imaginary; Im : in Real'Base) is
procedure Set_Im (X : out Imaginary; Im : Real'Base) is
begin
X := Imaginary (Im);
end Set_Im;
......@@ -661,7 +661,7 @@ package body Ada.Numerics.Generic_Complex_Types is
-- Set_Re --
------------
procedure Set_Re (X : in out Complex; Re : in Real'Base) is
procedure Set_Re (X : in out Complex; Re : Real'Base) is
begin
X.Re := Re;
end Set_Re;
......
gcc/ada/a-ngcoty.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -56,9 +56,9 @@ package Ada.Numerics.Generic_Complex_Types is
function Im (X : Complex) return Real'Base;
function Im (X : Imaginary) return Real'Base;
procedure Set_Re (X : in out Complex; Re : in Real'Base);
procedure Set_Im (X : in out Complex; Im : in Real'Base);
procedure Set_Im (X : out Imaginary; Im : in Real'Base);
procedure Set_Re (X : in out Complex; Re : Real'Base);
procedure Set_Im (X : in out Complex; Im : Real'Base);
procedure Set_Im (X : out Imaginary; Im : Real'Base);
function Compose_From_Cartesian (Re, Im : Real'Base) return Complex;
function Compose_From_Cartesian (Re : Real'Base) return Complex;
......
gcc/ada/a-nuflra.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -55,7 +55,7 @@ package body Ada.Numerics.Float_Random is
-- Local Subprograms --
-----------------------
procedure Euclid (P, Q : in Int; X, Y : out Int; GCD : out Int);
procedure Euclid (P, Q : Int; X, Y : out Int; GCD : out Int);
function Euclid (P, Q : Int) return Int;
......@@ -65,20 +65,20 @@ package body Ada.Numerics.Float_Random is
-- Euclid --
------------
procedure Euclid (P, Q : in Int; X, Y : out Int; GCD : out Int) is
procedure Euclid (P, Q : Int; X, Y : out Int; GCD : out Int) is
XT : Int := 1;
YT : Int := 0;
procedure Recur
(P, Q : in Int; -- a (i-1), a (i)
X, Y : in Int; -- x (i), y (i)
(P, Q : Int; -- a (i-1), a (i)
X, Y : Int; -- x (i), y (i)
XP, YP : in out Int; -- x (i-1), y (i-1)
GCD : out Int);
procedure Recur
(P, Q : in Int;
X, Y : in Int;
(P, Q : Int;
X, Y : Int;
XP, YP : in out Int;
GCD : out Int)
is
......@@ -156,7 +156,7 @@ package body Ada.Numerics.Float_Random is
-- Version that works from given initiator value
procedure Reset (Gen : in Generator; Initiator : in Integer) is
procedure Reset (Gen : Generator; Initiator : Integer) is
Genp : constant Pointer := Gen.Gen_State'Unrestricted_Access;
X1, X2 : Int;
......@@ -227,7 +227,7 @@ package body Ada.Numerics.Float_Random is
-- Save --
----------
procedure Save (Gen : in Generator; To_State : out State) is
procedure Save (Gen : Generator; To_State : out State) is
begin
To_State := Gen.Gen_State;
end Save;
......
gcc/ada/a-nuflra.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......
gcc/ada/a-sequio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -76,9 +76,9 @@ package body Ada.Sequential_IO is
procedure Create
(File : in out File_Type;
Mode : in File_Mode := Out_File;
Name : in String := "";
Form : in String := "")
Mode : File_Mode := Out_File;
Name : String := "";
Form : String := "")
is
begin
SIO.Create (FP (File), To_FCB (Mode), Name, Form);
......@@ -97,7 +97,7 @@ package body Ada.Sequential_IO is
-- End_Of_File --
-----------------
function End_Of_File (File : in File_Type) return Boolean is
function End_Of_File (File : File_Type) return Boolean is
begin
return FIO.End_Of_File (AP (File));
end End_Of_File;
......@@ -106,7 +106,7 @@ package body Ada.Sequential_IO is
-- Form --
----------
function Form (File : in File_Type) return String is
function Form (File : File_Type) return String is
begin
return FIO.Form (AP (File));
end Form;
......@@ -115,7 +115,7 @@ package body Ada.Sequential_IO is
-- Is_Open --
-------------
function Is_Open (File : in File_Type) return Boolean is
function Is_Open (File : File_Type) return Boolean is
begin
return FIO.Is_Open (AP (File));
end Is_Open;
......@@ -124,7 +124,7 @@ package body Ada.Sequential_IO is
-- Mode --
----------
function Mode (File : in File_Type) return File_Mode is
function Mode (File : File_Type) return File_Mode is
begin
return To_SIO (FIO.Mode (AP (File)));
end Mode;
......@@ -133,7 +133,7 @@ package body Ada.Sequential_IO is
-- Name --
----------
function Name (File : in File_Type) return String is
function Name (File : File_Type) return String is
begin
return FIO.Name (AP (File));
end Name;
......@@ -144,9 +144,9 @@ package body Ada.Sequential_IO is
procedure Open
(File : in out File_Type;
Mode : in File_Mode;
Name : in String;
Form : in String := "")
Mode : File_Mode;
Name : String;
Form : String := "")
is
begin
SIO.Open (FP (File), To_FCB (Mode), Name, Form);
......@@ -156,7 +156,7 @@ package body Ada.Sequential_IO is
-- Read --
----------
procedure Read (File : in File_Type; Item : out Element_Type) is
procedure Read (File : File_Type; Item : out Element_Type) is
Siz : constant size_t := (Item'Size + SU - 1) / SU;
Rsiz : size_t;
......@@ -238,7 +238,7 @@ package body Ada.Sequential_IO is
-- Reset --
-----------
procedure Reset (File : in out File_Type; Mode : in File_Mode) is
procedure Reset (File : in out File_Type; Mode : File_Mode) is
begin
FIO.Reset (AP (File), To_FCB (Mode));
end Reset;
......@@ -252,7 +252,7 @@ package body Ada.Sequential_IO is
-- Write --
-----------
procedure Write (File : in File_Type; Item : in Element_Type) is
procedure Write (File : File_Type; Item : Element_Type) is
Siz : constant size_t := (Item'Size + SU - 1) / SU;
begin
......
gcc/ada/a-sequio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -67,35 +67,35 @@ package Ada.Sequential_IO is
procedure Create
(File : in out File_Type;
Mode : in File_Mode := Out_File;
Name : in String := "";
Form : in String := "");
Mode : File_Mode := Out_File;
Name : String := "";
Form : String := "");
procedure Open
(File : in out File_Type;
Mode : in File_Mode;
Name : in String;
Form : in String := "");
Mode : File_Mode;
Name : String;
Form : String := "");
procedure Close (File : in out File_Type);
procedure Delete (File : in out File_Type);
procedure Reset (File : in out File_Type; Mode : in File_Mode);
procedure Reset (File : in out File_Type; Mode : File_Mode);
procedure Reset (File : in out File_Type);
function Mode (File : in File_Type) return File_Mode;
function Name (File : in File_Type) return String;
function Form (File : in File_Type) return String;
function Mode (File : File_Type) return File_Mode;
function Name (File : File_Type) return String;
function Form (File : File_Type) return String;
function Is_Open (File : in File_Type) return Boolean;
function Is_Open (File : File_Type) return Boolean;
---------------------------------
-- Input and output operations --
---------------------------------
procedure Read (File : in File_Type; Item : out Element_Type);
procedure Write (File : in File_Type; Item : in Element_Type);
procedure Read (File : File_Type; Item : out Element_Type);
procedure Write (File : File_Type; Item : Element_Type);
function End_Of_File (File : in File_Type) return Boolean;
function End_Of_File (File : File_Type) return Boolean;
----------------
-- Exceptions --
......
gcc/ada/a-storio.ads
......@@ -34,9 +34,9 @@ package Ada.Storage_IO is
-- Input and Output Operations --
---------------------------------
procedure Read (Buffer : in Buffer_Type; Item : out Element_Type);
procedure Read (Buffer : Buffer_Type; Item : out Element_Type);
procedure Write (Buffer : out Buffer_Type; Item : in Element_Type);
procedure Write (Buffer : out Buffer_Type; Item : Element_Type);
----------------
-- Exceptions --
......
gcc/ada/a-stream.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -60,7 +60,7 @@ package Ada.Streams is
procedure Write
(Stream : in out Root_Stream_Type;
Item : in Stream_Element_Array)
Item : Stream_Element_Array)
is abstract;
private
......
gcc/ada/a-ststio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -32,10 +32,12 @@
------------------------------------------------------------------------------
with Interfaces.C_Streams; use Interfaces.C_Streams;
with System; use System;
with System.File_IO;
with System.Soft_Links;
with System.CRTL;
with Unchecked_Conversion;
with Unchecked_Deallocation;
......@@ -55,7 +57,7 @@ package body Ada.Streams.Stream_IO is
-- Local Subprograms --
-----------------------
procedure Set_Position (File : in File_Type);
procedure Set_Position (File : File_Type);
-- Sets file position pointer according to value of current index
-------------------
......@@ -64,7 +66,6 @@ package body Ada.Streams.Stream_IO is
function AFCB_Allocate (Control_Block : Stream_AFCB) return FCB.AFCB_Ptr is
pragma Warnings (Off, Control_Block);
begin
return new Stream_AFCB;
end AFCB_Allocate;
......@@ -77,7 +78,6 @@ package body Ada.Streams.Stream_IO is
procedure AFCB_Close (File : access Stream_AFCB) is
pragma Warnings (Off, File);
begin
null;
end AFCB_Close;
......@@ -111,9 +111,9 @@ package body Ada.Streams.Stream_IO is
procedure Create
(File : in out File_Type;
Mode : in File_Mode := Out_File;
Name : in String := "";
Form : in String := "")
Mode : File_Mode := Out_File;
Name : String := "";
Form : String := "")
is
Dummy_File_Control_Block : Stream_AFCB;
pragma Warnings (Off, Dummy_File_Control_Block);
......@@ -145,7 +145,7 @@ package body Ada.Streams.Stream_IO is
-- End_Of_File --
-----------------
function End_Of_File (File : in File_Type) return Boolean is
function End_Of_File (File : File_Type) return Boolean is
begin
FIO.Check_Read_Status (AP (File));
return Count (File.Index) > Size (File);
......@@ -164,7 +164,7 @@ package body Ada.Streams.Stream_IO is
-- Form --
----------
function Form (File : in File_Type) return String is
function Form (File : File_Type) return String is
begin
return FIO.Form (AP (File));
end Form;
......@@ -173,7 +173,7 @@ package body Ada.Streams.Stream_IO is
-- Index --
-----------
function Index (File : in File_Type) return Positive_Count is
function Index (File : File_Type) return Positive_Count is
begin
FIO.Check_File_Open (AP (File));
return Count (File.Index);
......@@ -183,7 +183,7 @@ package body Ada.Streams.Stream_IO is
-- Is_Open --
-------------
function Is_Open (File : in File_Type) return Boolean is
function Is_Open (File : File_Type) return Boolean is
begin
return FIO.Is_Open (AP (File));
end Is_Open;
......@@ -192,7 +192,7 @@ package body Ada.Streams.Stream_IO is
-- Mode --
----------
function Mode (File : in File_Type) return File_Mode is
function Mode (File : File_Type) return File_Mode is
begin
return To_SIO (FIO.Mode (AP (File)));
end Mode;
......@@ -201,7 +201,7 @@ package body Ada.Streams.Stream_IO is
-- Name --
----------
function Name (File : in File_Type) return String is
function Name (File : File_Type) return String is
begin
return FIO.Name (AP (File));
end Name;
......@@ -212,9 +212,9 @@ package body Ada.Streams.Stream_IO is
procedure Open
(File : in out File_Type;
Mode : in File_Mode;
Name : in String;
Form : in String := "")
Mode : File_Mode;
Name : String;
Form : String := "")
is
Dummy_File_Control_Block : Stream_AFCB;
pragma Warnings (Off, Dummy_File_Control_Block);
......@@ -255,10 +255,10 @@ package body Ada.Streams.Stream_IO is
----------
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Stream_Element_Array;
Last : out Stream_Element_Offset;
From : in Positive_Count)
From : Positive_Count)
is
begin
Set_Index (File, From);
......@@ -266,7 +266,7 @@ package body Ada.Streams.Stream_IO is
end Read;
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Stream_Element_Array;
Last : out Stream_Element_Offset)
is
......@@ -319,7 +319,7 @@ package body Ada.Streams.Stream_IO is
-- Reset --
-----------
procedure Reset (File : in out File_Type; Mode : in File_Mode) is
procedure Reset (File : in out File_Type; Mode : File_Mode) is
begin
FIO.Check_File_Open (AP (File));
......@@ -339,7 +339,7 @@ package body Ada.Streams.Stream_IO is
-- Set_Index --
---------------
procedure Set_Index (File : in File_Type; To : in Positive_Count) is
procedure Set_Index (File : File_Type; To : Positive_Count) is
begin
FIO.Check_File_Open (AP (File));
File.Index := Count (To);
......@@ -350,7 +350,7 @@ package body Ada.Streams.Stream_IO is
-- Set_Mode --
--------------
procedure Set_Mode (File : in out File_Type; Mode : in File_Mode) is
procedure Set_Mode (File : in out File_Type; Mode : File_Mode) is
begin
FIO.Check_File_Open (AP (File));
......@@ -382,7 +382,7 @@ package body Ada.Streams.Stream_IO is
-- Set_Position --
------------------
procedure Set_Position (File : in File_Type) is
procedure Set_Position (File : File_Type) is
use type System.CRTL.long;
begin
if fseek (File.Stream,
......@@ -396,7 +396,7 @@ package body Ada.Streams.Stream_IO is
-- Size --
----------
function Size (File : in File_Type) return Count is
function Size (File : File_Type) return Count is
begin
FIO.Check_File_Open (AP (File));
......@@ -417,7 +417,7 @@ package body Ada.Streams.Stream_IO is
-- Stream --
------------
function Stream (File : in File_Type) return Stream_Access is
function Stream (File : File_Type) return Stream_Access is
begin
FIO.Check_File_Open (AP (File));
return Stream_Access (File);
......@@ -428,16 +428,19 @@ package body Ada.Streams.Stream_IO is
-----------
procedure Write
(File : in File_Type;
Item : in Stream_Element_Array;
To : in Positive_Count)
(File : File_Type;
Item : Stream_Element_Array;
To : Positive_Count)
is
begin
Set_Index (File, To);
Write (File, Item);
end Write;
procedure Write (File : in File_Type; Item : in Stream_Element_Array) is
procedure Write
(File : File_Type;
Item : Stream_Element_Array)
is
begin
FIO.Check_Write_Status (AP (File));
......@@ -474,7 +477,7 @@ package body Ada.Streams.Stream_IO is
procedure Write
(File : in out Stream_AFCB;
Item : in Ada.Streams.Stream_Element_Array)
Item : Ada.Streams.Stream_Element_Array)
is
begin
Write (File'Unchecked_Access, Item);
......
gcc/ada/a-ststio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -67,64 +67,64 @@ package Ada.Streams.Stream_IO is
procedure Create
(File : in out File_Type;
Mode : in File_Mode := Out_File;
Name : in String := "";
Form : in String := "");
Mode : File_Mode := Out_File;
Name : String := "";
Form : String := "");
procedure Open
(File : in out File_Type;
Mode : in File_Mode;
Name : in String;
Form : in String := "");
Mode : File_Mode;
Name : String;
Form : String := "");
procedure Close (File : in out File_Type);
procedure Delete (File : in out File_Type);
procedure Reset (File : in out File_Type; Mode : in File_Mode);
procedure Reset (File : in out File_Type; Mode : File_Mode);
procedure Reset (File : in out File_Type);
function Mode (File : in File_Type) return File_Mode;
function Name (File : in File_Type) return String;
function Form (File : in File_Type) return String;
function Mode (File : File_Type) return File_Mode;
function Name (File : File_Type) return String;
function Form (File : File_Type) return String;
function Is_Open (File : in File_Type) return Boolean;
function End_Of_File (File : in File_Type) return Boolean;
function Is_Open (File : File_Type) return Boolean;
function End_Of_File (File : File_Type) return Boolean;
function Stream (File : in File_Type) return Stream_Access;
function Stream (File : File_Type) return Stream_Access;
-----------------------------
-- Input-Output Operations --
-----------------------------
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Stream_Element_Array;
Last : out Stream_Element_Offset;
From : in Positive_Count);
From : Positive_Count);
procedure Read
(File : in File_Type;
(File : File_Type;
Item : out Stream_Element_Array;
Last : out Stream_Element_Offset);
procedure Write
(File : in File_Type;
Item : in Stream_Element_Array;
To : in Positive_Count);
(File : File_Type;
Item : Stream_Element_Array;
To : Positive_Count);
procedure Write
(File : in File_Type;
Item : in Stream_Element_Array);
(File : File_Type;
Item : Stream_Element_Array);
----------------------------------------
-- Operations on Position within File --
----------------------------------------
procedure Set_Index (File : in File_Type; To : in Positive_Count);
procedure Set_Index (File : File_Type; To : Positive_Count);
function Index (File : in File_Type) return Positive_Count;
function Size (File : in File_Type) return Count;
function Index (File : File_Type) return Positive_Count;
function Size (File : File_Type) return Count;
procedure Set_Mode (File : in out File_Type; Mode : in File_Mode);
procedure Set_Mode (File : in out File_Type; Mode : File_Mode);
-- Note: The parameter file is IN OUT in the RM, but this is clearly
-- an oversight, and was intended to be IN, see AI95-00057.
......@@ -187,7 +187,7 @@ private
procedure Write
(File : in out Stream_AFCB;
Item : in Ada.Streams.Stream_Element_Array);
Item : Ada.Streams.Stream_Element_Array);
-- Write operation used when Stream_IO file is treated directly as Stream
end Ada.Streams.Stream_IO;
gcc/ada/a-stwima.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -148,7 +148,7 @@ package body Ada.Strings.Wide_Maps is
-- The sorted, discontiguous form is canonical, so equality can be used
function "=" (Left, Right : in Wide_Character_Set) return Boolean is
function "=" (Left, Right : Wide_Character_Set) return Boolean is
begin
return Left.Set.all = Right.Set.all;
end "=";
......@@ -556,7 +556,7 @@ package body Ada.Strings.Wide_Maps is
---------------
function To_Ranges
(Set : in Wide_Character_Set) return Wide_Character_Ranges
(Set : Wide_Character_Set) return Wide_Character_Ranges
is
begin
return Set.Set.all;
......@@ -643,7 +643,7 @@ package body Ada.Strings.Wide_Maps is
end if;
end loop;
if Result (N).High < Result (N).Low then
if N > 0 and then Result (N).High < Result (N).Low then
N := N - 1;
end if;
......
gcc/ada/a-stwima.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -69,13 +69,13 @@ package Ada.Strings.Wide_Maps is
(Span : Wide_Character_Range) return Wide_Character_Set;
function To_Ranges
(Set : in Wide_Character_Set) return Wide_Character_Ranges;
(Set : Wide_Character_Set) return Wide_Character_Ranges;
---------------------------------------
-- Operations on Wide Character Sets --
---------------------------------------
function "=" (Left, Right : in Wide_Character_Set) return Boolean;
function "=" (Left, Right : Wide_Character_Set) return Boolean;
function "not"
(Right : Wide_Character_Set) return Wide_Character_Set;
......
gcc/ada/a-stwise.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -130,7 +130,7 @@ package body Ada.Strings.Wide_Search is
end Count;
function Count
(Source : in Wide_String;
(Source : Wide_String;
Set : Wide_Maps.Wide_Character_Set) return Natural
is
N : Natural := 0;
......
gcc/ada/a-stzmap.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -148,7 +148,7 @@ package body Ada.Strings.Wide_Wide_Maps is
-- The sorted, discontiguous form is canonical, so equality can be used
function "=" (Left, Right : in Wide_Wide_Character_Set) return Boolean is
function "=" (Left, Right : Wide_Wide_Character_Set) return Boolean is
begin
return Left.Set.all = Right.Set.all;
end "=";
......@@ -559,7 +559,7 @@ package body Ada.Strings.Wide_Wide_Maps is
---------------
function To_Ranges
(Set : in Wide_Wide_Character_Set) return Wide_Wide_Character_Ranges
(Set : Wide_Wide_Character_Set) return Wide_Wide_Character_Ranges
is
begin
return Set.Set.all;
......
gcc/ada/a-stzmap.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -75,7 +75,7 @@ package Ada.Strings.Wide_Wide_Maps is
-- Operations on Wide Character Sets --
---------------------------------------
function "=" (Left, Right : in Wide_Wide_Character_Set) return Boolean;
function "=" (Left, Right : Wide_Wide_Character_Set) return Boolean;
function "not"
(Right : Wide_Wide_Character_Set) return Wide_Wide_Character_Set;
......
gcc/ada/a-tasatt.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -39,7 +39,7 @@ with Ada.Task_Identification;
generic
type Attribute is private;
Initial_Value : in Attribute;
Initial_Value : Attribute;
package Ada.Task_Attributes is
......@@ -47,13 +47,11 @@ package Ada.Task_Attributes is
function Value
(T : Ada.Task_Identification.Task_Id :=
Ada.Task_Identification.Current_Task)
return Attribute;
Ada.Task_Identification.Current_Task) return Attribute;
function Reference
(T : Ada.Task_Identification.Task_Id :=
Ada.Task_Identification.Current_Task)
return Attribute_Handle;
Ada.Task_Identification.Current_Task) return Attribute_Handle;
procedure Set_Value
(Val : Attribute;
......
gcc/ada/a-teioed.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -42,7 +42,7 @@ package body Ada.Text_IO.Editing is
-- Blank_When_Zero --
---------------------
function Blank_When_Zero (Pic : in Picture) return Boolean is
function Blank_When_Zero (Pic : Picture) return Boolean is
begin
return Pic.Contents.Original_BWZ;
end Blank_When_Zero;
......@@ -51,7 +51,7 @@ package body Ada.Text_IO.Editing is
-- Expand --
------------
function Expand (Picture : in String) return String is
function Expand (Picture : String) return String is
Result : String (1 .. MAX_PICSIZE);
Picture_Index : Integer := Picture'First;
Result_Index : Integer := Result'First;
......@@ -124,8 +124,7 @@ package body Ada.Text_IO.Editing is
Currency_Symbol : String;
Fill_Character : Character;
Separator_Character : Character;
Radix_Point : Character)
return String
Radix_Point : Character) return String
is
Attrs : Number_Attributes := Parse_Number_String (Number);
Position : Integer;
......@@ -929,7 +928,7 @@ package body Ada.Text_IO.Editing is
-- The following ensures that we return B and not b being careful not
-- to break things which expect lower case b for blank. See CXF3A02.
function Pic_String (Pic : in Picture) return String is
function Pic_String (Pic : Picture) return String is
Temp : String (1 .. Pic.Contents.Picture.Length) :=
Pic.Contents.Picture.Expanded;
begin
......@@ -975,7 +974,7 @@ package body Ada.Text_IO.Editing is
procedure Debug_Start (Name : String);
pragma Inline (Debug_Start);
procedure Debug_Integer (Value : in Integer; S : String);
procedure Debug_Integer (Value : Integer; S : String);
pragma Inline (Debug_Integer);
procedure Trailing_Currency;
......@@ -1032,7 +1031,7 @@ package body Ada.Text_IO.Editing is
-- Debug_Integer --
-------------------
procedure Debug_Integer (Value : in Integer; S : String) is
procedure Debug_Integer (Value : Integer; S : String) is
use Ada.Text_IO; -- needed for >
begin
......@@ -2717,9 +2716,8 @@ package body Ada.Text_IO.Editing is
----------------
function To_Picture
(Pic_String : in String;
Blank_When_Zero : in Boolean := False)
return Picture
(Pic_String : String;
Blank_When_Zero : Boolean := False) return Picture
is
Result : Picture;
......@@ -2745,9 +2743,8 @@ package body Ada.Text_IO.Editing is
-----------
function Valid
(Pic_String : in String;
Blank_When_Zero : in Boolean := False)
return Boolean
(Pic_String : String;
Blank_When_Zero : Boolean := False) return Boolean
is
begin
declare
......@@ -2764,8 +2761,8 @@ package body Ada.Text_IO.Editing is
-- False only if Blank_When_Zero is True but the pic string has a '*'
return not Blank_When_Zero or
Strings_Fixed.Index (Expanded_Pic, "*") = 0;
return not Blank_When_Zero
or else Strings_Fixed.Index (Expanded_Pic, "*") = 0;
end;
exception
......@@ -2783,13 +2780,12 @@ package body Ada.Text_IO.Editing is
-----------
function Image
(Item : in Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark)
return String
(Item : Num;
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark) return String
is
begin
return Format_Number
......@@ -2802,9 +2798,8 @@ package body Ada.Text_IO.Editing is
------------
function Length
(Pic : in Picture;
Currency : in String := Default_Currency)
return Natural
(Pic : Picture;
Currency : String := Default_Currency) return Natural
is
Picstr : constant String := Pic_String (Pic);
V_Adjust : Integer := 0;
......@@ -2836,13 +2831,13 @@ package body Ada.Text_IO.Editing is
---------
procedure Put
(File : in Text_IO.File_Type;
Item : in Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark)
(File : Text_IO.File_Type;
Item : Num;
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark)
is
begin
Text_IO.Put (File, Image (Item, Pic,
......@@ -2850,12 +2845,12 @@ package body Ada.Text_IO.Editing is
end Put;
procedure Put
(Item : in Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark)
(Item : Num;
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark)
is
begin
Text_IO.Put (Image (Item, Pic,
......@@ -2864,12 +2859,12 @@ package body Ada.Text_IO.Editing is
procedure Put
(To : out String;
Item : in Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark)
Item : Num;
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark)
is
Result : constant String :=
Image (Item, Pic, Currency, Fill, Separator, Radix_Mark);
......@@ -2889,9 +2884,8 @@ package body Ada.Text_IO.Editing is
function Valid
(Item : Num;
Pic : in Picture;
Currency : in String := Default_Currency)
return Boolean
Pic : Picture;
Currency : String := Default_Currency) return Boolean
is
begin
declare
......
gcc/ada/a-teioed.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -40,17 +40,15 @@ package Ada.Text_IO.Editing is
type Picture is private;
function Valid
(Pic_String : in String;
Blank_When_Zero : in Boolean := False)
return Boolean;
(Pic_String : String;
Blank_When_Zero : Boolean := False) return Boolean;
function To_Picture
(Pic_String : in String;
Blank_When_Zero : in Boolean := False)
return Picture;
(Pic_String : String;
Blank_When_Zero : Boolean := False) return Picture;
function Pic_String (Pic : in Picture) return String;
function Blank_When_Zero (Pic : in Picture) return Boolean;
function Pic_String (Pic : Picture) return String;
function Blank_When_Zero (Pic : Picture) return Boolean;
Max_Picture_Length : constant := 64;
......@@ -63,58 +61,55 @@ package Ada.Text_IO.Editing is
generic
type Num is delta <> digits <>;
Default_Currency : in String := Editing.Default_Currency;
Default_Fill : in Character := Editing.Default_Fill;
Default_Separator : in Character := Editing.Default_Separator;
Default_Radix_Mark : in Character := Editing.Default_Radix_Mark;
Default_Currency : String := Editing.Default_Currency;
Default_Fill : Character := Editing.Default_Fill;
Default_Separator : Character := Editing.Default_Separator;
Default_Radix_Mark : Character := Editing.Default_Radix_Mark;
package Decimal_Output is
function Length
(Pic : in Picture;
Currency : in String := Default_Currency)
return Natural;
(Pic : Picture;
Currency : String := Default_Currency) return Natural;
function Valid
(Item : Num;
Pic : in Picture;
Currency : in String := Default_Currency)
return Boolean;
Pic : Picture;
Currency : String := Default_Currency) return Boolean;
function Image
(Item : Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark)
return String;
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark) return String;
procedure Put
(File : in Ada.Text_IO.File_Type;
(File : Ada.Text_IO.File_Type;
Item : Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark);
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark);
procedure Put
(Item : Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark);
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark);
procedure Put
(To : out String;
Item : Num;
Pic : in Picture;
Currency : in String := Default_Currency;
Fill : in Character := Default_Fill;
Separator : in Character := Default_Separator;
Radix_Mark : in Character := Default_Radix_Mark);
Pic : Picture;
Currency : String := Default_Currency;
Fill : Character := Default_Fill;
Separator : Character := Default_Separator;
Radix_Mark : Character := Default_Radix_Mark);
end Decimal_Output;
......@@ -193,10 +188,9 @@ private
Currency_Symbol : String;
Fill_Character : Character;
Separator_Character : Character;
Radix_Point : Character)
return String;
Radix_Point : Character) return String;
-- Formats number according to Pic
function Expand (Picture : in String) return String;
function Expand (Picture : String) return String;
end Ada.Text_IO.Editing;
gcc/ada/a-ticoau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -45,7 +45,7 @@ package body Ada.Text_IO.Complex_Aux is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
ItemR : out Long_Long_Float;
ItemI : out Long_Long_Float;
Width : Field)
......@@ -96,7 +96,7 @@ package body Ada.Text_IO.Complex_Aux is
----------
procedure Gets
(From : in String;
(From : String;
ItemR : out Long_Long_Float;
ItemI : out Long_Long_Float;
Last : out Positive)
......@@ -163,8 +163,8 @@ package body Ada.Text_IO.Complex_Aux is
(To : out String;
ItemR : Long_Long_Float;
ItemI : Long_Long_Float;
Aft : in Field;
Exp : in Field)
Aft : Field;
Exp : Field)
is
I_String : String (1 .. 3 * Field'Last);
R_String : String (1 .. 3 * Field'Last);
......
gcc/ada/a-ticoau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -42,7 +42,7 @@
package Ada.Text_IO.Complex_Aux is
procedure Get
(File : in File_Type;
(File : File_Type;
ItemR : out Long_Long_Float;
ItemI : out Long_Long_Float;
Width : Field);
......
gcc/ada/a-ticoio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -37,6 +37,8 @@ with Ada.Text_IO.Complex_Aux;
package body Ada.Text_IO.Complex_IO is
use Complex_Types;
package Aux renames Ada.Text_IO.Complex_Aux;
subtype LLF is Long_Long_Float;
......@@ -47,9 +49,9 @@ package body Ada.Text_IO.Complex_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Complex_Types.Complex;
Width : in Field := 0)
Width : Field := 0)
is
Real_Item : Real'Base;
Imag_Item : Real'Base;
......@@ -68,7 +70,7 @@ package body Ada.Text_IO.Complex_IO is
procedure Get
(Item : out Complex_Types.Complex;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_In, Item, Width);
......@@ -79,7 +81,7 @@ package body Ada.Text_IO.Complex_IO is
---------
procedure Get
(From : in String;
(From : String;
Item : out Complex_Types.Complex;
Last : out Positive)
is
......@@ -99,11 +101,11 @@ package body Ada.Text_IO.Complex_IO is
---------
procedure Put
(File : in File_Type;
Item : in Complex_Types.Complex;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(File : File_Type;
Item : Complex_Types.Complex;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Put (File, LLF (Re (Item)), LLF (Im (Item)), Fore, Aft, Exp);
......@@ -114,10 +116,10 @@ package body Ada.Text_IO.Complex_IO is
---------
procedure Put
(Item : in Complex_Types.Complex;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(Item : Complex_Types.Complex;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Put (Current_Out, Item, Fore, Aft, Exp);
......@@ -129,9 +131,9 @@ package body Ada.Text_IO.Complex_IO is
procedure Put
(To : out String;
Item : in Complex_Types.Complex;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
Item : Complex_Types.Complex;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Puts (To, LLF (Re (Item)), LLF (Im (Item)), Aft, Exp);
......
gcc/ada/a-tideau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -46,10 +46,9 @@ package body Ada.Text_IO.Decimal_Aux is
-------------
function Get_Dec
(File : in File_Type;
Width : in Field;
Scale : Integer)
return Integer
(File : File_Type;
Width : Field;
Scale : Integer) return Integer
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer;
......@@ -75,10 +74,9 @@ package body Ada.Text_IO.Decimal_Aux is
-------------
function Get_LLD
(File : in File_Type;
Width : in Field;
Scale : Integer)
return Long_Long_Integer
(File : File_Type;
Width : Field;
Scale : Integer) return Long_Long_Integer
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer;
......@@ -104,10 +102,9 @@ package body Ada.Text_IO.Decimal_Aux is
--------------
function Gets_Dec
(From : in String;
(From : String;
Last : access Positive;
Scale : Integer)
return Integer
Scale : Integer) return Integer
is
Pos : aliased Integer;
Item : Integer;
......@@ -129,10 +126,9 @@ package body Ada.Text_IO.Decimal_Aux is
--------------
function Gets_LLD
(From : in String;
(From : String;
Last : access Positive;
Scale : Integer)
return Long_Long_Integer
Scale : Integer) return Long_Long_Integer
is
Pos : aliased Integer;
Item : Long_Long_Integer;
......@@ -154,11 +150,11 @@ package body Ada.Text_IO.Decimal_Aux is
-------------
procedure Put_Dec
(File : in File_Type;
Item : in Integer;
Fore : in Field;
Aft : in Field;
Exp : in Field;
(File : File_Type;
Item : Integer;
Fore : Field;
Aft : Field;
Exp : Field;
Scale : Integer)
is
Buf : String (1 .. Field'Last);
......@@ -174,11 +170,11 @@ package body Ada.Text_IO.Decimal_Aux is
-------------
procedure Put_LLD
(File : in File_Type;
Item : in Long_Long_Integer;
Fore : in Field;
Aft : in Field;
Exp : in Field;
(File : File_Type;
Item : Long_Long_Integer;
Fore : Field;
Aft : Field;
Exp : Field;
Scale : Integer)
is
Buf : String (1 .. Field'Last);
......@@ -195,9 +191,9 @@ package body Ada.Text_IO.Decimal_Aux is
procedure Puts_Dec
(To : out String;
Item : in Integer;
Aft : in Field;
Exp : in Field;
Item : Integer;
Aft : Field;
Exp : Field;
Scale : Integer)
is
Buf : String (1 .. Field'Last);
......@@ -230,9 +226,9 @@ package body Ada.Text_IO.Decimal_Aux is
procedure Puts_LLD
(To : out String;
Item : in Long_Long_Integer;
Aft : in Field;
Exp : in Field;
Item : Long_Long_Integer;
Aft : Field;
Exp : Field;
Scale : Integer)
is
Buf : String (1 .. Field'Last);
......
gcc/ada/a-tideau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -42,57 +42,53 @@
private package Ada.Text_IO.Decimal_Aux is
function Get_Dec
(File : in File_Type;
Width : in Field;
Scale : Integer)
return Integer;
(File : File_Type;
Width : Field;
Scale : Integer) return Integer;
function Get_LLD
(File : in File_Type;
Width : in Field;
Scale : Integer)
return Long_Long_Integer;
(File : File_Type;
Width : Field;
Scale : Integer) return Long_Long_Integer;
procedure Put_Dec
(File : File_Type;
Item : Integer;
Fore : in Field;
Aft : in Field;
Exp : in Field;
Fore : Field;
Aft : Field;
Exp : Field;
Scale : Integer);
procedure Put_LLD
(File : in File_Type;
Item : in Long_Long_Integer;
Fore : in Field;
Aft : in Field;
Exp : in Field;
(File : File_Type;
Item : Long_Long_Integer;
Fore : Field;
Aft : Field;
Exp : Field;
Scale : Integer);
function Gets_Dec
(From : in String;
(From : String;
Last : access Positive;
Scale : Integer)
return Integer;
Scale : Integer) return Integer;
function Gets_LLD
(From : in String;
(From : String;
Last : access Positive;
Scale : Integer)
return Long_Long_Integer;
Scale : Integer) return Long_Long_Integer;
procedure Puts_Dec
(To : out String;
Item : in Integer;
Aft : in Field;
Exp : in Field;
Item : Integer;
Aft : Field;
Exp : Field;
Scale : Integer);
procedure Puts_LLD
(To : out String;
Item : in Long_Long_Integer;
Aft : in Field;
Exp : in Field;
Item : Long_Long_Integer;
Aft : Field;
Exp : Field;
Scale : Integer);
end Ada.Text_IO.Decimal_Aux;
gcc/ada/a-tideio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -44,9 +44,9 @@ package body Ada.Text_IO.Decimal_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
pragma Unsuppress (Range_Check);
......@@ -64,14 +64,14 @@ package body Ada.Text_IO.Decimal_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_In, Item, Width);
end Get;
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive)
is
......@@ -95,11 +95,11 @@ package body Ada.Text_IO.Decimal_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
if Num'Size > Integer'Size then
......@@ -113,10 +113,10 @@ package body Ada.Text_IO.Decimal_IO is
end Put;
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Put (Current_Out, Item, Fore, Aft, Exp);
......@@ -124,9 +124,9 @@ package body Ada.Text_IO.Decimal_IO is
procedure Put
(To : out String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
if Num'Size > Integer'Size then
......
gcc/ada/a-tideio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -51,37 +51,37 @@ package Ada.Text_IO.Decimal_IO is
Default_Exp : Field := 0;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
private
pragma Inline (Get);
......
gcc/ada/a-tienau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -155,7 +155,7 @@ package body Ada.Text_IO.Enumeration_Aux is
procedure Puts
(To : out String;
Item : in String;
Item : String;
Set : Type_Set)
is
Ptr : Natural;
......
gcc/ada/a-tienau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -63,7 +63,7 @@ private package Ada.Text_IO.Enumeration_Aux is
procedure Puts
(To : out String;
Item : in String;
Item : String;
Set : Type_Set);
-- Stores the enumeration literal image stored in Item to the string To,
-- padding with trailing spaces if necessary to fill To. Set is used to
......
gcc/ada/a-tienio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -41,7 +41,7 @@ package body Ada.Text_IO.Enumeration_IO is
-- Get --
---------
procedure Get (File : in File_Type; Item : out Enum) is
procedure Get (File : File_Type; Item : out Enum) is
Buf : String (1 .. Enum'Width);
Buflen : Natural;
......@@ -67,7 +67,7 @@ package body Ada.Text_IO.Enumeration_IO is
end Get;
procedure Get
(From : in String;
(From : String;
Item : out Enum;
Last : out Positive)
is
......@@ -92,10 +92,10 @@ package body Ada.Text_IO.Enumeration_IO is
---------
procedure Put
(File : in File_Type;
Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting)
(File : File_Type;
Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting)
is
Image : constant String := Enum'Image (Item);
......@@ -104,9 +104,9 @@ package body Ada.Text_IO.Enumeration_IO is
end Put;
procedure Put
(Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting)
(Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting)
is
begin
Put (Current_Out, Item, Width, Set);
......@@ -114,8 +114,8 @@ package body Ada.Text_IO.Enumeration_IO is
procedure Put
(To : out String;
Item : in Enum;
Set : in Type_Set := Default_Setting)
Item : Enum;
Set : Type_Set := Default_Setting)
is
Image : constant String := Enum'Image (Item);
......
gcc/ada/a-tienio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -50,28 +50,28 @@ package Ada.Text_IO.Enumeration_IO is
Default_Width : Field := 0;
Default_Setting : Type_Set := Upper_Case;
procedure Get (File : in File_Type; Item : out Enum);
procedure Get (File : File_Type; Item : out Enum);
procedure Get (Item : out Enum);
procedure Put
(File : in File_Type;
Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting);
(File : File_Type;
Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting);
procedure Put
(Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting);
(Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting);
procedure Get
(From : in String;
(From : String;
Item : out Enum;
Last : out Positive);
procedure Put
(To : out String;
Item : in Enum;
Set : in Type_Set := Default_Setting);
Item : Enum;
Set : Type_Set := Default_Setting);
end Ada.Text_IO.Enumeration_IO;
gcc/ada/a-tifiio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -51,37 +51,37 @@ package Ada.Text_IO.Fixed_IO is
Default_Exp : Field := 0;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
private
pragma Inline (Get);
......
gcc/ada/a-tiflau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -43,9 +43,9 @@ package body Ada.Text_IO.Float_Aux is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Float;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Stop : Integer := 0;
......@@ -69,7 +69,7 @@ package body Ada.Text_IO.Float_Aux is
----------
procedure Gets
(From : in String;
(From : String;
Item : out Long_Long_Float;
Last : out Positive)
is
......@@ -90,7 +90,7 @@ package body Ada.Text_IO.Float_Aux is
---------------
procedure Load_Real
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural)
is
......@@ -181,11 +181,11 @@ package body Ada.Text_IO.Float_Aux is
---------
procedure Put
(File : in File_Type;
Item : in Long_Long_Float;
Fore : in Field;
Aft : in Field;
Exp : in Field)
(File : File_Type;
Item : Long_Long_Float;
Fore : Field;
Aft : Field;
Exp : Field)
is
Buf : String (1 .. 3 * Field'Last + 2);
Ptr : Natural := 0;
......@@ -201,9 +201,9 @@ package body Ada.Text_IO.Float_Aux is
procedure Puts
(To : out String;
Item : in Long_Long_Float;
Aft : in Field;
Exp : in Field)
Item : Long_Long_Float;
Aft : Field;
Exp : Field)
is
Buf : String (1 .. 3 * Field'Last + 2);
Ptr : Natural := 0;
......
gcc/ada/a-tiflau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -42,33 +42,33 @@
private package Ada.Text_IO.Float_Aux is
procedure Load_Real
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural);
-- This is an auxiliary routine that is used to load a possibly signed
-- real literal value from the input file into Buf, starting at Ptr + 1.
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Float;
Width : in Field);
Width : Field);
procedure Put
(File : in File_Type;
Item : in Long_Long_Float;
Fore : in Field;
Aft : in Field;
Exp : in Field);
(File : File_Type;
Item : Long_Long_Float;
Fore : Field;
Aft : Field;
Exp : Field);
procedure Gets
(From : in String;
(From : String;
Item : out Long_Long_Float;
Last : out Positive);
procedure Puts
(To : out String;
Item : in Long_Long_Float;
Aft : in Field;
Exp : in Field);
Item : Long_Long_Float;
Aft : Field;
Exp : Field);
end Ada.Text_IO.Float_Aux;
gcc/ada/a-tiflio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -42,9 +42,9 @@ package body Ada.Text_IO.Float_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
pragma Unsuppress (Range_Check);
......@@ -66,7 +66,7 @@ package body Ada.Text_IO.Float_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
pragma Unsuppress (Range_Check);
......@@ -87,7 +87,7 @@ package body Ada.Text_IO.Float_IO is
end Get;
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive)
is
......@@ -114,21 +114,21 @@ package body Ada.Text_IO.Float_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Put (File, Long_Long_Float (Item), Fore, Aft, Exp);
end Put;
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Put (Current_Out, Long_Long_Float (Item), Fore, Aft, Exp);
......@@ -136,9 +136,9 @@ package body Ada.Text_IO.Float_IO is
procedure Put
(To : out String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Puts (To, Long_Long_Float (Item), Aft, Exp);
......
gcc/ada/a-tiflio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -51,37 +51,37 @@ package Ada.Text_IO.Float_IO is
Default_Exp : Field := 3;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
private
pragma Inline (Get);
......
gcc/ada/a-tigeau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -80,7 +80,7 @@ private package Ada.Text_IO.Generic_Aux is
procedure Load_Width
(File : File_Type;
Width : in Field;
Width : Field;
Buf : out String;
Ptr : in out Integer);
-- Loads exactly Width characters, unless a line mark is encountered first
......
gcc/ada/a-tiinau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -49,7 +49,7 @@ package body Ada.Text_IO.Integer_Aux is
-----------------------
procedure Load_Integer
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural);
-- This is an auxiliary routine that is used to load a possibly signed
......@@ -61,9 +61,9 @@ package body Ada.Text_IO.Integer_Aux is
-------------
procedure Get_Int
(File : in File_Type;
(File : File_Type;
Item : out Integer;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer := 1;
......@@ -86,9 +86,9 @@ package body Ada.Text_IO.Integer_Aux is
-------------
procedure Get_LLI
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Integer;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer := 1;
......@@ -111,7 +111,7 @@ package body Ada.Text_IO.Integer_Aux is
--------------
procedure Gets_Int
(From : in String;
(From : String;
Item : out Integer;
Last : out Positive)
is
......@@ -132,7 +132,7 @@ package body Ada.Text_IO.Integer_Aux is
--------------
procedure Gets_LLI
(From : in String;
(From : String;
Item : out Long_Long_Integer;
Last : out Positive)
is
......@@ -153,7 +153,7 @@ package body Ada.Text_IO.Integer_Aux is
------------------
procedure Load_Integer
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural)
is
......@@ -198,10 +198,10 @@ package body Ada.Text_IO.Integer_Aux is
-------------
procedure Put_Int
(File : in File_Type;
Item : in Integer;
Width : in Field;
Base : in Number_Base)
(File : File_Type;
Item : Integer;
Width : Field;
Base : Number_Base)
is
Buf : String (1 .. Integer'Max (Field'Last, Width));
Ptr : Natural := 0;
......@@ -223,10 +223,10 @@ package body Ada.Text_IO.Integer_Aux is
-------------
procedure Put_LLI
(File : in File_Type;
Item : in Long_Long_Integer;
Width : in Field;
Base : in Number_Base)
(File : File_Type;
Item : Long_Long_Integer;
Width : Field;
Base : Number_Base)
is
Buf : String (1 .. Integer'Max (Field'Last, Width));
Ptr : Natural := 0;
......@@ -249,8 +249,8 @@ package body Ada.Text_IO.Integer_Aux is
procedure Puts_Int
(To : out String;
Item : in Integer;
Base : in Number_Base)
Item : Integer;
Base : Number_Base)
is
Buf : String (1 .. Integer'Max (Field'Last, To'Length));
Ptr : Natural := 0;
......@@ -275,8 +275,8 @@ package body Ada.Text_IO.Integer_Aux is
procedure Puts_LLI
(To : out String;
Item : in Long_Long_Integer;
Base : in Number_Base)
Item : Long_Long_Integer;
Base : Number_Base)
is
Buf : String (1 .. Integer'Max (Field'Last, To'Length));
Ptr : Natural := 0;
......
gcc/ada/a-tiinau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -41,45 +41,45 @@
private package Ada.Text_IO.Integer_Aux is
procedure Get_Int
(File : in File_Type;
(File : File_Type;
Item : out Integer;
Width : in Field);
Width : Field);
procedure Get_LLI
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Integer;
Width : in Field);
Width : Field);
procedure Put_Int
(File : in File_Type;
Item : in Integer;
Width : in Field;
Base : in Number_Base);
(File : File_Type;
Item : Integer;
Width : Field;
Base : Number_Base);
procedure Put_LLI
(File : in File_Type;
Item : in Long_Long_Integer;
Width : in Field;
Base : in Number_Base);
(File : File_Type;
Item : Long_Long_Integer;
Width : Field;
Base : Number_Base);
procedure Gets_Int
(From : in String;
(From : String;
Item : out Integer;
Last : out Positive);
procedure Gets_LLI
(From : in String;
(From : String;
Item : out Long_Long_Integer;
Last : out Positive);
procedure Puts_Int
(To : out String;
Item : in Integer;
Base : in Number_Base);
Item : Integer;
Base : Number_Base);
procedure Puts_LLI
(To : out String;
Item : in Long_Long_Integer;
Base : in Number_Base);
Item : Long_Long_Integer;
Base : Number_Base);
end Ada.Text_IO.Integer_Aux;
gcc/ada/a-tiinio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -49,9 +49,9 @@ package body Ada.Text_IO.Integer_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
-- We depend on a range check to get Data_Error
......@@ -71,7 +71,7 @@ package body Ada.Text_IO.Integer_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
-- We depend on a range check to get Data_Error
......@@ -90,7 +90,7 @@ package body Ada.Text_IO.Integer_IO is
end Get;
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive)
is
......@@ -115,10 +115,10 @@ package body Ada.Text_IO.Integer_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
if Need_LLI then
......@@ -129,9 +129,9 @@ package body Ada.Text_IO.Integer_IO is
end Put;
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
if Need_LLI then
......@@ -143,8 +143,8 @@ package body Ada.Text_IO.Integer_IO is
procedure Put
(To : out String;
Item : in Num;
Base : in Number_Base := Default_Base)
Item : Num;
Base : Number_Base := Default_Base)
is
begin
if Need_LLI then
......
gcc/ada/a-tiinio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -50,34 +50,34 @@ package Ada.Text_IO.Integer_IO is
Default_Base : Number_Base := 10;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out String;
Item : in Num;
Base : in Number_Base := Default_Base);
Item : Num;
Base : Number_Base := Default_Base);
private
pragma Inline (Get);
......
gcc/ada/a-timoio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -44,9 +44,9 @@ package body Ada.Text_IO.Modular_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
pragma Unsuppress (Range_Check);
......@@ -63,7 +63,7 @@ package body Ada.Text_IO.Modular_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
pragma Unsuppress (Range_Check);
......@@ -79,7 +79,7 @@ package body Ada.Text_IO.Modular_IO is
end Get;
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive)
is
......@@ -101,10 +101,10 @@ package body Ada.Text_IO.Modular_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
if Num'Size > Unsigned'Size then
......@@ -115,9 +115,9 @@ package body Ada.Text_IO.Modular_IO is
end Put;
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
if Num'Size > Unsigned'Size then
......@@ -129,8 +129,8 @@ package body Ada.Text_IO.Modular_IO is
procedure Put
(To : out String;
Item : in Num;
Base : in Number_Base := Default_Base)
Item : Num;
Base : Number_Base := Default_Base)
is
begin
if Num'Size > Unsigned'Size then
......
gcc/ada/a-timoio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1993-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1993-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -50,34 +50,34 @@ package Ada.Text_IO.Modular_IO is
Default_Base : Number_Base := 10;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Get
(From : in String;
(From : String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out String;
Item : in Num;
Base : in Number_Base := Default_Base);
Item : Num;
Base : Number_Base := Default_Base);
private
pragma Inline (Get);
......
gcc/ada/a-titest.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -39,7 +39,7 @@ package body Ada.Text_IO.Text_Streams is
-- Stream --
------------
function Stream (File : in File_Type) return Stream_Access is
function Stream (File : File_Type) return Stream_Access is
begin
System.File_IO.Check_File_Open (FCB.AFCB_Ptr (File));
return Stream_Access (File);
......
gcc/ada/a-titest.ads
......@@ -18,6 +18,6 @@ package Ada.Text_IO.Text_Streams is
type Stream_Access is access all Streams.Root_Stream_Type'Class;
function Stream (File : in File_Type) return Stream_Access;
function Stream (File : File_Type) return Stream_Access;
end Ada.Text_IO.Text_Streams;
gcc/ada/a-wtcoio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......
gcc/ada/a-wtdeau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -48,8 +48,7 @@ package body Ada.Wide_Text_IO.Decimal_Aux is
function Get_Dec
(File : File_Type;
Width : Field;
Scale : Integer)
return Integer
Scale : Integer) return Integer
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer;
......@@ -77,8 +76,7 @@ package body Ada.Wide_Text_IO.Decimal_Aux is
function Get_LLD
(File : File_Type;
Width : Field;
Scale : Integer)
return Long_Long_Integer
Scale : Integer) return Long_Long_Integer
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer;
......@@ -106,8 +104,7 @@ package body Ada.Wide_Text_IO.Decimal_Aux is
function Gets_Dec
(From : String;
Last : access Positive;
Scale : Integer)
return Integer
Scale : Integer) return Integer
is
Pos : aliased Integer;
Item : Integer;
......@@ -132,8 +129,7 @@ package body Ada.Wide_Text_IO.Decimal_Aux is
function Gets_LLD
(From : String;
Last : access Positive;
Scale : Integer)
return Long_Long_Integer
Scale : Integer) return Long_Long_Integer
is
Pos : aliased Integer;
Item : Long_Long_Integer;
......
gcc/ada/a-wtdeau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -45,26 +45,22 @@ private package Ada.Wide_Text_IO.Decimal_Aux is
function Get_Dec
(File : File_Type;
Width : Field;
Scale : Integer)
return Integer;
Scale : Integer) return Integer;
function Get_LLD
(File : File_Type;
Width : Field;
Scale : Integer)
return Long_Long_Integer;
Scale : Integer) return Long_Long_Integer;
function Gets_Dec
(From : String;
Last : access Positive;
Scale : Integer)
return Integer;
Scale : Integer) return Integer;
function Gets_LLD
(From : String;
Last : access Positive;
Scale : Integer)
return Long_Long_Integer;
Scale : Integer) return Long_Long_Integer;
procedure Put_Dec
(File : File_Type;
......
gcc/ada/a-wtdeio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Ada.Wide_Text_IO.Decimal_Aux;
with System.WCh_Con; use System.WCh_Con;
with System.WCh_WtS; use System.WCh_WtS;
......@@ -49,9 +50,9 @@ package body Ada.Wide_Text_IO.Decimal_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
if Num'Size > Integer'Size then
......@@ -71,14 +72,14 @@ package body Ada.Wide_Text_IO.Decimal_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_Input, Item, Width);
end Get;
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive)
is
......@@ -110,11 +111,11 @@ package body Ada.Wide_Text_IO.Decimal_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
if Num'Size > Integer'Size then
......@@ -133,10 +134,10 @@ package body Ada.Wide_Text_IO.Decimal_IO is
end Put;
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
pragma Unreferenced (Fore);
-- ??? how come this is unreferenced, sounds wrong ???
......@@ -146,9 +147,9 @@ package body Ada.Wide_Text_IO.Decimal_IO is
procedure Put
(To : out Wide_String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
S : String (To'First .. To'Last);
......
gcc/ada/a-wtdeio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -51,36 +51,36 @@ package Ada.Wide_Text_IO.Decimal_IO is
Default_Exp : Field := 3;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out Wide_String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
end Ada.Wide_Text_IO.Decimal_IO;
gcc/ada/a-wtedit.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -53,7 +53,7 @@ package body Ada.Wide_Text_IO.Editing is
-- Blank_When_Zero --
---------------------
function Blank_When_Zero (Pic : in Picture) return Boolean is
function Blank_When_Zero (Pic : Picture) return Boolean is
begin
return Pic.Contents.Original_BWZ;
end Blank_When_Zero;
......@@ -194,7 +194,7 @@ package body Ada.Wide_Text_IO.Editing is
-- Expand --
------------
function Expand (Picture : in String) return String is
function Expand (Picture : String) return String is
Result : String (1 .. MAX_PICSIZE);
Picture_Index : Integer := Picture'First;
Result_Index : Integer := Result'First;
......@@ -1095,7 +1095,7 @@ package body Ada.Wide_Text_IO.Editing is
-- The following ensures that we return B and not b being careful not
-- to break things which expect lower case b for blank. See CXF3A02.
function Pic_String (Pic : in Picture) return String is
function Pic_String (Pic : Picture) return String is
Temp : String (1 .. Pic.Contents.Picture.Length) :=
Pic.Contents.Picture.Expanded;
begin
......@@ -2757,11 +2757,10 @@ package body Ada.Wide_Text_IO.Editing is
Format_Rec.Original_BWZ := Blank_When_Zero;
Precalculate (Format_Rec);
-- False only if Blank_When_0 is True but the pic string
-- has a '*'
-- False only if Blank_When_0 is True but the pic string has a '*'
return not Blank_When_Zero or
Strings_Fixed.Index (Expanded_Pic, "*") = 0;
return not Blank_When_Zero
or else Strings_Fixed.Index (Expanded_Pic, "*") = 0;
end;
exception
......
gcc/ada/a-wtedit.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -47,8 +47,8 @@ package Ada.Wide_Text_IO.Editing is
(Pic_String : String;
Blank_When_Zero : Boolean := False) return Picture;
function Pic_String (Pic : in Picture) return String;
function Blank_When_Zero (Pic : in Picture) return Boolean;
function Pic_String (Pic : Picture) return String;
function Blank_When_Zero (Pic : Picture) return Boolean;
Max_Picture_Length : constant := 64;
......@@ -194,6 +194,6 @@ private
Radix_Point : Wide_Character) return Wide_String;
-- Formats number according to Pic
function Expand (Picture : in String) return String;
function Expand (Picture : String) return String;
end Ada.Wide_Text_IO.Editing;
gcc/ada/a-wtenau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -191,7 +191,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is
procedure Puts
(To : out Wide_String;
Item : in Wide_String;
Item : Wide_String;
Set : Type_Set)
is
Ptr : Natural;
......
gcc/ada/a-wtenau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -63,7 +63,7 @@ private package Ada.Wide_Text_IO.Enumeration_Aux is
procedure Puts
(To : out Wide_String;
Item : in Wide_String;
Item : Wide_String;
Set : Type_Set);
-- Stores the enumeration literal image stored in Item to the string To,
-- padding with trailing spaces if necessary to fill To. Set is used to
......
gcc/ada/a-wtenio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -41,7 +41,7 @@ package body Ada.Wide_Text_IO.Enumeration_IO is
-- Get --
---------
procedure Get (File : in File_Type; Item : out Enum) is
procedure Get (File : File_Type; Item : out Enum) is
Buf : Wide_String (1 .. Enum'Width);
Buflen : Natural;
......@@ -59,7 +59,7 @@ package body Ada.Wide_Text_IO.Enumeration_IO is
end Get;
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Enum;
Last : out Positive)
is
......@@ -78,10 +78,10 @@ package body Ada.Wide_Text_IO.Enumeration_IO is
---------
procedure Put
(File : in File_Type;
Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting)
(File : File_Type;
Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting)
is
Image : constant Wide_String := Enum'Wide_Image (Item);
......@@ -90,9 +90,9 @@ package body Ada.Wide_Text_IO.Enumeration_IO is
end Put;
procedure Put
(Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting)
(Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting)
is
begin
Put (Current_Output, Item, Width, Set);
......@@ -100,8 +100,8 @@ package body Ada.Wide_Text_IO.Enumeration_IO is
procedure Put
(To : out Wide_String;
Item : in Enum;
Set : in Type_Set := Default_Setting)
Item : Enum;
Set : Type_Set := Default_Setting)
is
Image : constant Wide_String := Enum'Wide_Image (Item);
......
gcc/ada/a-wtenio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -49,28 +49,28 @@ package Ada.Wide_Text_IO.Enumeration_IO is
Default_Width : Field := 0;
Default_Setting : Type_Set := Upper_Case;
procedure Get (File : in File_Type; Item : out Enum);
procedure Get (File : File_Type; Item : out Enum);
procedure Get (Item : out Enum);
procedure Put
(File : in File_Type;
Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting);
(File : File_Type;
Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting);
procedure Put
(Item : in Enum;
Width : in Field := Default_Width;
Set : in Type_Set := Default_Setting);
(Item : Enum;
Width : Field := Default_Width;
Set : Type_Set := Default_Setting);
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Enum;
Last : out Positive);
procedure Put
(To : out Wide_String;
Item : in Enum;
Set : in Type_Set := Default_Setting);
Item : Enum;
Set : Type_Set := Default_Setting);
end Ada.Wide_Text_IO.Enumeration_IO;
gcc/ada/a-wtfiio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -47,9 +47,9 @@ package body Ada.Wide_Text_IO.Fixed_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Aux.Get (TFT (File), Long_Long_Float (Item), Width);
......@@ -60,14 +60,14 @@ package body Ada.Wide_Text_IO.Fixed_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_Input, Item, Width);
end Get;
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive)
is
......@@ -89,21 +89,21 @@ package body Ada.Wide_Text_IO.Fixed_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Put (TFT (File), Long_Long_Float (Item), Fore, Aft, Exp);
end Put;
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Put (Current_Output, Item, Fore, Aft, Exp);
......@@ -111,9 +111,9 @@ package body Ada.Wide_Text_IO.Fixed_IO is
procedure Put
(To : out Wide_String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
S : String (To'First .. To'Last);
......
gcc/ada/a-wtfiio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -51,36 +51,36 @@ package Ada.Wide_Text_IO.Fixed_IO is
Default_Exp : Field := 0;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out Wide_String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
end Ada.Wide_Text_IO.Fixed_IO;
gcc/ada/a-wtflau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -43,9 +43,9 @@ package body Ada.Wide_Text_IO.Float_Aux is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Float;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Stop : Integer := 0;
......@@ -69,7 +69,7 @@ package body Ada.Wide_Text_IO.Float_Aux is
----------
procedure Gets
(From : in String;
(From : String;
Item : out Long_Long_Float;
Last : out Positive)
is
......@@ -90,7 +90,7 @@ package body Ada.Wide_Text_IO.Float_Aux is
---------------
procedure Load_Real
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural)
is
......@@ -181,11 +181,11 @@ package body Ada.Wide_Text_IO.Float_Aux is
---------
procedure Put
(File : in File_Type;
Item : in Long_Long_Float;
Fore : in Field;
Aft : in Field;
Exp : in Field)
(File : File_Type;
Item : Long_Long_Float;
Fore : Field;
Aft : Field;
Exp : Field)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -201,9 +201,9 @@ package body Ada.Wide_Text_IO.Float_Aux is
procedure Puts
(To : out String;
Item : in Long_Long_Float;
Aft : in Field;
Exp : in Field)
Item : Long_Long_Float;
Aft : Field;
Exp : Field)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......
gcc/ada/a-wtflau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -42,33 +42,33 @@
private package Ada.Wide_Text_IO.Float_Aux is
procedure Load_Real
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural);
-- This is an auxiliary routine that is used to load a possibly signed
-- real literal value from the input file into Buf, starting at Ptr + 1.
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Float;
Width : in Field);
Width : Field);
procedure Gets
(From : in String;
(From : String;
Item : out Long_Long_Float;
Last : out Positive);
procedure Put
(File : in File_Type;
Item : in Long_Long_Float;
Fore : in Field;
Aft : in Field;
Exp : in Field);
(File : File_Type;
Item : Long_Long_Float;
Fore : Field;
Aft : Field;
Exp : Field);
procedure Puts
(To : out String;
Item : in Long_Long_Float;
Aft : in Field;
Exp : in Field);
Item : Long_Long_Float;
Aft : Field;
Exp : Field);
end Ada.Wide_Text_IO.Float_Aux;
gcc/ada/a-wtflio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Ada.Wide_Text_IO.Float_Aux;
with System.WCh_Con; use System.WCh_Con;
with System.WCh_WtS; use System.WCh_WtS;
......@@ -47,9 +48,9 @@ package body Ada.Wide_Text_IO.Float_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Aux.Get (TFT (File), Long_Long_Float (Item), Width);
......@@ -60,14 +61,14 @@ package body Ada.Wide_Text_IO.Float_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_Input, Item, Width);
end Get;
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive)
is
......@@ -89,21 +90,21 @@ package body Ada.Wide_Text_IO.Float_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Aux.Put (TFT (File), Long_Long_Float (Item), Fore, Aft, Exp);
end Put;
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
begin
Put (Current_Output, Item, Fore, Aft, Exp);
......@@ -111,9 +112,9 @@ package body Ada.Wide_Text_IO.Float_IO is
procedure Put
(To : out Wide_String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp)
is
S : String (To'First .. To'Last);
......
gcc/ada/a-wtflio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -51,36 +51,36 @@ package Ada.Wide_Text_IO.Float_IO is
Default_Exp : Field := 3;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(File : File_Type;
Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Put
(Item : in Num;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
(Item : Num;
Fore : Field := Default_Fore;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out Wide_String;
Item : in Num;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
Item : Num;
Aft : Field := Default_Aft;
Exp : Field := Default_Exp);
end Ada.Wide_Text_IO.Float_IO;
gcc/ada/a-wtgeau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -79,7 +79,7 @@ package Ada.Wide_Text_IO.Generic_Aux is
procedure Load_Width
(File : File_Type;
Width : in Field;
Width : Field;
Buf : out String;
Ptr : in out Integer);
-- Loads exactly Width characters, unless a line mark is encountered first
......
gcc/ada/a-wtinau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -49,7 +49,7 @@ package body Ada.Wide_Text_IO.Integer_Aux is
-----------------------
procedure Load_Integer
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural);
-- This is an auxiliary routine that is used to load an possibly signed
......@@ -61,9 +61,9 @@ package body Ada.Wide_Text_IO.Integer_Aux is
-------------
procedure Get_Int
(File : in File_Type;
(File : File_Type;
Item : out Integer;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer := 1;
......@@ -86,9 +86,9 @@ package body Ada.Wide_Text_IO.Integer_Aux is
-------------
procedure Get_LLI
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Integer;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Ptr : aliased Integer := 1;
......@@ -111,7 +111,7 @@ package body Ada.Wide_Text_IO.Integer_Aux is
--------------
procedure Gets_Int
(From : in String;
(From : String;
Item : out Integer;
Last : out Positive)
is
......@@ -132,7 +132,7 @@ package body Ada.Wide_Text_IO.Integer_Aux is
--------------
procedure Gets_LLI
(From : in String;
(From : String;
Item : out Long_Long_Integer;
Last : out Positive)
is
......@@ -153,7 +153,7 @@ package body Ada.Wide_Text_IO.Integer_Aux is
------------------
procedure Load_Integer
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural)
is
......@@ -193,10 +193,10 @@ package body Ada.Wide_Text_IO.Integer_Aux is
-------------
procedure Put_Int
(File : in File_Type;
Item : in Integer;
Width : in Field;
Base : in Number_Base)
(File : File_Type;
Item : Integer;
Width : Field;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -218,10 +218,10 @@ package body Ada.Wide_Text_IO.Integer_Aux is
-------------
procedure Put_LLI
(File : in File_Type;
Item : in Long_Long_Integer;
Width : in Field;
Base : in Number_Base)
(File : File_Type;
Item : Long_Long_Integer;
Width : Field;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -244,8 +244,8 @@ package body Ada.Wide_Text_IO.Integer_Aux is
procedure Puts_Int
(To : out String;
Item : in Integer;
Base : in Number_Base)
Item : Integer;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -270,8 +270,8 @@ package body Ada.Wide_Text_IO.Integer_Aux is
procedure Puts_LLI
(To : out String;
Item : in Long_Long_Integer;
Base : in Number_Base)
Item : Long_Long_Integer;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......
gcc/ada/a-wtinau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -41,45 +41,45 @@
private package Ada.Wide_Text_IO.Integer_Aux is
procedure Get_Int
(File : in File_Type;
(File : File_Type;
Item : out Integer;
Width : in Field);
Width : Field);
procedure Get_LLI
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Integer;
Width : in Field);
Width : Field);
procedure Gets_Int
(From : in String;
(From : String;
Item : out Integer;
Last : out Positive);
procedure Gets_LLI
(From : in String;
(From : String;
Item : out Long_Long_Integer;
Last : out Positive);
procedure Put_Int
(File : in File_Type;
Item : in Integer;
Width : in Field;
Base : in Number_Base);
(File : File_Type;
Item : Integer;
Width : Field;
Base : Number_Base);
procedure Put_LLI
(File : in File_Type;
Item : in Long_Long_Integer;
Width : in Field;
Base : in Number_Base);
(File : File_Type;
Item : Long_Long_Integer;
Width : Field;
Base : Number_Base);
procedure Puts_Int
(To : out String;
Item : in Integer;
Base : in Number_Base);
Item : Integer;
Base : Number_Base);
procedure Puts_LLI
(To : out String;
Item : in Long_Long_Integer;
Base : in Number_Base);
Item : Long_Long_Integer;
Base : Number_Base);
end Ada.Wide_Text_IO.Integer_Aux;
gcc/ada/a-wtinio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -54,9 +54,9 @@ package body Ada.Wide_Text_IO.Integer_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
if Need_LLI then
......@@ -71,14 +71,14 @@ package body Ada.Wide_Text_IO.Integer_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_Input, Item, Width);
end Get;
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive)
is
......@@ -104,10 +104,10 @@ package body Ada.Wide_Text_IO.Integer_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
if Need_LLI then
......@@ -118,9 +118,9 @@ package body Ada.Wide_Text_IO.Integer_IO is
end Put;
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
Put (Current_Output, Item, Width, Base);
......@@ -128,8 +128,8 @@ package body Ada.Wide_Text_IO.Integer_IO is
procedure Put
(To : out Wide_String;
Item : in Num;
Base : in Number_Base := Default_Base)
Item : Num;
Base : Number_Base := Default_Base)
is
S : String (To'First .. To'Last);
......
gcc/ada/a-wtinio.ads
......@@ -28,33 +28,33 @@ package Ada.Wide_Text_IO.Integer_IO is
Default_Base : Number_Base := 10;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out Wide_String;
Item : in Num;
Base : in Number_Base := Default_Base);
Item : Num;
Base : Number_Base := Default_Base);
end Ada.Wide_Text_IO.Integer_IO;
gcc/ada/a-wtmoau.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -51,7 +51,7 @@ package body Ada.Wide_Text_IO.Modular_Aux is
-----------------------
procedure Load_Modular
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural);
-- This is an auxiliary routine that is used to load an possibly signed
......@@ -63,9 +63,9 @@ package body Ada.Wide_Text_IO.Modular_Aux is
-------------
procedure Get_LLU
(File : in File_Type;
(File : File_Type;
Item : out Long_Long_Unsigned;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Stop : Integer := 0;
......@@ -88,9 +88,9 @@ package body Ada.Wide_Text_IO.Modular_Aux is
-------------
procedure Get_Uns
(File : in File_Type;
(File : File_Type;
Item : out Unsigned;
Width : in Field)
Width : Field)
is
Buf : String (1 .. Field'Last);
Stop : Integer := 0;
......@@ -113,7 +113,7 @@ package body Ada.Wide_Text_IO.Modular_Aux is
--------------
procedure Gets_LLU
(From : in String;
(From : String;
Item : out Long_Long_Unsigned;
Last : out Positive)
is
......@@ -134,7 +134,7 @@ package body Ada.Wide_Text_IO.Modular_Aux is
--------------
procedure Gets_Uns
(From : in String;
(From : String;
Item : out Unsigned;
Last : out Positive)
is
......@@ -155,7 +155,7 @@ package body Ada.Wide_Text_IO.Modular_Aux is
------------------
procedure Load_Modular
(File : in File_Type;
(File : File_Type;
Buf : out String;
Ptr : in out Natural)
is
......@@ -203,10 +203,10 @@ package body Ada.Wide_Text_IO.Modular_Aux is
-------------
procedure Put_LLU
(File : in File_Type;
Item : in Long_Long_Unsigned;
Width : in Field;
Base : in Number_Base)
(File : File_Type;
Item : Long_Long_Unsigned;
Width : Field;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -228,10 +228,10 @@ package body Ada.Wide_Text_IO.Modular_Aux is
-------------
procedure Put_Uns
(File : in File_Type;
Item : in Unsigned;
Width : in Field;
Base : in Number_Base)
(File : File_Type;
Item : Unsigned;
Width : Field;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -254,8 +254,8 @@ package body Ada.Wide_Text_IO.Modular_Aux is
procedure Puts_LLU
(To : out String;
Item : in Long_Long_Unsigned;
Base : in Number_Base)
Item : Long_Long_Unsigned;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......@@ -280,8 +280,8 @@ package body Ada.Wide_Text_IO.Modular_Aux is
procedure Puts_Uns
(To : out String;
Item : in Unsigned;
Base : in Number_Base)
Item : Unsigned;
Base : Number_Base)
is
Buf : String (1 .. Field'Last);
Ptr : Natural := 0;
......
gcc/ada/a-wtmoau.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-1997 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -45,45 +45,45 @@ private package Ada.Wide_Text_IO.Modular_Aux is
package U renames System.Unsigned_Types;
procedure Get_Uns
(File : in File_Type;
(File : File_Type;
Item : out U.Unsigned;
Width : in Field);
Width : Field);
procedure Get_LLU
(File : in File_Type;
(File : File_Type;
Item : out U.Long_Long_Unsigned;
Width : in Field);
Width : Field);
procedure Gets_Uns
(From : in String;
(From : String;
Item : out U.Unsigned;
Last : out Positive);
procedure Gets_LLU
(From : in String;
(From : String;
Item : out U.Long_Long_Unsigned;
Last : out Positive);
procedure Put_Uns
(File : in File_Type;
Item : in U.Unsigned;
Width : in Field;
Base : in Number_Base);
(File : File_Type;
Item : U.Unsigned;
Width : Field;
Base : Number_Base);
procedure Put_LLU
(File : in File_Type;
Item : in U.Long_Long_Unsigned;
Width : in Field;
Base : in Number_Base);
(File : File_Type;
Item : U.Long_Long_Unsigned;
Width : Field;
Base : Number_Base);
procedure Puts_Uns
(To : out String;
Item : in U.Unsigned;
Base : in Number_Base);
Item : U.Unsigned;
Base : Number_Base);
procedure Puts_LLU
(To : out String;
Item : in U.Long_Long_Unsigned;
Base : in Number_Base);
Item : U.Long_Long_Unsigned;
Base : Number_Base);
end Ada.Wide_Text_IO.Modular_Aux;
gcc/ada/a-wtmoio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -49,9 +49,9 @@ package body Ada.Wide_Text_IO.Modular_IO is
---------
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
if Num'Size > Unsigned'Size then
......@@ -66,14 +66,14 @@ package body Ada.Wide_Text_IO.Modular_IO is
procedure Get
(Item : out Num;
Width : in Field := 0)
Width : Field := 0)
is
begin
Get (Current_Input, Item, Width);
end Get;
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive)
is
......@@ -99,10 +99,10 @@ package body Ada.Wide_Text_IO.Modular_IO is
---------
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
if Num'Size > Unsigned'Size then
......@@ -113,9 +113,9 @@ package body Ada.Wide_Text_IO.Modular_IO is
end Put;
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base)
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base)
is
begin
Put (Current_Output, Item, Width, Base);
......@@ -123,8 +123,8 @@ package body Ada.Wide_Text_IO.Modular_IO is
procedure Put
(To : out Wide_String;
Item : in Num;
Base : in Number_Base := Default_Base)
Item : Num;
Base : Number_Base := Default_Base)
is
S : String (To'First .. To'Last);
......
gcc/ada/a-wtmoio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -50,33 +50,33 @@ package Ada.Wide_Text_IO.Modular_IO is
Default_Base : Number_Base := 10;
procedure Get
(File : in File_Type;
(File : File_Type;
Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Get
(Item : out Num;
Width : in Field := 0);
Width : Field := 0);
procedure Put
(File : in File_Type;
Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(File : File_Type;
Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Put
(Item : in Num;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base);
(Item : Num;
Width : Field := Default_Width;
Base : Number_Base := Default_Base);
procedure Get
(From : in Wide_String;
(From : Wide_String;
Item : out Num;
Last : out Positive);
procedure Put
(To : out Wide_String;
Item : in Num;
Base : in Number_Base := Default_Base);
Item : Num;
Base : Number_Base := Default_Base);
end Ada.Wide_Text_IO.Modular_IO;
gcc/ada/a-ztcoio.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......
gcc/ada/a-ztedit.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, 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- --
......@@ -53,7 +53,7 @@ package body Ada.Wide_Wide_Text_IO.Editing is
-- Blank_When_Zero --
---------------------
function Blank_When_Zero (Pic : in Picture) return Boolean is
function Blank_When_Zero (Pic : Picture) return Boolean is
begin
return Pic.Contents.Original_BWZ;
end Blank_When_Zero;
......@@ -195,7 +195,7 @@ package body Ada.Wide_Wide_Text_IO.Editing is
-- Expand --
------------
function Expand (Picture : in String) return String is
function Expand (Picture : String) return String is
Result : String (1 .. MAX_PICSIZE);
Picture_Index : Integer := Picture'First;
Result_Index : Integer := Result'First;
......@@ -1097,7 +1097,7 @@ package body Ada.Wide_Wide_Text_IO.Editing is
-- The following ensures that we return B and not b being careful not
-- to break things which expect lower case b for blank. See CXF3A02.
function Pic_String (Pic : in Picture) return String is
function Pic_String (Pic : Picture) return String is
Temp : String (1 .. Pic.Contents.Picture.Length) :=
Pic.Contents.Picture.Expanded;
begin
......@@ -2757,11 +2757,10 @@ package body Ada.Wide_Wide_Text_IO.Editing is
Format_Rec.Original_BWZ := Blank_When_Zero;
Precalculate (Format_Rec);
-- False only if Blank_When_0 is True but the pic string
-- has a '*'
-- False only if Blank_When_0 is True but the pic string has a '*'
return not Blank_When_Zero or
Strings_Fixed.Index (Expanded_Pic, "*") = 0;
return not Blank_When_Zero
or else Strings_Fixed.Index (Expanded_Pic, "*") = 0;
end;
exception
......
gcc/ada/a-ztedit.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -47,8 +47,8 @@ package Ada.Wide_Wide_Text_IO.Editing is
(Pic_String : String;
Blank_When_Zero : Boolean := False) return Picture;
function Pic_String (Pic : in Picture) return String;
function Blank_When_Zero (Pic : in Picture) return Boolean;
function Pic_String (Pic : Picture) return String;
function Blank_When_Zero (Pic : Picture) return Boolean;
Max_Picture_Length : constant := 64;
......@@ -195,6 +195,6 @@ private
Radix_Point : Wide_Wide_Character) return Wide_Wide_String;
-- Formats number according to Pic
function Expand (Picture : in String) return String;
function Expand (Picture : String) return String;
end Ada.Wide_Wide_Text_IO.Editing;
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