diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:28:43 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-15 09:28:43 +0000 |
| commit | 0311af6afb62db5816bc1b2e2e7ea3d7f27cee71 (patch) | |
| tree | 34addcebd3391924517515b8f61a38087d82089e | |
| parent | 2e70d70dab8bc2f09b71041dc9719a5fbed638ab (diff) | |
| download | ppe42-gcc-0311af6afb62db5816bc1b2e2e7ea3d7f27cee71.tar.gz ppe42-gcc-0311af6afb62db5816bc1b2e2e7ea3d7f27cee71.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111023 138bc75d-0d04-0410-961f-82ee72b054a4
155 files changed, 1492 insertions, 1551 deletions
diff --git a/gcc/ada/a-cdlili.adb b/gcc/ada/a-cdlili.adb index c6d7dbff0fe..af83a6db73b 100644 --- a/gcc/ada/a-cdlili.adb +++ b/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 diff --git a/gcc/ada/a-cgaaso.ads b/gcc/ada/a-cgaaso.ads index e9d031990d7..0870512d49e 100644 --- a/gcc/ada/a-cgaaso.ads +++ b/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); diff --git a/gcc/ada/a-cidlli.adb b/gcc/ada/a-cidlli.adb index 0752f9fa09c..f34c9e52986 100644 --- a/gcc/ada/a-cidlli.adb +++ b/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; diff --git a/gcc/ada/a-coinve.adb b/gcc/ada/a-coinve.adb index 6aee444e1b0..2252f78017a 100644 --- a/gcc/ada/a-coinve.adb +++ b/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; diff --git a/gcc/ada/a-colien.adb b/gcc/ada/a-colien.adb index 881fb0c32f4..7412a40f119 100644 --- a/gcc/ada/a-colien.adb +++ b/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"); diff --git a/gcc/ada/a-colien.ads b/gcc/ada/a-colien.ads index 404845bcc09..fb6b94791e0 100644 --- a/gcc/ada/a-colien.ads +++ b/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 diff --git a/gcc/ada/a-colire.adb b/gcc/ada/a-colire.adb index 096c166b8dd..0e283fcb82a 100644 --- a/gcc/ada/a-colire.adb +++ b/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; diff --git a/gcc/ada/a-colire.ads b/gcc/ada/a-colire.ads index e0c038806f7..6a826bc406a 100644 --- a/gcc/ada/a-colire.ads +++ b/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 diff --git a/gcc/ada/a-comlin.adb b/gcc/ada/a-comlin.adb index ab438788d45..325c46df4f8 100644 --- a/gcc/ada/a-comlin.adb +++ b/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 diff --git a/gcc/ada/a-decima.adb b/gcc/ada/a-decima.adb index 80be38f920d..274db5ae17f 100644 --- a/gcc/ada/a-decima.adb +++ b/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); diff --git a/gcc/ada/a-decima.ads b/gcc/ada/a-decima.ads index 9fdbaa292ea..5ce1a4b0727 100644 --- a/gcc/ada/a-decima.ads +++ b/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); diff --git a/gcc/ada/a-direio.adb b/gcc/ada/a-direio.adb index a5351f54b55..5674339e156 100644 --- a/gcc/ada/a-direio.adb +++ b/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; diff --git a/gcc/ada/a-direio.ads b/gcc/ada/a-direio.ads index a98e93f5fba..29aef9cc049 100644 --- a/gcc/ada/a-direio.ads +++ b/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 -- diff --git a/gcc/ada/a-ngcoty.adb b/gcc/ada/a-ngcoty.adb index f0abc80ec37..044f748fb6a 100644 --- a/gcc/ada/a-ngcoty.adb +++ b/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; diff --git a/gcc/ada/a-ngcoty.ads b/gcc/ada/a-ngcoty.ads index 0e006d24cb9..33e818a6824 100644 --- a/gcc/ada/a-ngcoty.ads +++ b/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; diff --git a/gcc/ada/a-nuflra.adb b/gcc/ada/a-nuflra.adb index 379d58fe7b4..ae23f459381 100644 --- a/gcc/ada/a-nuflra.adb +++ b/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,24 +65,24 @@ 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 - Quo : Int := P / Q; -- q <-- |_ a (i-1) / a (i) _| + Quo : Int := P / Q; -- q <-- |_ a (i-1) / a (i) _| XT : Int := X; -- x (i) YT : Int := Y; -- y (i) @@ -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; diff --git a/gcc/ada/a-nuflra.ads b/gcc/ada/a-nuflra.ads index 898a7fd72b7..8d3f097aa2a 100644 --- a/gcc/ada/a-nuflra.ads +++ b/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 -- @@ -69,7 +69,7 @@ package Ada.Numerics.Float_Random is Max_Image_Width : constant := 80; - function Image (Of_State : State) return String; + function Image (Of_State : State) return String; function Value (Coded_State : String) return State; private diff --git a/gcc/ada/a-sequio.adb b/gcc/ada/a-sequio.adb index 6d4d84f9d2f..6fea01ef88c 100644 --- a/gcc/ada/a-sequio.adb +++ b/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 diff --git a/gcc/ada/a-sequio.ads b/gcc/ada/a-sequio.ads index 2aba80abfc5..a811d567b23 100644 --- a/gcc/ada/a-sequio.ads +++ b/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 -- diff --git a/gcc/ada/a-storio.ads b/gcc/ada/a-storio.ads index 23e57c53abd..e5268c80399 100644 --- a/gcc/ada/a-storio.ads +++ b/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 -- diff --git a/gcc/ada/a-stream.ads b/gcc/ada/a-stream.ads index 5bca4a2cc5b..ce3c335e71f 100644 --- a/gcc/ada/a-stream.ads +++ b/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 diff --git a/gcc/ada/a-ststio.adb b/gcc/ada/a-ststio.adb index 4a61e0c28ed..7091d5d9f7b 100644 --- a/gcc/ada/a-ststio.adb +++ b/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- -- @@ -31,11 +31,13 @@ -- -- ------------------------------------------------------------------------------ -with Interfaces.C_Streams; use Interfaces.C_Streams; -with System; use System; +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); diff --git a/gcc/ada/a-ststio.ads b/gcc/ada/a-ststio.ads index be24f0dec4f..232672985d5 100644 --- a/gcc/ada/a-ststio.ads +++ b/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; diff --git a/gcc/ada/a-stwima.adb b/gcc/ada/a-stwima.adb index d56fb11ca8b..d1f27e5b4b0 100644 --- a/gcc/ada/a-stwima.adb +++ b/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; diff --git a/gcc/ada/a-stwima.ads b/gcc/ada/a-stwima.ads index e63ac3169df..812de22b2bd 100644 --- a/gcc/ada/a-stwima.ads +++ b/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; diff --git a/gcc/ada/a-stwise.adb b/gcc/ada/a-stwise.adb index f2be824df0f..b0c67abba1e 100644 --- a/gcc/ada/a-stwise.adb +++ b/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,8 +130,8 @@ package body Ada.Strings.Wide_Search is end Count; function Count - (Source : in Wide_String; - Set : Wide_Maps.Wide_Character_Set) return Natural + (Source : Wide_String; + Set : Wide_Maps.Wide_Character_Set) return Natural is N : Natural := 0; diff --git a/gcc/ada/a-stzmap.adb b/gcc/ada/a-stzmap.adb index 35a03853fde..1573c6fdfb7 100644 --- a/gcc/ada/a-stzmap.adb +++ b/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; diff --git a/gcc/ada/a-stzmap.ads b/gcc/ada/a-stzmap.ads index b69357af4c0..d79b0f9844b 100644 --- a/gcc/ada/a-stzmap.ads +++ b/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; diff --git a/gcc/ada/a-tasatt.ads b/gcc/ada/a-tasatt.ads index 76174b67c77..a07196c3888 100644 --- a/gcc/ada/a-tasatt.ads +++ b/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; diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb index b4280c370ad..5f84c7241ef 100644 --- a/gcc/ada/a-teioed.adb +++ b/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 diff --git a/gcc/ada/a-teioed.ads b/gcc/ada/a-teioed.ads index fb324ed86b6..b2c34121ada 100644 --- a/gcc/ada/a-teioed.ads +++ b/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; diff --git a/gcc/ada/a-ticoau.adb b/gcc/ada/a-ticoau.adb index 9d543202377..546ba298962 100644 --- a/gcc/ada/a-ticoau.adb +++ b/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); diff --git a/gcc/ada/a-ticoau.ads b/gcc/ada/a-ticoau.ads index c91804a0644..acad607cace 100644 --- a/gcc/ada/a-ticoau.ads +++ b/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); diff --git a/gcc/ada/a-ticoio.adb b/gcc/ada/a-ticoio.adb index f620945775a..90ab4e37882 100644 --- a/gcc/ada/a-ticoio.adb +++ b/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,12 +49,12 @@ 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; + Real_Item : Real'Base; + Imag_Item : Real'Base; begin Aux.Get (File, LLF (Real_Item), LLF (Imag_Item), Width); @@ -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); diff --git a/gcc/ada/a-tideau.adb b/gcc/ada/a-tideau.adb index 82ed8492763..5be5f66f074 100644 --- a/gcc/ada/a-tideau.adb +++ b/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); diff --git a/gcc/ada/a-tideau.ads b/gcc/ada/a-tideau.ads index 65ddeb79ce7..9855e5b4237 100644 --- a/gcc/ada/a-tideau.ads +++ b/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; diff --git a/gcc/ada/a-tideio.adb b/gcc/ada/a-tideio.adb index 3f945025042..05d2c03000c 100644 --- a/gcc/ada/a-tideio.adb +++ b/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 diff --git a/gcc/ada/a-tideio.ads b/gcc/ada/a-tideio.ads index de1b02b04ac..6e271413161 100644 --- a/gcc/ada/a-tideio.ads +++ b/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); diff --git a/gcc/ada/a-tienau.adb b/gcc/ada/a-tienau.adb index 3e6506cfac7..aadb479ec7e 100644 --- a/gcc/ada/a-tienau.adb +++ b/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- -- @@ -154,9 +154,9 @@ package body Ada.Text_IO.Enumeration_Aux is ---------- procedure Puts - (To : out String; - Item : in String; - Set : Type_Set) + (To : out String; + Item : String; + Set : Type_Set) is Ptr : Natural; diff --git a/gcc/ada/a-tienau.ads b/gcc/ada/a-tienau.ads index 00747d50f60..777a6f93175 100644 --- a/gcc/ada/a-tienau.ads +++ b/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- -- @@ -62,9 +62,9 @@ private package Ada.Text_IO.Enumeration_Aux is -- using the given Width and Set parameters (Item is always in upper case). procedure Puts - (To : out String; - Item : in String; - Set : Type_Set); + (To : out 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 diff --git a/gcc/ada/a-tienio.adb b/gcc/ada/a-tienio.adb index 4d1bdedd44c..6ff484dd3fd 100644 --- a/gcc/ada/a-tienio.adb +++ b/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); diff --git a/gcc/ada/a-tienio.ads b/gcc/ada/a-tienio.ads index 4bb146caa73..430a9f6647a 100644 --- a/gcc/ada/a-tienio.ads +++ b/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; diff --git a/gcc/ada/a-tifiio.ads b/gcc/ada/a-tifiio.ads index b0d91874a25..26fa95e3573 100644 --- a/gcc/ada/a-tifiio.ads +++ b/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); diff --git a/gcc/ada/a-tiflau.adb b/gcc/ada/a-tiflau.adb index 21ee426beaa..d0fe1e153ee 100644 --- a/gcc/ada/a-tiflau.adb +++ b/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- -- @@ -33,8 +33,8 @@ with Ada.Text_IO.Generic_Aux; use Ada.Text_IO.Generic_Aux; -with System.Img_Real; use System.Img_Real; -with System.Val_Real; use System.Val_Real; +with System.Img_Real; use System.Img_Real; +with System.Val_Real; use System.Val_Real; package body Ada.Text_IO.Float_Aux is @@ -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; diff --git a/gcc/ada/a-tiflau.ads b/gcc/ada/a-tiflau.ads index 12928d30417..41e6b673448 100644 --- a/gcc/ada/a-tiflau.ads +++ b/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; diff --git a/gcc/ada/a-tiflio.adb b/gcc/ada/a-tiflio.adb index 3961a65f1c8..5a776a44a77 100644 --- a/gcc/ada/a-tiflio.adb +++ b/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); diff --git a/gcc/ada/a-tiflio.ads b/gcc/ada/a-tiflio.ads index 791867f4567..51145833fe5 100644 --- a/gcc/ada/a-tiflio.ads +++ b/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); diff --git a/gcc/ada/a-tigeau.ads b/gcc/ada/a-tigeau.ads index 3803e9a2385..786b7556d33 100644 --- a/gcc/ada/a-tigeau.ads +++ b/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 diff --git a/gcc/ada/a-tiinau.adb b/gcc/ada/a-tiinau.adb index e5f24e32d12..38be55fa655 100644 --- a/gcc/ada/a-tiinau.adb +++ b/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; diff --git a/gcc/ada/a-tiinau.ads b/gcc/ada/a-tiinau.ads index 4fbedc96f21..98bd55d8ad6 100644 --- a/gcc/ada/a-tiinau.ads +++ b/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; diff --git a/gcc/ada/a-tiinio.adb b/gcc/ada/a-tiinio.adb index ea8b397b47f..44c398f3bfb 100644 --- a/gcc/ada/a-tiinio.adb +++ b/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 diff --git a/gcc/ada/a-tiinio.ads b/gcc/ada/a-tiinio.ads index 9669933d6a3..b0447657b3a 100644 --- a/gcc/ada/a-tiinio.ads +++ b/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); diff --git a/gcc/ada/a-timoio.adb b/gcc/ada/a-timoio.adb index afb9b5db85d..605e68dade5 100644 --- a/gcc/ada/a-timoio.adb +++ b/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 diff --git a/gcc/ada/a-timoio.ads b/gcc/ada/a-timoio.ads index bdfa77d393a..d1a7a15bc53 100644 --- a/gcc/ada/a-timoio.ads +++ b/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); diff --git a/gcc/ada/a-titest.adb b/gcc/ada/a-titest.adb index 98f9c0b00df..60dda6abbd7 100644 --- a/gcc/ada/a-titest.adb +++ b/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); diff --git a/gcc/ada/a-titest.ads b/gcc/ada/a-titest.ads index be4b6253fba..d2fa2e7b3f6 100644 --- a/gcc/ada/a-titest.ads +++ b/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; diff --git a/gcc/ada/a-wtcoio.adb b/gcc/ada/a-wtcoio.adb index eedbfc0ee25..14faf91843b 100644 --- a/gcc/ada/a-wtcoio.adb +++ b/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- -- @@ -56,9 +56,9 @@ package body Ada.Wide_Text_IO.Complex_IO is --------- procedure Get - (File : File_Type; + (File : File_Type; Item : out Complex; - Width : Field := 0) + Width : Field := 0) is Real_Item : Real'Base; Imag_Item : Real'Base; diff --git a/gcc/ada/a-wtdeau.adb b/gcc/ada/a-wtdeau.adb index bffe3c53f32..6b6286537f0 100644 --- a/gcc/ada/a-wtdeau.adb +++ b/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- -- @@ -46,10 +46,9 @@ package body Ada.Wide_Text_IO.Decimal_Aux is ------------- function Get_Dec - (File : File_Type; - Width : 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.Wide_Text_IO.Decimal_Aux is ------------- function Get_LLD - (File : File_Type; - Width : 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; @@ -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; diff --git a/gcc/ada/a-wtdeau.ads b/gcc/ada/a-wtdeau.ads index 46a25a1489a..f8983ebd83d 100644 --- a/gcc/ada/a-wtdeau.ads +++ b/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; diff --git a/gcc/ada/a-wtdeio.adb b/gcc/ada/a-wtdeio.adb index 376e7f72440..910165060fc 100644 --- a/gcc/ada/a-wtdeio.adb +++ b/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); diff --git a/gcc/ada/a-wtdeio.ads b/gcc/ada/a-wtdeio.ads index cb099fe25b3..9f664cdbbe6 100644 --- a/gcc/ada/a-wtdeio.ads +++ b/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; diff --git a/gcc/ada/a-wtedit.adb b/gcc/ada/a-wtedit.adb index b4736232310..ce2380a56fc 100644 --- a/gcc/ada/a-wtedit.adb +++ b/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; @@ -308,9 +308,9 @@ package body Ada.Wide_Text_IO.Editing is Sign_Position : Integer := Pic.Sign_Position; -- may float. - Answer : Wide_String (1 .. Pic.Picture.Length); - Last : Integer; - Currency_Pos : Integer := Pic.Start_Currency; + Answer : Wide_String (1 .. Pic.Picture.Length); + Last : Integer; + Currency_Pos : Integer := Pic.Start_Currency; Dollar : Boolean := False; -- Overridden immediately if necessary @@ -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 diff --git a/gcc/ada/a-wtedit.ads b/gcc/ada/a-wtedit.ads index f275f8052de..e0917f51678 100644 --- a/gcc/ada/a-wtedit.ads +++ b/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; diff --git a/gcc/ada/a-wtenau.adb b/gcc/ada/a-wtenau.adb index 4a231e52595..0bba4ec1de2 100644 --- a/gcc/ada/a-wtenau.adb +++ b/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- -- @@ -190,9 +190,9 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is ---------- procedure Puts - (To : out Wide_String; - Item : in Wide_String; - Set : Type_Set) + (To : out Wide_String; + Item : Wide_String; + Set : Type_Set) is Ptr : Natural; diff --git a/gcc/ada/a-wtenau.ads b/gcc/ada/a-wtenau.ads index 16ced2dfe54..d526626ec17 100644 --- a/gcc/ada/a-wtenau.ads +++ b/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- -- @@ -62,9 +62,9 @@ private package Ada.Wide_Text_IO.Enumeration_Aux is -- using the given Width and Set parameters (Item is always in upper case). procedure Puts - (To : out Wide_String; - Item : in Wide_String; - Set : Type_Set); + (To : out 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 diff --git a/gcc/ada/a-wtenio.adb b/gcc/ada/a-wtenio.adb index fd40df538e6..33e5970307d 100644 --- a/gcc/ada/a-wtenio.adb +++ b/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); diff --git a/gcc/ada/a-wtenio.ads b/gcc/ada/a-wtenio.ads index 5ee0515f89f..700783d601c 100644 --- a/gcc/ada/a-wtenio.ads +++ b/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; diff --git a/gcc/ada/a-wtfiio.adb b/gcc/ada/a-wtfiio.adb index 405f17d15ad..50a24a9512d 100644 --- a/gcc/ada/a-wtfiio.adb +++ b/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); diff --git a/gcc/ada/a-wtfiio.ads b/gcc/ada/a-wtfiio.ads index e325e7e374f..83571f31c47 100644 --- a/gcc/ada/a-wtfiio.ads +++ b/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; diff --git a/gcc/ada/a-wtflau.adb b/gcc/ada/a-wtflau.adb index b7c1e3715cf..a7e03b6bd3f 100644 --- a/gcc/ada/a-wtflau.adb +++ b/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,12 +201,12 @@ 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; + Buf : String (1 .. Field'Last); + Ptr : Natural := 0; begin Set_Image_Real (Item, Buf, Ptr, Fore => 1, Aft => Aft, Exp => Exp); diff --git a/gcc/ada/a-wtflau.ads b/gcc/ada/a-wtflau.ads index 6156f8eb727..6370e79120a 100644 --- a/gcc/ada/a-wtflau.ads +++ b/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; diff --git a/gcc/ada/a-wtflio.adb b/gcc/ada/a-wtflio.adb index 1d331d41f37..715e0b074d0 100644 --- a/gcc/ada/a-wtflio.adb +++ b/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); diff --git a/gcc/ada/a-wtflio.ads b/gcc/ada/a-wtflio.ads index cca9301fb58..26114791733 100644 --- a/gcc/ada/a-wtflio.ads +++ b/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; diff --git a/gcc/ada/a-wtgeau.ads b/gcc/ada/a-wtgeau.ads index 9059dd6a297..6ee73e22fd9 100644 --- a/gcc/ada/a-wtgeau.ads +++ b/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 diff --git a/gcc/ada/a-wtinau.adb b/gcc/ada/a-wtinau.adb index 1d51e0f0e88..4889a8a5afc 100644 --- a/gcc/ada/a-wtinau.adb +++ b/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- -- @@ -33,14 +33,14 @@ with Ada.Wide_Text_IO.Generic_Aux; use Ada.Wide_Text_IO.Generic_Aux; -with System.Img_BIU; use System.Img_BIU; -with System.Img_Int; use System.Img_Int; -with System.Img_LLB; use System.Img_LLB; -with System.Img_LLI; use System.Img_LLI; -with System.Img_LLW; use System.Img_LLW; -with System.Img_WIU; use System.Img_WIU; -with System.Val_Int; use System.Val_Int; -with System.Val_LLI; use System.Val_LLI; +with System.Img_BIU; use System.Img_BIU; +with System.Img_Int; use System.Img_Int; +with System.Img_LLB; use System.Img_LLB; +with System.Img_LLI; use System.Img_LLI; +with System.Img_LLW; use System.Img_LLW; +with System.Img_WIU; use System.Img_WIU; +with System.Val_Int; use System.Val_Int; +with System.Val_LLI; use System.Val_LLI; package body Ada.Wide_Text_IO.Integer_Aux is @@ -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; diff --git a/gcc/ada/a-wtinau.ads b/gcc/ada/a-wtinau.ads index e56d8d1a931..73fe171b478 100644 --- a/gcc/ada/a-wtinau.ads +++ b/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; diff --git a/gcc/ada/a-wtinio.adb b/gcc/ada/a-wtinio.adb index deb3a519040..7686325bdf7 100644 --- a/gcc/ada/a-wtinio.adb +++ b/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); diff --git a/gcc/ada/a-wtinio.ads b/gcc/ada/a-wtinio.ads index 0c9c0642121..257ba23ac96 100644 --- a/gcc/ada/a-wtinio.ads +++ b/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; diff --git a/gcc/ada/a-wtmoau.adb b/gcc/ada/a-wtmoau.adb index 0a9dca44c7a..6a34d81c54d 100644 --- a/gcc/ada/a-wtmoau.adb +++ b/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- -- @@ -33,14 +33,14 @@ with Ada.Wide_Text_IO.Generic_Aux; use Ada.Wide_Text_IO.Generic_Aux; -with System.Img_BIU; use System.Img_BIU; -with System.Img_Uns; use System.Img_Uns; -with System.Img_LLB; use System.Img_LLB; -with System.Img_LLU; use System.Img_LLU; -with System.Img_LLW; use System.Img_LLW; -with System.Img_WIU; use System.Img_WIU; -with System.Val_Uns; use System.Val_Uns; -with System.Val_LLU; use System.Val_LLU; +with System.Img_BIU; use System.Img_BIU; +with System.Img_Uns; use System.Img_Uns; +with System.Img_LLB; use System.Img_LLB; +with System.Img_LLU; use System.Img_LLU; +with System.Img_LLW; use System.Img_LLW; +with System.Img_WIU; use System.Img_WIU; +with System.Val_Uns; use System.Val_Uns; +with System.Val_LLU; use System.Val_LLU; package body Ada.Wide_Text_IO.Modular_Aux is @@ -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; diff --git a/gcc/ada/a-wtmoau.ads b/gcc/ada/a-wtmoau.ads index 9fd6384158e..57e2e9a4963 100644 --- a/gcc/ada/a-wtmoau.ads +++ b/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; diff --git a/gcc/ada/a-wtmoio.adb b/gcc/ada/a-wtmoio.adb index e9bf8775367..2852fddfa06 100644 --- a/gcc/ada/a-wtmoio.adb +++ b/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); diff --git a/gcc/ada/a-wtmoio.ads b/gcc/ada/a-wtmoio.ads index fd2cb9623d2..542e430ee1c 100644 --- a/gcc/ada/a-wtmoio.ads +++ b/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; diff --git a/gcc/ada/a-ztcoio.adb b/gcc/ada/a-ztcoio.adb index 97e58a18a92..69c4ed694cd 100644 --- a/gcc/ada/a-ztcoio.adb +++ b/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- -- @@ -56,9 +56,9 @@ package body Ada.Wide_Wide_Text_IO.Complex_IO is --------- procedure Get - (File : File_Type; + (File : File_Type; Item : out Complex; - Width : Field := 0) + Width : Field := 0) is Real_Item : Real'Base; Imag_Item : Real'Base; diff --git a/gcc/ada/a-ztedit.adb b/gcc/ada/a-ztedit.adb index f763bdc3920..472075057da 100644 --- a/gcc/ada/a-ztedit.adb +++ b/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; @@ -309,9 +309,9 @@ package body Ada.Wide_Wide_Text_IO.Editing is Sign_Position : Integer := Pic.Sign_Position; -- may float. - Answer : Wide_Wide_String (1 .. Pic.Picture.Length); - Last : Integer; - Currency_Pos : Integer := Pic.Start_Currency; + Answer : Wide_Wide_String (1 .. Pic.Picture.Length); + Last : Integer; + Currency_Pos : Integer := Pic.Start_Currency; Dollar : Boolean := False; -- Overridden immediately if necessary @@ -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 diff --git a/gcc/ada/a-ztedit.ads b/gcc/ada/a-ztedit.ads index 3a2f49a4d71..e72bba781a1 100644 --- a/gcc/ada/a-ztedit.ads +++ b/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; diff --git a/gcc/ada/a-ztenau.adb b/gcc/ada/a-ztenau.adb index f3b570f69c6..01d996c418e 100644 --- a/gcc/ada/a-ztenau.adb +++ b/gcc/ada/a-ztenau.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- -- @@ -192,9 +192,9 @@ package body Ada.Wide_Wide_Text_IO.Enumeration_Aux is ---------- procedure Puts - (To : out Wide_Wide_String; - Item : Wide_Wide_String; - Set : Type_Set) + (To : out Wide_Wide_String; + Item : Wide_Wide_String; + Set : Type_Set) is Ptr : Natural; diff --git a/gcc/ada/a-ztenau.ads b/gcc/ada/a-ztenau.ads index 6683be974df..b24184d01f8 100644 --- a/gcc/ada/a-ztenau.ads +++ b/gcc/ada/a-ztenau.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- -- @@ -62,9 +62,9 @@ private package Ada.Wide_Wide_Text_IO.Enumeration_Aux is -- using the given Width and Set parameters (Item is always in upper case). procedure Puts - (To : out Wide_Wide_String; - Item : Wide_Wide_String; - Set : Type_Set); + (To : out Wide_Wide_String; + Item : Wide_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 diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb index 99db7769b1a..1801217cc1e 100644 --- a/gcc/ada/eval_fat.adb +++ b/gcc/ada/eval_fat.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- -- @@ -52,7 +52,7 @@ package body Eval_Fat is procedure Decompose (RT : R; - X : in T; + X : T; Fraction : out T; Exponent : out UI; Mode : Rounding_Mode := Round); @@ -63,7 +63,7 @@ package body Eval_Fat is procedure Decompose_Int (RT : R; - X : in T; + X : T; Fraction : out UI; Exponent : out UI; Mode : Rounding_Mode); @@ -148,7 +148,7 @@ package body Eval_Fat is procedure Decompose (RT : R; - X : in T; + X : T; Fraction : out T; Exponent : out UI; Mode : Rounding_Mode := Round) @@ -182,7 +182,7 @@ package body Eval_Fat is procedure Decompose_Int (RT : R; - X : in T; + X : T; Fraction : out UI; Exponent : out UI; Mode : Rounding_Mode) diff --git a/gcc/ada/exp_dist.ads b/gcc/ada/exp_dist.ads index 9ce4234cfa9..43e3a24c991 100644 --- a/gcc/ada/exp_dist.ads +++ b/gcc/ada/exp_dist.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. -- -- -- -- 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- -- @@ -31,44 +31,44 @@ with Types; use Types; package Exp_Dist is - procedure Add_RAST_Features (Vis_Decl : in Node_Id); + procedure Add_RAST_Features (Vis_Decl : Node_Id); -- Build and add bodies for dereference and 'Access subprograms for a -- remote access to subprogram type. Vis_Decl is the declaration node for -- the RAS type. - procedure Add_RACW_Features (RACW_Type : in Entity_Id); + procedure Add_RACW_Features (RACW_Type : Entity_Id); -- Add RACW features. If the RACW and the designated type are not in the -- same scope, then Add_RACW_Primitive_Declarations_And_Bodies is called -- automatically since we do know the primitive list already. procedure Add_RACW_Primitive_Declarations_And_Bodies - (Designated_Type : in Entity_Id; - Insertion_Node : in Node_Id; - Decls : in List_Id); + (Designated_Type : Entity_Id; + Insertion_Node : Node_Id; + Decls : List_Id); -- Add primitive for the stub type, and the RPC receiver. The declarations -- are inserted after insertion_Node, while the bodies are appened at the -- end of Decls. procedure Remote_Types_Tagged_Full_View_Encountered - (Full_View : in Entity_Id); + (Full_View : Entity_Id); -- When a full view with a private view is encountered in a Remote_Types -- package and corresponds to a tagged type, then this procedure is called -- to generate the needed RACW features if it is needed. - procedure RACW_Type_Is_Asynchronous (RACW_Type : in Entity_Id); + procedure RACW_Type_Is_Asynchronous (RACW_Type : Entity_Id); -- This subprogram must be called when it is detected that the RACW type -- is asynchronous. - procedure Expand_Calling_Stubs_Bodies (Unit_Node : in Node_Id); + procedure Expand_Calling_Stubs_Bodies (Unit_Node : Node_Id); -- Call the expansion phase for the calling stubs. The code will be added -- at the end of the compilation unit, which is a package spec. - procedure Expand_Receiving_Stubs_Bodies (Unit_Node : in Node_Id); + procedure Expand_Receiving_Stubs_Bodies (Unit_Node : Node_Id); -- Call the expansion phase for the calling stubs. The code will be added -- at the end of the compilation unit, which may be either a package spec -- or a package body. - procedure Expand_All_Calls_Remote_Subprogram_Call (N : in Node_Id); + procedure Expand_All_Calls_Remote_Subprogram_Call (N : Node_Id); -- Rewrite a call to a subprogram located in a Remote_Call_Interface -- package on which the pragma All_Calls_Remote applies so that it -- goes through the PCS. N is either an N_Procedure_Call_Statement diff --git a/gcc/ada/exp_smem.adb b/gcc/ada/exp_smem.adb index 746025d8794..6cbea2b1eda 100644 --- a/gcc/ada/exp_smem.adb +++ b/gcc/ada/exp_smem.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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,9 +57,7 @@ package body Exp_Smem is -- to the assignment statement) or Is_Out_Actual (where it points to -- the procedure call statement). - procedure Build_Full_Name - (E : in Entity_Id; - N : out String_Id); + procedure Build_Full_Name (E : Entity_Id; N : out String_Id); -- Build the fully qualified string name of a shared variable function On_Lhs_Of_Assignment (N : Node_Id) return Boolean; @@ -181,15 +179,15 @@ package body Exp_Smem is -- Build_Full_Name -- --------------------- - procedure Build_Full_Name - (E : in Entity_Id; - N : out String_Id) - is + procedure Build_Full_Name (E : Entity_Id; N : out String_Id) is procedure Build_Name (E : Entity_Id); - -- This is a recursive routine used to construct the fully - -- qualified string name of the package corresponding to the - -- shared variable. + -- This is a recursive routine used to construct the fully qualified + -- string name of the package corresponding to the shared variable. + + ---------------- + -- Build_Name -- + ---------------- procedure Build_Name (E : Entity_Id) is begin @@ -202,6 +200,8 @@ package body Exp_Smem is Store_String_Chars (Name_Buffer (1 .. Name_Len)); end Build_Name; + -- Start of processing for Build_Full_Name + begin Start_String; Build_Name (E); diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index e8284e78560..cb2e3524ef8 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -214,8 +214,8 @@ package body Fmap is while First < SP'Last and then (SP (First) = CR - or else SP (First) = LF - or else SP (First) = EOF) + or else SP (First) = LF + or else SP (First) = EOF) loop First := First + 1; end loop; diff --git a/gcc/ada/g-boubuf.adb b/gcc/ada/g-boubuf.adb index ef75f13585f..a8ac5f1a921 100644 --- a/gcc/ada/g-boubuf.adb +++ b/gcc/ada/g-boubuf.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2005, AdaCore -- +-- Copyright (C) 2003-2006, AdaCore -- -- -- -- 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 GNAT.Bounded_Buffers is -- Insert -- ------------ - entry Insert (Item : in Element) when Count /= Capacity is + entry Insert (Item : Element) when Count /= Capacity is begin Values (Next_In) := Item; Next_In := (Next_In mod Capacity) + 1; diff --git a/gcc/ada/g-boubuf.ads b/gcc/ada/g-boubuf.ads index 9641d37c9af..19d477f3598 100644 --- a/gcc/ada/g-boubuf.ads +++ b/gcc/ada/g-boubuf.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2003-2005, AdaCore -- +-- Copyright (C) 2003-2006, AdaCore -- -- -- -- 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- -- @@ -66,7 +66,7 @@ package GNAT.Bounded_Buffers is is pragma Priority (Ceiling); - entry Insert (Item : in Element); + entry Insert (Item : Element); -- Insert Item into the buffer, blocks caller until space is available entry Remove (Item : out Element); diff --git a/gcc/ada/g-cgideb.adb b/gcc/ada/g-cgideb.adb index 4c353d86569..6b8020fb4ca 100644 --- a/gcc/ada/g-cgideb.adb +++ b/gcc/ada/g-cgideb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2005, AdaCore -- +-- Copyright (C) 2000-2006, AdaCore -- -- -- -- 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,7 +47,7 @@ package body GNAT.CGI.Debug is type Format is abstract tagged null record; - function Output (Mode : in Format'Class) return String; + function Output (Mode : Format'Class) return String; function Variable (Mode : Format; @@ -86,11 +86,11 @@ package body GNAT.CGI.Debug is Name : String; Value : String) return String; - function New_Line (IO : in Format) return String; + function New_Line (IO : Format) return String; - function Title (IO : in Format; Str : in String) return String; + function Title (IO : Format; Str : String) return String; - function Header (IO : in Format; Str : in String) return String; + function Header (IO : Format; Str : String) return String; end HTML_IO; @@ -109,11 +109,11 @@ package body GNAT.CGI.Debug is Name : String; Value : String) return String; - function New_Line (IO : in Format) return String; + function New_Line (IO : Format) return String; - function Title (IO : in Format; Str : in String) return String; + function Title (IO : Format; Str : String) return String; - function Header (IO : in Format; Str : in String) return String; + function Header (IO : Format; Str : String) return String; end Text_IO; @@ -127,7 +127,7 @@ package body GNAT.CGI.Debug is -- Output -- ------------ - function Output (Mode : in Format'Class) return String is + function Output (Mode : Format'Class) return String is Result : Unbounded_String; begin @@ -172,17 +172,17 @@ package body GNAT.CGI.Debug is NL : constant String := (1 => ASCII.LF); - function Bold (S : in String) return String; + function Bold (S : String) return String; -- Returns S as an HTML bold string - function Italic (S : in String) return String; + function Italic (S : String) return String; -- Returns S as an HTML italic string ---------- -- Bold -- ---------- - function Bold (S : in String) return String is + function Bold (S : String) return String is begin return "<b>" & S & "</b>"; end Bold; @@ -191,7 +191,7 @@ package body GNAT.CGI.Debug is -- Header -- ------------ - function Header (IO : in Format; Str : in String) return String is + function Header (IO : Format; Str : String) return String is pragma Unreferenced (IO); begin return "<h2>" & Str & "</h2>" & NL; @@ -201,7 +201,7 @@ package body GNAT.CGI.Debug is -- Italic -- ------------ - function Italic (S : in String) return String is + function Italic (S : String) return String is begin return "<i>" & S & "</i>"; end Italic; @@ -210,7 +210,7 @@ package body GNAT.CGI.Debug is -- New_Line -- -------------- - function New_Line (IO : in Format) return String is + function New_Line (IO : Format) return String is pragma Unreferenced (IO); begin return "<br>" & NL; @@ -220,7 +220,7 @@ package body GNAT.CGI.Debug is -- Title -- ----------- - function Title (IO : in Format; Str : in String) return String is + function Title (IO : Format; Str : String) return String is pragma Unreferenced (IO); begin return "<p align=center><font size=+2>" & Str & "</font></p>" & NL; @@ -252,7 +252,7 @@ package body GNAT.CGI.Debug is -- Header -- ------------ - function Header (IO : in Format; Str : in String) return String is + function Header (IO : Format; Str : String) return String is begin return "*** " & Str & New_Line (IO); end Header; @@ -261,7 +261,7 @@ package body GNAT.CGI.Debug is -- New_Line -- -------------- - function New_Line (IO : in Format) return String is + function New_Line (IO : Format) return String is pragma Unreferenced (IO); begin return String'(1 => ASCII.LF); @@ -271,7 +271,7 @@ package body GNAT.CGI.Debug is -- Title -- ----------- - function Title (IO : in Format; Str : in String) return String is + function Title (IO : Format; Str : String) return String is Spaces : constant Natural := (80 - Str'Length) / 2; Indent : constant String (1 .. Spaces) := (others => ' '); begin diff --git a/gcc/ada/g-dyntab.ads b/gcc/ada/g-dyntab.ads index 3d82330dac1..8c1e112669a 100644 --- a/gcc/ada/g-dyntab.ads +++ b/gcc/ada/g-dyntab.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2005, AdaCore -- +-- Copyright (C) 2000-2006, AdaCore -- -- -- -- 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- -- @@ -122,7 +122,7 @@ package GNAT.Dynamic_Tables is -- previously allocated larger table). Init must be called before using -- the table. Init is convenient in reestablishing a table for new use. - function Last (T : in Instance) return Table_Index_Type; + function Last (T : Instance) return Table_Index_Type; pragma Inline (Last); -- Returns the current value of the last used entry in the table, -- which can then be used as a subscript for Table. Note that the diff --git a/gcc/ada/g-expect.adb b/gcc/ada/g-expect.adb index 1cb07881f12..c4902b51d0e 100644 --- a/gcc/ada/g-expect.adb +++ b/gcc/ada/g-expect.adb @@ -972,9 +972,9 @@ package body GNAT.Expect is for J in Args'Range loop Arg := new String (1 .. Args (J)'Length + 1); - Arg (1 .. Args (J)'Length) := Args (J).all; - Arg (Arg'Last) := ASCII.NUL; - Arg_List (J + 2 - Args'First) := Arg.all'Access; + Arg (1 .. Args (J)'Length) := Args (J).all; + Arg (Arg'Last) := ASCII.NUL; + Arg_List (J + 2 - Args'First) := Arg.all'Access; end loop; Arg_List (Arg_List'Last) := null; @@ -1163,8 +1163,8 @@ package body GNAT.Expect is Pipe1 : in out Pipe_Type; Pipe2 : in out Pipe_Type; Pipe3 : in out Pipe_Type; - Cmd : in String; - Args : in System.Address) + Cmd : String; + Args : System.Address) is pragma Warnings (Off, Pid); diff --git a/gcc/ada/g-io.adb b/gcc/ada/g-io.adb index c5c762bc569..d7b5b1fc0f4 100644 --- a/gcc/ada/g-io.adb +++ b/gcc/ada/g-io.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- 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- -- @@ -122,7 +122,7 @@ package body GNAT.IO is Put (Current_Out, C); end Put; - procedure Put (File : in File_Type; C : Character) is + procedure Put (File : File_Type; C : Character) is procedure Put_Char (C : Character); pragma Import (C, Put_Char, "put_char"); @@ -167,7 +167,7 @@ package body GNAT.IO is -- Set_Output -- ---------------- - procedure Set_Output (File : in File_Type) is + procedure Set_Output (File : File_Type) is begin Current_Out := File; end Set_Output; diff --git a/gcc/ada/g-pehage.adb b/gcc/ada/g-pehage.adb index b2fb8fa544d..cf8b62a90f1 100644 --- a/gcc/ada/g-pehage.adb +++ b/gcc/ada/g-pehage.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005, AdaCore -- +-- Copyright (C) 2002-2006, AdaCore -- -- -- -- 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- -- @@ -1965,7 +1965,7 @@ package body GNAT.Perfect_Hash_Generators is procedure Build_Identical_Keys_Sets (Table : in out Vertex_Table_Type; Last : in out Natural; - Pos : in Natural); + Pos : Natural); -- Build a list of keys subsets that are identical with the current -- position selection plus Pos. Once this routine is called, reduced -- words are sorted by subsets and each item (First, Last) in Sets @@ -1989,7 +1989,7 @@ package body GNAT.Perfect_Hash_Generators is procedure Build_Identical_Keys_Sets (Table : in out Vertex_Table_Type; Last : in out Natural; - Pos : in Natural) + Pos : Natural) is S : constant Vertex_Table_Type := Table (1 .. Last); C : constant Natural := Pos; diff --git a/gcc/ada/g-spitbo.adb b/gcc/ada/g-spitbo.adb index 3bceb9cce85..7d2ce5bc14c 100644 --- a/gcc/ada/g-spitbo.adb +++ b/gcc/ada/g-spitbo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, AdaCore -- +-- Copyright (C) 1998-2006, AdaCore -- -- -- -- 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- -- @@ -428,7 +428,7 @@ package body GNAT.Spitbol is -- Copy -- ---------- - procedure Copy (From : in Table; To : in out Table) is + procedure Copy (From : Table; To : in out Table) is Elmt : Hash_Element_Ptr; begin diff --git a/gcc/ada/g-spitbo.ads b/gcc/ada/g-spitbo.ads index 823ac030e20..c87a20ea8b8 100644 --- a/gcc/ada/g-spitbo.ads +++ b/gcc/ada/g-spitbo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1997-2005, AdaCore -- +-- Copyright (C) 1997-2006, AdaCore -- -- -- -- 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- -- @@ -310,7 +310,7 @@ package GNAT.Spitbol is -- Clears all the elements of the given table, freeing associated -- storage. On return T is an empty table with no elements. - procedure Copy (From : in Table; To : in out Table); + procedure Copy (From : Table; To : in out Table); -- First all the elements of table To are cleared (as described for -- the Clear procedure above), then all the elements of table From -- are copied into To. In the case where the tables From and To have diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb index d133cf6e21e..fdcf6b4c8c0 100644 --- a/gcc/ada/gnatdll.adb +++ b/gcc/ada/gnatdll.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-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- -- @@ -152,7 +152,7 @@ procedure Gnatdll is -- Check -- ----------- - procedure Check (Filename : in String) is + procedure Check (Filename : String) is begin if not Is_Regular_File (Filename) then Raise_Exception @@ -166,10 +166,10 @@ procedure Gnatdll is procedure Parse_Command_Line is - procedure Add_File (Filename : in String); + procedure Add_File (Filename : String); -- Add one file to the list of file to handle - procedure Add_Files_From_List (List_Filename : in String); + procedure Add_Files_From_List (List_Filename : String); -- Add the files listed in List_Filename (one by line) to the list -- of file to handle @@ -207,7 +207,7 @@ procedure Gnatdll is -- Add_File -- -------------- - procedure Add_File (Filename : in String) is + procedure Add_File (Filename : String) is begin if Is_Ali (Filename) then Check (Filename); @@ -239,7 +239,7 @@ procedure Gnatdll is -- Add_Files_From_List -- ------------------------- - procedure Add_Files_From_List (List_Filename : in String) is + procedure Add_Files_From_List (List_Filename : String) is File : File_Type; Buffer : String (1 .. 500); Last : Natural; diff --git a/gcc/ada/i-c.ads b/gcc/ada/i-c.ads index e958052d2fc..54dbd457b92 100644 --- a/gcc/ada/i-c.ads +++ b/gcc/ada/i-c.ads @@ -79,7 +79,7 @@ package Interfaces.C is type char_array is array (size_t range <>) of aliased char; for char_array'Component_Size use CHAR_BIT; - function Is_Nul_Terminated (Item : in char_array) return Boolean; + function Is_Nul_Terminated (Item : char_array) return Boolean; function To_C (Item : String; diff --git a/gcc/ada/lib-xref.ads b/gcc/ada/lib-xref.ads index 154d88e5a2e..d8edec7daf4 100644 --- a/gcc/ada/lib-xref.ads +++ b/gcc/ada/lib-xref.ads @@ -379,93 +379,93 @@ package Lib.Xref is -- indicating procedures and functions. If the operation is abstract, -- these letters are replaced in the xref by 'x' and 'y' respectively. - Xref_Entity_Letters : array (Entity_Kind) of Character := ( - E_Void => ' ', - E_Variable => '*', - E_Component => '*', - E_Constant => '*', - E_Discriminant => '*', - - E_Loop_Parameter => '*', - E_In_Parameter => '*', - E_Out_Parameter => '*', - E_In_Out_Parameter => '*', - E_Generic_In_Out_Parameter => '*', - - E_Generic_In_Parameter => '*', - E_Named_Integer => 'N', - E_Named_Real => 'N', - E_Enumeration_Type => 'E', -- B for boolean - E_Enumeration_Subtype => 'E', -- B for boolean - - E_Signed_Integer_Type => 'I', - E_Signed_Integer_Subtype => 'I', - E_Modular_Integer_Type => 'M', - E_Modular_Integer_Subtype => 'M', - E_Ordinary_Fixed_Point_Type => 'O', - - E_Ordinary_Fixed_Point_Subtype => 'O', - E_Decimal_Fixed_Point_Type => 'D', - E_Decimal_Fixed_Point_Subtype => 'D', - E_Floating_Point_Type => 'F', - E_Floating_Point_Subtype => 'F', - - E_Access_Type => 'P', - E_Access_Subtype => 'P', - E_Access_Attribute_Type => 'P', - E_Allocator_Type => ' ', - E_General_Access_Type => 'P', - - E_Access_Subprogram_Type => 'P', - E_Access_Protected_Subprogram_Type => 'P', - E_Anonymous_Access_Subprogram_Type => ' ', + Xref_Entity_Letters : array (Entity_Kind) of Character := + (E_Void => ' ', + E_Variable => '*', + E_Component => '*', + E_Constant => '*', + E_Discriminant => '*', + + E_Loop_Parameter => '*', + E_In_Parameter => '*', + E_Out_Parameter => '*', + E_In_Out_Parameter => '*', + E_Generic_In_Out_Parameter => '*', + + E_Generic_In_Parameter => '*', + E_Named_Integer => 'N', + E_Named_Real => 'N', + E_Enumeration_Type => 'E', -- B for boolean + E_Enumeration_Subtype => 'E', -- B for boolean + + E_Signed_Integer_Type => 'I', + E_Signed_Integer_Subtype => 'I', + E_Modular_Integer_Type => 'M', + E_Modular_Integer_Subtype => 'M', + E_Ordinary_Fixed_Point_Type => 'O', + + E_Ordinary_Fixed_Point_Subtype => 'O', + E_Decimal_Fixed_Point_Type => 'D', + E_Decimal_Fixed_Point_Subtype => 'D', + E_Floating_Point_Type => 'F', + E_Floating_Point_Subtype => 'F', + + E_Access_Type => 'P', + E_Access_Subtype => 'P', + E_Access_Attribute_Type => 'P', + E_Allocator_Type => ' ', + E_General_Access_Type => 'P', + + E_Access_Subprogram_Type => 'P', + E_Access_Protected_Subprogram_Type => 'P', + E_Anonymous_Access_Subprogram_Type => ' ', E_Anonymous_Access_Protected_Subprogram_Type => ' ', - E_Anonymous_Access_Type => ' ', - E_Array_Type => 'A', - E_Array_Subtype => 'A', - - E_String_Type => 'S', - E_String_Subtype => 'S', - E_String_Literal_Subtype => ' ', - E_Class_Wide_Type => 'C', - - E_Class_Wide_Subtype => 'C', - E_Record_Type => 'R', - E_Record_Subtype => 'R', - E_Record_Type_With_Private => 'R', - E_Record_Subtype_With_Private => 'R', - - E_Private_Type => '+', - E_Private_Subtype => '+', - E_Limited_Private_Type => '+', - E_Limited_Private_Subtype => '+', - E_Incomplete_Type => '+', - - E_Task_Type => 'T', - E_Task_Subtype => 'T', - E_Protected_Type => 'W', - E_Protected_Subtype => 'W', - E_Exception_Type => ' ', - - E_Subprogram_Type => ' ', - E_Enumeration_Literal => 'n', - E_Function => 'V', - E_Operator => 'V', - E_Procedure => 'U', - - E_Entry => 'Y', - E_Entry_Family => 'Y', - E_Block => 'q', - E_Entry_Index_Parameter => '*', - E_Exception => 'X', - - E_Generic_Function => 'v', - E_Generic_Package => 'k', - E_Generic_Procedure => 'u', - E_Label => 'L', - E_Loop => 'l', - - E_Package => 'K', + E_Anonymous_Access_Type => ' ', + + E_Array_Type => 'A', + E_Array_Subtype => 'A', + E_String_Type => 'S', + E_String_Subtype => 'S', + E_String_Literal_Subtype => ' ', + + E_Class_Wide_Type => 'C', + E_Class_Wide_Subtype => 'C', + E_Record_Type => 'R', + E_Record_Subtype => 'R', + E_Record_Type_With_Private => 'R', + + E_Record_Subtype_With_Private => 'R', + E_Private_Type => '+', + E_Private_Subtype => '+', + E_Limited_Private_Type => '+', + E_Limited_Private_Subtype => '+', + + E_Incomplete_Type => '+', + E_Task_Type => 'T', + E_Task_Subtype => 'T', + E_Protected_Type => 'W', + E_Protected_Subtype => 'W', + + E_Exception_Type => ' ', + E_Subprogram_Type => ' ', + E_Enumeration_Literal => 'n', + E_Function => 'V', + E_Operator => 'V', + + E_Procedure => 'U', + E_Entry => 'Y', + E_Entry_Family => 'Y', + E_Block => 'q', + E_Entry_Index_Parameter => '*', + + E_Exception => 'X', + E_Generic_Function => 'v', + E_Generic_Package => 'k', + E_Generic_Procedure => 'u', + E_Label => 'L', + + E_Loop => 'l', + E_Package => 'K', -- The following entities are not ones to which we gather -- cross-references, since it does not make sense to do so @@ -473,11 +473,11 @@ package Lib.Xref is -- Indeed the occurrence of the body entity is considered to -- be a reference to the spec entity. - E_Package_Body => ' ', - E_Protected_Object => ' ', - E_Protected_Body => ' ', - E_Task_Body => ' ', - E_Subprogram_Body => ' '); + E_Package_Body => ' ', + E_Protected_Object => ' ', + E_Protected_Body => ' ', + E_Task_Body => ' ', + E_Subprogram_Body => ' '); -- The following table is for information purposes. It shows the -- use of each character appearing as an entity type. diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb index c96396defb1..66ee95b92b3 100644 --- a/gcc/ada/makegpr.adb +++ b/gcc/ada/makegpr.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. -- -- -- -- 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- -- @@ -2086,7 +2086,7 @@ package body Makegpr is procedure Compile (Source_Id : Other_Source_Id; - Data : in Project_Data; + Data : Project_Data; Local_Errors : in out Boolean) is Source : Other_Source := diff --git a/gcc/ada/mdll.adb b/gcc/ada/mdll.adb index a9cf026083b..2e7ae46ee9e 100644 --- a/gcc/ada/mdll.adb +++ b/gcc/ada/mdll.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- -- @@ -483,7 +483,7 @@ package body MDLL is -- Get_Dll_Name -- ------------------ - function Get_Dll_Name (Lib_Filename : in String) return String is + function Get_Dll_Name (Lib_Filename : String) return String is begin if MDLL.Fil.Get_Ext (Lib_Filename) = "" then return Lib_Filename & ".dll"; diff --git a/gcc/ada/mlib-fil.adb b/gcc/ada/mlib-fil.adb index 3144451a9de..cad17478766 100644 --- a/gcc/ada/mlib-fil.adb +++ b/gcc/ada/mlib-fil.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, AdaCore -- +-- Copyright (C) 2001-2006, AdaCore -- -- -- -- 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,6 +45,7 @@ package body MLib.Fil is return String is use Strings.Fixed; + J : constant Natural := Index (Source => Filename, Pattern => ".", @@ -71,7 +72,7 @@ package body MLib.Fil is -- Get_Ext -- ------------- - function Get_Ext (Filename : in String) return String is + function Get_Ext (Filename : String) return String is use Strings.Fixed; J : constant Natural := @@ -93,7 +94,6 @@ package body MLib.Fil is function Is_Archive (Filename : String) return Boolean is Ext : constant String := Get_Ext (Filename); - begin return Target.Is_Archive_Ext (Ext); end Is_Archive; @@ -102,9 +102,8 @@ package body MLib.Fil is -- Is_C -- ---------- - function Is_C (Filename : in String) return Boolean is + function Is_C (Filename : String) return Boolean is Ext : constant String := Get_Ext (Filename); - begin return Target.Is_C_Ext (Ext); end Is_C; @@ -113,9 +112,8 @@ package body MLib.Fil is -- Is_Obj -- ------------ - function Is_Obj (Filename : in String) return Boolean is + function Is_Obj (Filename : String) return Boolean is Ext : constant String := Get_Ext (Filename); - begin return Target.Is_Object_Ext (Ext); end Is_Obj; diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index 91c6b9c3e03..ab0689b9459 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005, AdaCore -- +-- Copyright (C) 2002-2006, AdaCore -- -- -- -- 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,10 +60,8 @@ package body MLib.Utl is Full_Output_File : constant String := Ext_To (Output_File, Archive_Ext); - Arguments : OS_Lib.Argument_List_Access; - - Success : Boolean; - + Arguments : OS_Lib.Argument_List_Access; + Success : Boolean; Line_Length : Natural := 0; begin @@ -128,8 +126,8 @@ package body MLib.Utl is -- Delete_File -- ----------------- - procedure Delete_File (Filename : in String) is - File : constant String := Filename & ASCII.Nul; + procedure Delete_File (Filename : String) is + File : constant String := Filename & ASCII.Nul; Success : Boolean; begin @@ -174,7 +172,8 @@ package body MLib.Utl is Lib_Opt : constant OS_Lib.String_Access := new String'(Dynamic_Option); - Driver : String_Access; + Driver : String_Access; + begin Utl.Initialize; diff --git a/gcc/ada/mlib-utl.ads b/gcc/ada/mlib-utl.ads index bb38c8018b2..0050110bf99 100644 --- a/gcc/ada/mlib-utl.ads +++ b/gcc/ada/mlib-utl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2005, AdaCore -- +-- Copyright (C) 2001-2006, AdaCore -- -- -- -- 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- -- @@ -29,7 +29,7 @@ package MLib.Utl is - procedure Delete_File (Filename : in String); + procedure Delete_File (Filename : String); -- Delete the file Filename -- Why is this different from the standard OS_Lib routine??? diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index d1a6b52c66c..fd511d70689 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.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- -- @@ -1414,7 +1414,7 @@ package body Osint is -- Is_Readonly_Library -- ------------------------- - function Is_Readonly_Library (File : in File_Name_Type) return Boolean is + function Is_Readonly_Library (File : File_Name_Type) return Boolean is begin Get_Name_String (File); diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index 13c66a78be6..31a975554b2 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.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- -- @@ -299,7 +299,7 @@ begin -- If current unit is a child unit spec, load its parent. If the child unit -- is loaded through a limited with, the parent must be as well. - elsif Nkind (Unit (Curunit)) = N_Package_Declaration + elsif Nkind (Unit (Curunit)) = N_Package_Declaration or else Nkind (Unit (Curunit)) = N_Subprogram_Declaration or else Nkind (Unit (Curunit)) in N_Generic_Declaration or else Nkind (Unit (Curunit)) in N_Generic_Instantiation diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index c20be6dd739..c6668a5599f 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-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- -- @@ -120,7 +120,8 @@ package body Prj.Env is -- Call Setenv, after calling To_Host_File_Spec function Ultimate_Extension_Of - (Project : in Project_Id; In_Tree : Project_Tree_Ref) return Project_Id; + (Project : Project_Id; + In_Tree : Project_Tree_Ref) return Project_Id; -- Return a project that is either Project or an extended ancestor of -- Project that itself is not extended. @@ -2405,7 +2406,8 @@ package body Prj.Env is --------------------------- function Ultimate_Extension_Of - (Project : Project_Id; In_Tree : Project_Tree_Ref) return Project_Id + (Project : Project_Id; + In_Tree : Project_Tree_Ref) return Project_Id is Result : Project_Id := Project; diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb index 016568c749d..3bd65344022 100644 --- a/gcc/ada/prj-tree.adb +++ b/gcc/ada/prj-tree.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-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- -- @@ -1429,7 +1429,7 @@ package body Prj.Tree is -- Restore -- ------------- - procedure Restore (S : in Comment_State) is + procedure Restore (S : Comment_State) is begin End_Of_Line_Node := S.End_Of_Line_Node; Previous_Line_Node := S.Previous_Line_Node; diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads index d5784c09e2b..c3bdfd0665c 100644 --- a/gcc/ada/prj-tree.ads +++ b/gcc/ada/prj-tree.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-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- -- @@ -122,7 +122,7 @@ package Prj.Tree is -- Save in variable S the comment state. Called before scanning a new -- project file. - procedure Restore (S : in Comment_State); + procedure Restore (S : Comment_State); -- Restore the comment state to a previously saved value. Called after -- scanning a project file. diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb index 716817d4ef0..efc0a68749c 100644 --- a/gcc/ada/prj-util.adb +++ b/gcc/ada/prj-util.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-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- -- @@ -357,7 +357,7 @@ package body Prj.Util is -- Open -- ---------- - procedure Open (File : out Text_File; Name : in String) is + procedure Open (File : out Text_File; Name : String) is FD : File_Descriptor; File_Name : String (1 .. Name'Length + 1); diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 9d0886cd06b..f12c1eb1c83 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, 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- -- diff --git a/gcc/ada/s-arit64.adb b/gcc/ada/s-arit64.adb index 418c9b2d6c3..d91e08d462f 100644 --- a/gcc/ada/s-arit64.adb +++ b/gcc/ada/s-arit64.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 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,7 +83,7 @@ package body System.Arith_64 is pragma Inline (Hi); -- High order half of 64-bit value - procedure Sub3 (X1, X2, X3 : in out Uns32; Y1, Y2, Y3 : in Uns32); + procedure Sub3 (X1, X2, X3 : in out Uns32; Y1, Y2, Y3 : Uns32); -- Computes X1&X2&X3 := X1&X2&X3 - Y1&Y1&Y3 with mod 2**96 wrap function To_Neg_Int (A : Uns64) return Int64; @@ -542,7 +542,7 @@ package body System.Arith_64 is D (3) := Lo (T2) or Hi (T3); D (4) := Lo (T3); - -- Loop to compute quotient digits, runs twice for Qd(1) and Qd(2). + -- Loop to compute quotient digits, runs twice for Qd(1) and Qd(2) for J in 0 .. 1 loop @@ -630,7 +630,7 @@ package body System.Arith_64 is -- Sub3 -- ---------- - procedure Sub3 (X1, X2, X3 : in out Uns32; Y1, Y2, Y3 : in Uns32) is + procedure Sub3 (X1, X2, X3 : in out Uns32; Y1, Y2, Y3 : Uns32) is begin if Y3 > X3 then if X2 = 0 then diff --git a/gcc/ada/s-asthan.ads b/gcc/ada/s-asthan.ads index 53989d30ce5..8b928479b47 100644 --- a/gcc/ada/s-asthan.ads +++ b/gcc/ada/s-asthan.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- -- @@ -41,15 +41,14 @@ package System.AST_Handling is function Create_AST_Handler (Taskid : Ada.Task_Identification.Task_Id; - Entryno : Natural) - return System.Aux_DEC.AST_Handler; + Entryno : Natural) return System.Aux_DEC.AST_Handler; -- This function implements the appropriate semantics for a use of the -- AST_Entry pragma. See body for details of implementation approach. -- The parameters are the Task_Id for the task containing the entry -- and the entry Index for the specified entry. procedure Expand_AST_Packet_Pool - (Requested_Packets : in Natural; + (Requested_Packets : Natural; Actual_Number : out Natural; Total_Number : out Natural); -- This function takes a request for zero or more extra AST packets and diff --git a/gcc/ada/s-auxdec.adb b/gcc/ada/s-auxdec.adb index 0344b7d1a6c..843d7d49ae7 100644 --- a/gcc/ada/s-auxdec.adb +++ b/gcc/ada/s-auxdec.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 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- -- @@ -318,7 +318,7 @@ package body System.Aux_DEC is procedure Clear_Interlocked (Bit : in out Boolean; Old_Value : out Boolean; - Retry_Count : in Natural; + Retry_Count : Natural; Success_Flag : out Boolean) is pragma Warnings (Off, Retry_Count); @@ -349,7 +349,7 @@ package body System.Aux_DEC is procedure Set_Interlocked (Bit : in out Boolean; Old_Value : out Boolean; - Retry_Count : in Natural; + Retry_Count : Natural; Success_Flag : out Boolean) is pragma Warnings (Off, Retry_Count); @@ -367,9 +367,9 @@ package body System.Aux_DEC is --------------------- procedure Add_Interlocked - (Addend : in Short_Integer; - Augend : in out Aligned_Word; - Sign : out Integer) + (Addend : Short_Integer; + Augend : in out Aligned_Word; + Sign : out Integer) is begin SSL.Lock_Task.all; @@ -391,8 +391,8 @@ package body System.Aux_DEC is ---------------- procedure Add_Atomic - (To : in out Aligned_Integer; - Amount : in Integer) + (To : in out Aligned_Integer; + Amount : Integer) is begin SSL.Lock_Task.all; @@ -402,8 +402,8 @@ package body System.Aux_DEC is procedure Add_Atomic (To : in out Aligned_Integer; - Amount : in Integer; - Retry_Count : in Natural; + Amount : Integer; + Retry_Count : Natural; Old_Value : out Integer; Success_Flag : out Boolean) is @@ -418,8 +418,8 @@ package body System.Aux_DEC is end Add_Atomic; procedure Add_Atomic - (To : in out Aligned_Long_Integer; - Amount : in Long_Integer) + (To : in out Aligned_Long_Integer; + Amount : Long_Integer) is begin SSL.Lock_Task.all; @@ -429,8 +429,8 @@ package body System.Aux_DEC is procedure Add_Atomic (To : in out Aligned_Long_Integer; - Amount : in Long_Integer; - Retry_Count : in Natural; + Amount : Long_Integer; + Retry_Count : Natural; Old_Value : out Long_Integer; Success_Flag : out Boolean) is @@ -458,8 +458,8 @@ package body System.Aux_DEC is function From_LU is new Unchecked_Conversion (LU, Long_Integer); procedure And_Atomic - (To : in out Aligned_Integer; - From : in Integer) + (To : in out Aligned_Integer; + From : Integer) is begin SSL.Lock_Task.all; @@ -469,8 +469,8 @@ package body System.Aux_DEC is procedure And_Atomic (To : in out Aligned_Integer; - From : in Integer; - Retry_Count : in Natural; + From : Integer; + Retry_Count : Natural; Old_Value : out Integer; Success_Flag : out Boolean) is @@ -485,8 +485,8 @@ package body System.Aux_DEC is end And_Atomic; procedure And_Atomic - (To : in out Aligned_Long_Integer; - From : in Long_Integer) + (To : in out Aligned_Long_Integer; + From : Long_Integer) is begin SSL.Lock_Task.all; @@ -496,8 +496,8 @@ package body System.Aux_DEC is procedure And_Atomic (To : in out Aligned_Long_Integer; - From : in Long_Integer; - Retry_Count : in Natural; + From : Long_Integer; + Retry_Count : Natural; Old_Value : out Long_Integer; Success_Flag : out Boolean) is @@ -516,8 +516,8 @@ package body System.Aux_DEC is --------------- procedure Or_Atomic - (To : in out Aligned_Integer; - From : in Integer) + (To : in out Aligned_Integer; + From : Integer) is begin SSL.Lock_Task.all; @@ -527,8 +527,8 @@ package body System.Aux_DEC is procedure Or_Atomic (To : in out Aligned_Integer; - From : in Integer; - Retry_Count : in Natural; + From : Integer; + Retry_Count : Natural; Old_Value : out Integer; Success_Flag : out Boolean) is @@ -543,8 +543,8 @@ package body System.Aux_DEC is end Or_Atomic; procedure Or_Atomic - (To : in out Aligned_Long_Integer; - From : in Long_Integer) + (To : in out Aligned_Long_Integer; + From : Long_Integer) is begin SSL.Lock_Task.all; @@ -554,8 +554,8 @@ package body System.Aux_DEC is procedure Or_Atomic (To : in out Aligned_Long_Integer; - From : in Long_Integer; - Retry_Count : in Natural; + From : Long_Integer; + Retry_Count : Natural; Old_Value : out Long_Integer; Success_Flag : out Boolean) is @@ -590,8 +590,8 @@ package body System.Aux_DEC is ------------ procedure Insqhi - (Item : in Address; - Header : in Address; + (Item : Address; + Header : Address; Status : out Insq_Status) is Hedr : constant QR_Ptr := To_QR_Ptr (Header); @@ -621,7 +621,7 @@ package body System.Aux_DEC is ------------ procedure Remqhi - (Header : in Address; + (Header : Address; Item : out Address; Status : out Remq_Status) is @@ -656,8 +656,8 @@ package body System.Aux_DEC is ------------ procedure Insqti - (Item : in Address; - Header : in Address; + (Item : Address; + Header : Address; Status : out Insq_Status) is Hedr : constant QR_Ptr := To_QR_Ptr (Header); @@ -687,7 +687,7 @@ package body System.Aux_DEC is ------------ procedure Remqti - (Header : in Address; + (Header : Address; Item : out Address; Status : out Remq_Status) is diff --git a/gcc/ada/s-auxdec.ads b/gcc/ada/s-auxdec.ads index 0a0bd35fa47..72e09aaad45 100644 --- a/gcc/ada/s-auxdec.ads +++ b/gcc/ada/s-auxdec.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- -- @@ -209,13 +209,13 @@ package System.Aux_DEC is type Unsigned_Quadword_Array is array (Integer range <>) of Unsigned_Quadword; - function To_Address (X : Integer) return Address; + function To_Address (X : Integer) return Address; pragma Pure_Function (To_Address); function To_Address_Long (X : Unsigned_Longword) return Address; pragma Pure_Function (To_Address_Long); - function To_Integer (X : Address) return Integer; + function To_Integer (X : Address) return Integer; function To_Unsigned_Longword (X : Address) return Unsigned_Longword; function To_Unsigned_Longword (X : AST_Handler) return Unsigned_Longword; @@ -288,17 +288,17 @@ package System.Aux_DEC is procedure Clear_Interlocked (Bit : in out Boolean; Old_Value : out Boolean; - Retry_Count : in Natural; + Retry_Count : Natural; Success_Flag : out Boolean); procedure Set_Interlocked (Bit : in out Boolean; Old_Value : out Boolean; - Retry_Count : in Natural; + Retry_Count : Natural; Success_Flag : out Boolean); procedure Add_Interlocked - (Addend : in Short_Integer; + (Addend : Short_Integer; Augend : in out Aligned_Word; Sign : out Integer); @@ -322,67 +322,67 @@ package System.Aux_DEC is procedure Add_Atomic (To : in out Aligned_Integer; - Amount : in Integer); + Amount : Integer); procedure Add_Atomic (To : in out Aligned_Integer; - Amount : in Integer; - Retry_Count : in Natural; + Amount : Integer; + Retry_Count : Natural; Old_Value : out Integer; Success_Flag : out Boolean); procedure Add_Atomic (To : in out Aligned_Long_Integer; - Amount : in Long_Integer); + Amount : Long_Integer); procedure Add_Atomic (To : in out Aligned_Long_Integer; - Amount : in Long_Integer; - Retry_Count : in Natural; + Amount : Long_Integer; + Retry_Count : Natural; Old_Value : out Long_Integer; Success_Flag : out Boolean); procedure And_Atomic (To : in out Aligned_Integer; - From : in Integer); + From : Integer); procedure And_Atomic (To : in out Aligned_Integer; - From : in Integer; - Retry_Count : in Natural; + From : Integer; + Retry_Count : Natural; Old_Value : out Integer; Success_Flag : out Boolean); procedure And_Atomic (To : in out Aligned_Long_Integer; - From : in Long_Integer); + From : Long_Integer); procedure And_Atomic (To : in out Aligned_Long_Integer; - From : in Long_Integer; - Retry_Count : in Natural; + From : Long_Integer; + Retry_Count : Natural; Old_Value : out Long_Integer; Success_Flag : out Boolean); procedure Or_Atomic (To : in out Aligned_Integer; - From : in Integer); + From : Integer); procedure Or_Atomic (To : in out Aligned_Integer; - From : in Integer; - Retry_Count : in Natural; + From : Integer; + Retry_Count : Natural; Old_Value : out Integer; Success_Flag : out Boolean); procedure Or_Atomic (To : in out Aligned_Long_Integer; - From : in Long_Integer); + From : Long_Integer); procedure Or_Atomic (To : in out Aligned_Long_Integer; - From : in Long_Integer; - Retry_Count : in Natural; + From : Long_Integer; + Retry_Count : Natural; Old_Value : out Long_Integer; Success_Flag : out Boolean); @@ -407,22 +407,22 @@ package System.Aux_DEC is OK_Empty => +2); procedure Insqhi - (Item : in Address; - Header : in Address; + (Item : Address; + Header : Address; Status : out Insq_Status); procedure Remqhi - (Header : in Address; + (Header : Address; Item : out Address; Status : out Remq_Status); procedure Insqti - (Item : in Address; - Header : in Address; + (Item : Address; + Header : Address; Status : out Insq_Status); procedure Remqti - (Header : in Address; + (Header : Address; Item : out Address; Status : out Remq_Status); diff --git a/gcc/ada/s-chepoo.ads b/gcc/ada/s-chepoo.ads index 27d840fb7a8..0ebe68ec2b5 100644 --- a/gcc/ada/s-chepoo.ads +++ b/gcc/ada/s-chepoo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1996, 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- -- @@ -43,9 +43,9 @@ package System.Checked_Pools is procedure Dereference (Pool : in out Checked_Pool; - Storage_Address : in Address; - Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count; - Alignment : in System.Storage_Elements.Storage_Count) + Storage_Address : Address; + Size_In_Storage_Elements : System.Storage_Elements.Storage_Count; + Alignment : System.Storage_Elements.Storage_Count) is abstract; -- Called implicitly each time a pointer to a checked pool is dereferenced -- All parameters in the profile are compatible with the profile of diff --git a/gcc/ada/s-direio.adb b/gcc/ada/s-direio.adb index 56bc45de9cf..7bb3e52142a 100644 --- a/gcc/ada/s-direio.adb +++ b/gcc/ada/s-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- -- @@ -31,9 +31,9 @@ -- -- ------------------------------------------------------------------------------ -with Ada.IO_Exceptions; use Ada.IO_Exceptions; -with Interfaces.C_Streams; use Interfaces.C_Streams; -with System; use System; +with Ada.IO_Exceptions; use Ada.IO_Exceptions; +with Interfaces.C_Streams; use Interfaces.C_Streams; +with System; use System; with System.CRTL; with System.File_IO; with System.Soft_Links; @@ -54,7 +54,7 @@ package body System.Direct_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 ------------------- @@ -104,9 +104,9 @@ package body System.Direct_IO is procedure Create (File : in out File_Type; - Mode : in FCB.File_Mode := FCB.Inout_File; - Name : in String := ""; - Form : in String := "") + Mode : FCB.File_Mode := FCB.Inout_File; + Name : String := ""; + Form : String := "") is Dummy_File_Control_Block : Direct_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); @@ -128,7 +128,7 @@ package body System.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 FIO.Check_Read_Status (AP (File)); return Count (File.Index) > Size (File); @@ -138,7 +138,7 @@ package body System.Direct_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); @@ -150,9 +150,9 @@ package body System.Direct_IO is procedure Open (File : in out File_Type; - Mode : in FCB.File_Mode; - Name : in String; - Form : in String := "") + Mode : FCB.File_Mode; + Name : String; + Form : String := "") is Dummy_File_Control_Block : Direct_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); @@ -175,10 +175,10 @@ package body System.Direct_IO is ---------- procedure Read - (File : in File_Type; + (File : File_Type; Item : Address; - Size : in Interfaces.C_Streams.size_t; - From : in Positive_Count) + Size : Interfaces.C_Streams.size_t; + From : Positive_Count) is begin Set_Index (File, From); @@ -186,9 +186,9 @@ package body System.Direct_IO is end Read; procedure Read - (File : in File_Type; + (File : File_Type; Item : Address; - Size : in Interfaces.C_Streams.size_t) + Size : Interfaces.C_Streams.size_t) is begin FIO.Check_Read_Status (AP (File)); @@ -250,7 +250,7 @@ package body System.Direct_IO is -- Reset -- ----------- - procedure Reset (File : in out File_Type; Mode : in FCB.File_Mode) is + procedure Reset (File : in out File_Type; Mode : FCB.File_Mode) is begin FIO.Reset (AP (File), Mode); File.Index := 1; @@ -268,7 +268,7 @@ package body System.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 FIO.Check_File_Open (AP (File)); File.Index := Count (To); @@ -279,7 +279,7 @@ package body System.Direct_IO is -- Set_Position -- ------------------ - procedure Set_Position (File : in File_Type) is + procedure Set_Position (File : File_Type) is begin if fseek (File.Stream, long (File.Bytes) * @@ -293,7 +293,7 @@ package body System.Direct_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)); File.Last_Op := Op_Other; @@ -312,7 +312,7 @@ package body System.Direct_IO is procedure Write (File : File_Type; Item : Address; - Size : in Interfaces.C_Streams.size_t; + Size : Interfaces.C_Streams.size_t; Zeroes : System.Storage_Elements.Storage_Array) is @@ -380,7 +380,7 @@ package body System.Direct_IO is procedure Write (File : in out Direct_AFCB; - Item : in Ada.Streams.Stream_Element_Array) + Item : Ada.Streams.Stream_Element_Array) is begin raise Program_Error; diff --git a/gcc/ada/s-direio.ads b/gcc/ada/s-direio.ads index 408af205b9b..756bcb25281 100644 --- a/gcc/ada/s-direio.ads +++ b/gcc/ada/s-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. -- -- -- -- 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- -- @@ -77,7 +77,7 @@ package System.Direct_IO is procedure Write (File : in out Direct_AFCB; - Item : in Ada.Streams.Stream_Element_Array); + Item : Ada.Streams.Stream_Element_Array); -- Required overriding of Write, not actually used for Direct_IO type File_Type is access all Direct_AFCB; @@ -85,43 +85,43 @@ package System.Direct_IO is procedure Create (File : in out File_Type; - Mode : in FCB.File_Mode := FCB.Inout_File; - Name : in String := ""; - Form : in String := ""); + Mode : FCB.File_Mode := FCB.Inout_File; + Name : String := ""; + Form : String := ""); - function End_Of_File (File : in File_Type) return Boolean; + function End_Of_File (File : File_Type) return Boolean; - function Index (File : in File_Type) return Positive_Count; + function Index (File : File_Type) return Positive_Count; procedure Open (File : in out File_Type; - Mode : in FCB.File_Mode; - Name : in String; - Form : in String := ""); + Mode : FCB.File_Mode; + Name : String; + Form : String := ""); procedure Read - (File : in File_Type; + (File : File_Type; Item : System.Address; - Size : in Interfaces.C_Streams.size_t; - From : in Positive_Count); + Size : Interfaces.C_Streams.size_t; + From : Positive_Count); procedure Read - (File : in File_Type; + (File : File_Type; Item : System.Address; - Size : in Interfaces.C_Streams.size_t); + Size : Interfaces.C_Streams.size_t); - procedure Reset (File : in out File_Type; Mode : in FCB.File_Mode); + procedure Reset (File : in out File_Type; Mode : FCB.File_Mode); procedure Reset (File : in out File_Type); - procedure Set_Index (File : in File_Type; To : in Positive_Count); + procedure Set_Index (File : File_Type; To : Positive_Count); - function Size (File : in File_Type) return Count; + function Size (File : File_Type) return Count; procedure Write - (File : in File_Type; + (File : File_Type; Item : System.Address; - Size : in Interfaces.C_Streams.size_t; + Size : Interfaces.C_Streams.size_t; Zeroes : System.Storage_Elements.Storage_Array); -- Note: Zeroes is the buffer of zeroes used to fill out partial records diff --git a/gcc/ada/s-errrep.adb b/gcc/ada/s-errrep.adb index 5b9a07618f2..783f845d1e4 100644 --- a/gcc/ada/s-errrep.adb +++ b/gcc/ada/s-errrep.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- GNARL 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 +50,7 @@ package body System.Error_Reporting is -- Shutdown -- -------------- - function Shutdown (M : in String) return Boolean is + function Shutdown (M : String) return Boolean is begin Write (2, Shutdown_Message'Address, Shutdown_Message'Length); Write (2, M'Address, M'Length); diff --git a/gcc/ada/s-errrep.ads b/gcc/ada/s-errrep.ads index 223d377f588..930e0206419 100644 --- a/gcc/ada/s-errrep.ads +++ b/gcc/ada/s-errrep.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2005, AdaCore -- +-- Copyright (C) 1995-2006, AdaCore -- -- -- -- GNARL 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,9 +37,9 @@ package System.Error_Reporting is pragma Preelaborate; - function Shutdown (M : in String) return Boolean; - -- Perform emergency shutdown of the entire program. - -- Msg is an error message to be printed to the console. - -- This is to be used only for nonrecoverable errors. + function Shutdown (M : String) return Boolean; + -- Perform emergency shutdown of the entire program. Msg is an error + -- message to be printed to the console. This is to be used only for + -- nonrecoverable errors. end System.Error_Reporting; diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 6db630910f6..4317cb31142 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 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- -- @@ -77,7 +77,7 @@ package body System.File_IO is -- a controlled type introduced for this purpose. procedure Finalize (V : in out File_IO_Clean_Up_Type); - -- This is the finalize operation that is used to do the cleanup. + -- This is the finalize operation that is used to do the cleanup File_IO_Clean_Up_Object : File_IO_Clean_Up_Type; pragma Warnings (Off, File_IO_Clean_Up_Object); @@ -88,7 +88,7 @@ package body System.File_IO is text_translation_required : Boolean; pragma Import (C, text_translation_required, "__gnat_text_translation_required"); - -- If true, add appropriate suffix to control string for Open. + -- If true, add appropriate suffix to control string for Open ----------------------- -- Local Subprograms -- @@ -491,7 +491,7 @@ package body System.File_IO is -- Form -- ---------- - function Form (File : in AFCB_Ptr) return String is + function Form (File : AFCB_Ptr) return String is begin if File = null then raise Status_Error; @@ -607,7 +607,7 @@ package body System.File_IO is -- Is_Open -- ------------- - function Is_Open (File : in AFCB_Ptr) return Boolean is + function Is_Open (File : AFCB_Ptr) return Boolean is begin return (File /= null); end Is_Open; @@ -658,7 +658,7 @@ package body System.File_IO is -- Mode -- ---------- - function Mode (File : in AFCB_Ptr) return File_Mode is + function Mode (File : AFCB_Ptr) return File_Mode is begin if File = null then raise Status_Error; @@ -671,7 +671,7 @@ package body System.File_IO is -- Name -- ---------- - function Name (File : in AFCB_Ptr) return String is + function Name (File : AFCB_Ptr) return String is begin if File = null then raise Status_Error; @@ -686,7 +686,7 @@ package body System.File_IO is procedure Open (File_Ptr : in out AFCB_Ptr; - Dummy_FCB : in AFCB'Class; + Dummy_FCB : AFCB'Class; Mode : File_Mode; Name : String; Form : String; @@ -701,7 +701,7 @@ package body System.File_IO is procedure Tmp_Name (Buffer : Address); pragma Import (C, Tmp_Name, "__gnat_tmp_name"); - -- set buffer (a String address) with a temporary filename. + -- set buffer (a String address) with a temporary filename Stream : FILEs := C_Stream; -- Stream which we open in response to this request @@ -823,7 +823,7 @@ package body System.File_IO is Namestr (Name'Length + 1) := ASCII.NUL; end if; - -- Get full name in accordance with the advice of RM A.8.2(22). + -- Get full name in accordance with the advice of RM A.8.2(22) full_name (Namestr'Address, Fullname'Address); @@ -991,7 +991,7 @@ package body System.File_IO is procedure Read_Buf (File : AFCB_Ptr; Buf : Address; - Siz : in Interfaces.C_Streams.size_t; + Siz : Interfaces.C_Streams.size_t; Count : out Interfaces.C_Streams.size_t) is begin @@ -1006,7 +1006,7 @@ package body System.File_IO is -- Reset -- ----------- - -- The reset which does not change the mode simply does a rewind. + -- The reset which does not change the mode simply does a rewind procedure Reset (File : in out AFCB_Ptr) is begin @@ -1018,7 +1018,7 @@ package body System.File_IO is -- not permitted except for regular files (since otherwise there -- is no name for the freopen, and in any case it seems meaningless) - procedure Reset (File : in out AFCB_Ptr; Mode : in File_Mode) is + procedure Reset (File : in out AFCB_Ptr; Mode : File_Mode) is Fopstr : aliased Fopen_String; begin diff --git a/gcc/ada/s-fileio.ads b/gcc/ada/s-fileio.ads index 75636ef5e45..6cd787104d1 100644 --- a/gcc/ada/s-fileio.ads +++ b/gcc/ada/s-fileio.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- -- @@ -49,7 +49,7 @@ package System.File_IO is procedure Open (File_Ptr : in out FCB.AFCB_Ptr; - Dummy_FCB : in FCB.AFCB'Class; + Dummy_FCB : FCB.AFCB'Class; Mode : FCB.File_Mode; Name : String; Form : String; @@ -110,24 +110,24 @@ package System.File_IO is procedure Delete (File : in out FCB.AFCB_Ptr); -- The indicated file is unlinked - procedure Reset (File : in out FCB.AFCB_Ptr; Mode : in FCB.File_Mode); - -- The file is reset, and the mode changed as indicated. + procedure Reset (File : in out FCB.AFCB_Ptr; Mode : FCB.File_Mode); + -- The file is reset, and the mode changed as indicated procedure Reset (File : in out FCB.AFCB_Ptr); -- The files is reset, and the mode is unchanged - function Mode (File : in FCB.AFCB_Ptr) return FCB.File_Mode; + function Mode (File : FCB.AFCB_Ptr) return FCB.File_Mode; -- Returns the mode as supplied by create, open or reset - function Name (File : in FCB.AFCB_Ptr) return String; + function Name (File : FCB.AFCB_Ptr) return String; -- Returns the file name as supplied by Open or Create. Raises Use_Error -- if used with temporary files or standard files. - function Form (File : in FCB.AFCB_Ptr) return String; + function Form (File : FCB.AFCB_Ptr) return String; -- Returns the form as supplied by create, open or reset -- The string is normalized to all lower case letters. - function Is_Open (File : in FCB.AFCB_Ptr) return Boolean; + function Is_Open (File : FCB.AFCB_Ptr) return Boolean; -- Determines if file is open or not ---------------------- @@ -218,7 +218,7 @@ package System.File_IO is procedure Read_Buf (File : FCB.AFCB_Ptr; Buf : Address; - Siz : in Interfaces.C_Streams.size_t; + Siz : Interfaces.C_Streams.size_t; Count : out Interfaces.C_Streams.size_t); -- Reads Siz bytes from File.Stream into Buf. The caller has checked -- that the file is open in read mode. Device Error is raised if an error diff --git a/gcc/ada/s-finroo.adb b/gcc/ada/s-finroo.adb index 559c29cf0d7..507a7575bde 100644 --- a/gcc/ada/s-finroo.adb +++ b/gcc/ada/s-finroo.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- -- @@ -90,7 +90,7 @@ package body System.Finalization_Root is procedure Write (Stream : not null access Ada.Streams.Root_Stream_Type'Class; - Item : in Root_Controlled) + Item : Root_Controlled) is begin null; diff --git a/gcc/ada/s-finroo.ads b/gcc/ada/s-finroo.ads index f9847eb5818..3ea9a18b01a 100644 --- a/gcc/ada/s-finroo.ads +++ b/gcc/ada/s-finroo.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- -- @@ -63,7 +63,7 @@ package System.Finalization_Root is procedure Write (Stream : not null access Ada.Streams.Root_Stream_Type'Class; - Item : in Root_Controlled); + Item : Root_Controlled); procedure Read (Stream : not null access Ada.Streams.Root_Stream_Type'Class; diff --git a/gcc/ada/s-gloloc-mingw.adb b/gcc/ada/s-gloloc-mingw.adb index ce7e4f7857f..183b8f9e43e 100644 --- a/gcc/ada/s-gloloc-mingw.adb +++ b/gcc/ada/s-gloloc-mingw.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2005, AdaCore -- +-- Copyright (C) 1999-2006, AdaCore -- -- -- -- 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 System.Global_Locks is procedure Create_Lock (Lock : out Lock_Type; - Name : in String) + Name : String) is L : Lock_Type; diff --git a/gcc/ada/s-gloloc.adb b/gcc/ada/s-gloloc.adb index 17a30df166b..197b4a9abfc 100644 --- a/gcc/ada/s-gloloc.adb +++ b/gcc/ada/s-gloloc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2002 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- -- @@ -75,7 +75,7 @@ package body System.Global_Locks is -- Create_Lock -- ----------------- - procedure Create_Lock (Lock : out Lock_Type; Name : in String) is + procedure Create_Lock (Lock : out Lock_Type; Name : String) is L : Lock_Type; begin diff --git a/gcc/ada/s-gloloc.ads b/gcc/ada/s-gloloc.ads index c345af4d7aa..03bfc0c3acf 100644 --- a/gcc/ada/s-gloloc.ads +++ b/gcc/ada/s-gloloc.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1999-2002 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- -- @@ -37,7 +37,7 @@ package System.Global_Locks is Lock_Error : exception; - -- Exception raised if a request cannot be executed on a lock. + -- Exception raised if a request cannot be executed on a lock type Lock_Type is private; -- Such a lock is a global lock between partitions. This lock is @@ -46,7 +46,7 @@ package System.Global_Locks is Null_Lock : constant Lock_Type; -- This needs comments ??? - procedure Create_Lock (Lock : out Lock_Type; Name : in String); + procedure Create_Lock (Lock : out Lock_Type; Name : String); -- Create or retrieve a global lock for the current partition using -- its Name. diff --git a/gcc/ada/s-io.adb b/gcc/ada/s-io.adb index 264976b4591..4a6a0af9b12 100644 --- a/gcc/ada/s-io.adb +++ b/gcc/ada/s-io.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- -- @@ -123,7 +123,7 @@ package body System.IO is -- Set_Output -- ---------------- - procedure Set_Output (File : in File_Type) is + procedure Set_Output (File : File_Type) is begin Current_Out := File; end Set_Output; diff --git a/gcc/ada/s-io.ads b/gcc/ada/s-io.ads index 7ab099b8473..c2797c2fbb5 100644 --- a/gcc/ada/s-io.ads +++ b/gcc/ada/s-io.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- -- @@ -53,7 +53,7 @@ package System.IO is function Standard_Error return File_Type; function Standard_Output return File_Type; - procedure Set_Output (File : in File_Type); + procedure Set_Output (File : File_Type); private diff --git a/gcc/ada/s-rpc.adb b/gcc/ada/s-rpc.adb index dfa7613977c..a812423142d 100644 --- a/gcc/ada/s-rpc.adb +++ b/gcc/ada/s-rpc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2004 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,7 +37,7 @@ -- the presence of a master partition to run a test which is otherwise not -- distributed. --- The GLADE distribution package includes a replacement for this file. +-- The GLADE distribution package includes a replacement for this file with Ada.Exceptions; use Ada.Exceptions; @@ -71,7 +71,7 @@ package body System.RPC is procedure Write (Stream : in out Params_Stream_Type; - Item : in Ada.Streams.Stream_Element_Array) + Item : Ada.Streams.Stream_Element_Array) is begin Raise_Exception (Program_Error'Identity, Msg); @@ -82,7 +82,7 @@ package body System.RPC is ------------ procedure Do_RPC - (Partition : in Partition_ID; + (Partition : Partition_ID; Params : access Params_Stream_Type; Result : access Params_Stream_Type) is @@ -95,7 +95,7 @@ package body System.RPC is ------------ procedure Do_APC - (Partition : in Partition_ID; + (Partition : Partition_ID; Params : access Params_Stream_Type) is begin @@ -107,8 +107,8 @@ package body System.RPC is ---------------------------- procedure Establish_RPC_Receiver - (Partition : in Partition_ID; - Receiver : in RPC_Receiver) + (Partition : Partition_ID; + Receiver : RPC_Receiver) is begin null; diff --git a/gcc/ada/s-rpc.ads b/gcc/ada/s-rpc.ads index bc23edfb034..56e90e99806 100644 --- a/gcc/ada/s-rpc.ads +++ b/gcc/ada/s-rpc.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1998 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 -- @@ -61,22 +61,22 @@ package System.RPC is procedure Write (Stream : in out Params_Stream_Type; - Item : in Ada.Streams.Stream_Element_Array); + Item : Ada.Streams.Stream_Element_Array); -- Synchronous call procedure Do_RPC - (Partition : in Partition_ID; + (Partition : Partition_ID; Params : access Params_Stream_Type; Result : access Params_Stream_Type); -- Asynchronous call procedure Do_APC - (Partition : in Partition_ID; + (Partition : Partition_ID; Params : access Params_Stream_Type); - -- The handler for incoming RPCs. + -- The handler for incoming RPCs type RPC_Receiver is access procedure @@ -84,8 +84,8 @@ package System.RPC is Result : access Params_Stream_Type); procedure Establish_RPC_Receiver ( - Partition : in Partition_ID; - Receiver : in RPC_Receiver); + Partition : Partition_ID; + Receiver : RPC_Receiver); private diff --git a/gcc/ada/s-sequio.adb b/gcc/ada/s-sequio.adb index 4ab259f6fbe..50e568211ba 100644 --- a/gcc/ada/s-sequio.adb +++ b/gcc/ada/s-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- -- @@ -45,8 +45,7 @@ package body System.Sequential_IO is ------------------- function AFCB_Allocate - (Control_Block : Sequential_AFCB) - return FCB.AFCB_Ptr + (Control_Block : Sequential_AFCB) return FCB.AFCB_Ptr is pragma Warnings (Off, Control_Block); @@ -90,9 +89,9 @@ package body System.Sequential_IO is procedure Create (File : in out File_Type; - Mode : in FCB.File_Mode := FCB.Out_File; - Name : in String := ""; - Form : in String := "") + Mode : FCB.File_Mode := FCB.Out_File; + Name : String := ""; + Form : String := "") is Dummy_File_Control_Block : Sequential_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); @@ -116,9 +115,9 @@ package body System.Sequential_IO is procedure Open (File : in out File_Type; - Mode : in FCB.File_Mode; - Name : in String; - Form : in String := "") + Mode : FCB.File_Mode; + Name : String; + Form : String := "") is Dummy_File_Control_Block : Sequential_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); @@ -159,7 +158,7 @@ package body System.Sequential_IO is procedure Write (File : in out Sequential_AFCB; - Item : in Ada.Streams.Stream_Element_Array) + Item : Ada.Streams.Stream_Element_Array) is begin raise Program_Error; diff --git a/gcc/ada/s-sequio.ads b/gcc/ada/s-sequio.ads index 3ad99820ca9..09c41aeb2c2 100644 --- a/gcc/ada/s-sequio.ads +++ b/gcc/ada/s-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. -- -- -- -- 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,8 +46,7 @@ package System.Sequential_IO is -- No additional fields required for Sequential_IO function AFCB_Allocate - (Control_Block : Sequential_AFCB) - return FCB.AFCB_Ptr; + (Control_Block : Sequential_AFCB) return FCB.AFCB_Ptr; procedure AFCB_Close (File : access Sequential_AFCB); procedure AFCB_Free (File : access Sequential_AFCB); @@ -60,7 +59,7 @@ package System.Sequential_IO is procedure Write (File : in out Sequential_AFCB; - Item : in Ada.Streams.Stream_Element_Array); + Item : Ada.Streams.Stream_Element_Array); -- Required overriding of Write, not actually used for Sequential_IO type File_Type is access all Sequential_AFCB; @@ -68,14 +67,14 @@ package System.Sequential_IO is procedure Create (File : in out File_Type; - Mode : in FCB.File_Mode := FCB.Out_File; - Name : in String := ""; - Form : in String := ""); + Mode : FCB.File_Mode := FCB.Out_File; + Name : String := ""; + Form : String := ""); procedure Open (File : in out File_Type; - Mode : in FCB.File_Mode; - Name : in String; - Form : in String := ""); + Mode : FCB.File_Mode; + Name : String; + Form : String := ""); end System.Sequential_IO; diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads index cddf945dbdb..77cfa7b6421 100644 --- a/gcc/ada/s-shasto.ads +++ b/gcc/ada/s-shasto.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -198,7 +198,7 @@ package System.Shared_Storage is -- value. The storage is created by this call if it does not -- already exist. - procedure Shared_Var_Close (Var : in SIO.Stream_Access); + procedure Shared_Var_Close (Var : SIO.Stream_Access); -- This routine signals the end of a read/assign operation. It can -- be useful to embrace a read/write operation between a call to -- open and a call to close which protect the whole operation. diff --git a/gcc/ada/s-stopoo.ads b/gcc/ada/s-stopoo.ads index c30ee9c4609..16a8103f26d 100644 --- a/gcc/ada/s-stopoo.ads +++ b/gcc/ada/s-stopoo.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,15 +47,15 @@ package System.Storage_Pools is procedure Allocate (Pool : in out Root_Storage_Pool; Storage_Address : out Address; - Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count; - Alignment : in System.Storage_Elements.Storage_Count) + Size_In_Storage_Elements : System.Storage_Elements.Storage_Count; + Alignment : System.Storage_Elements.Storage_Count) is abstract; procedure Deallocate (Pool : in out Root_Storage_Pool; - Storage_Address : in Address; - Size_In_Storage_Elements : in System.Storage_Elements.Storage_Count; - Alignment : in System.Storage_Elements.Storage_Count) + Storage_Address : Address; + Size_In_Storage_Elements : System.Storage_Elements.Storage_Count; + Alignment : System.Storage_Elements.Storage_Count) is abstract; function Storage_Size diff --git a/gcc/ada/s-stratt.adb b/gcc/ada/s-stratt.adb index 810a1046ffa..9601979ef9c 100644 --- a/gcc/ada/s-stratt.adb +++ b/gcc/ada/s-stratt.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- -- @@ -465,9 +465,8 @@ package body System.Stream_Attributes is -- W_AD -- ---------- - procedure W_AD (Stream : not null access RST; Item : in Fat_Pointer) is + procedure W_AD (Stream : not null access RST; Item : Fat_Pointer) is T : constant S_AD := From_AD (Item); - begin Ada.Streams.Write (Stream.all, T); end W_AD; @@ -476,9 +475,8 @@ package body System.Stream_Attributes is -- W_AS -- ---------- - procedure W_AS (Stream : not null access RST; Item : in Thin_Pointer) is + procedure W_AS (Stream : not null access RST; Item : Thin_Pointer) is T : constant S_AS := From_AS (Item); - begin Ada.Streams.Write (Stream.all, T); end W_AS; @@ -487,9 +485,8 @@ package body System.Stream_Attributes is -- W_B -- --------- - procedure W_B (Stream : not null access RST; Item : in Boolean) is + procedure W_B (Stream : not null access RST; Item : Boolean) is T : S_B; - begin T (1) := Boolean'Pos (Item); Ada.Streams.Write (Stream.all, T); @@ -499,9 +496,8 @@ package body System.Stream_Attributes is -- W_C -- --------- - procedure W_C (Stream : not null access RST; Item : in Character) is + procedure W_C (Stream : not null access RST; Item : Character) is T : S_C; - begin T (1) := Character'Pos (Item); Ada.Streams.Write (Stream.all, T); @@ -511,9 +507,8 @@ package body System.Stream_Attributes is -- W_F -- --------- - procedure W_F (Stream : not null access RST; Item : in Float) is + procedure W_F (Stream : not null access RST; Item : Float) is T : constant S_F := From_F (Item); - begin Ada.Streams.Write (Stream.all, T); end W_F; @@ -522,9 +517,8 @@ package body System.Stream_Attributes is -- W_I -- --------- - procedure W_I (Stream : not null access RST; Item : in Integer) is + procedure W_I (Stream : not null access RST; Item : Integer) is T : constant S_I := From_I (Item); - begin Ada.Streams.Write (Stream.all, T); end W_I; @@ -533,9 +527,8 @@ package body System.Stream_Attributes is -- W_LF -- ---------- - procedure W_LF (Stream : not null access RST; Item : in Long_Float) is + procedure W_LF (Stream : not null access RST; Item : Long_Float) is T : constant S_LF := From_LF (Item); - begin Ada.Streams.Write (Stream.all, T); end W_LF; @@ -544,9 +537,8 @@ package body System.Stream_Attributes is -- W_LI -- ---------- - procedure W_LI (Stream : not null access RST; Item : in Long_Integer) is + procedure W_LI (Stream : not null access RST; Item : Long_Integer) is T : constant S_LI := From_LI (Item); - begin Ada.Streams.Write (Stream.all, T); end W_LI; @@ -555,9 +547,8 @@ package body System.Stream_Attributes is -- W_LLF -- ----------- - procedure W_LLF (Stream : not null access RST; Item : in Long_Long_Float) is + procedure W_LLF (Stream : not null access RST; Item : Long_Long_Float) is T : constant S_LLF := From_LLF (Item); - begin Ada.Streams.Write (Stream.all, T); end W_LLF; @@ -567,10 +558,9 @@ package body System.Stream_Attributes is ----------- procedure W_LLI - (Stream : not null access RST; Item : in Long_Long_Integer) + (Stream : not null access RST; Item : Long_Long_Integer) is T : constant S_LLI := From_LLI (Item); - begin Ada.Streams.Write (Stream.all, T); end W_LLI; @@ -580,10 +570,9 @@ package body System.Stream_Attributes is ----------- procedure W_LLU - (Stream : not null access RST; Item : in UST.Long_Long_Unsigned) + (Stream : not null access RST; Item : UST.Long_Long_Unsigned) is T : constant S_LLU := From_LLU (Item); - begin Ada.Streams.Write (Stream.all, T); end W_LLU; @@ -593,10 +582,9 @@ package body System.Stream_Attributes is ---------- procedure W_LU - (Stream : not null access RST; Item : in UST.Long_Unsigned) + (Stream : not null access RST; Item : UST.Long_Unsigned) is T : constant S_LU := From_LU (Item); - begin Ada.Streams.Write (Stream.all, T); end W_LU; @@ -605,9 +593,8 @@ package body System.Stream_Attributes is -- W_SF -- ---------- - procedure W_SF (Stream : not null access RST; Item : in Short_Float) is + procedure W_SF (Stream : not null access RST; Item : Short_Float) is T : constant S_SF := From_SF (Item); - begin Ada.Streams.Write (Stream.all, T); end W_SF; @@ -616,9 +603,8 @@ package body System.Stream_Attributes is -- W_SI -- ---------- - procedure W_SI (Stream : not null access RST; Item : in Short_Integer) is + procedure W_SI (Stream : not null access RST; Item : Short_Integer) is T : constant S_SI := From_SI (Item); - begin Ada.Streams.Write (Stream.all, T); end W_SI; @@ -628,10 +614,9 @@ package body System.Stream_Attributes is ----------- procedure W_SSI - (Stream : not null access RST; Item : in Short_Short_Integer) + (Stream : not null access RST; Item : Short_Short_Integer) is T : constant S_SSI := From_SSI (Item); - begin Ada.Streams.Write (Stream.all, T); end W_SSI; @@ -641,10 +626,9 @@ package body System.Stream_Attributes is ----------- procedure W_SSU - (Stream : not null access RST; Item : in UST.Short_Short_Unsigned) + (Stream : not null access RST; Item : UST.Short_Short_Unsigned) is T : constant S_SSU := From_SSU (Item); - begin Ada.Streams.Write (Stream.all, T); end W_SSU; @@ -654,10 +638,9 @@ package body System.Stream_Attributes is ---------- procedure W_SU - (Stream : not null access RST; Item : in UST.Short_Unsigned) + (Stream : not null access RST; Item : UST.Short_Unsigned) is T : constant S_SU := From_SU (Item); - begin Ada.Streams.Write (Stream.all, T); end W_SU; @@ -666,9 +649,8 @@ package body System.Stream_Attributes is -- W_U -- --------- - procedure W_U (Stream : not null access RST; Item : in UST.Unsigned) is + procedure W_U (Stream : not null access RST; Item : UST.Unsigned) is T : constant S_U := From_U (Item); - begin Ada.Streams.Write (Stream.all, T); end W_U; @@ -677,9 +659,8 @@ package body System.Stream_Attributes is -- W_WC -- ---------- - procedure W_WC (Stream : not null access RST; Item : in Wide_Character) is + procedure W_WC (Stream : not null access RST; Item : Wide_Character) is T : constant S_WC := From_WC (Item); - begin Ada.Streams.Write (Stream.all, T); end W_WC; diff --git a/gcc/ada/s-stratt.ads b/gcc/ada/s-stratt.ads index eefebd4f243..e0e9b0f5c6d 100644 --- a/gcc/ada/s-stratt.ads +++ b/gcc/ada/s-stratt.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- -- @@ -131,29 +131,29 @@ package System.Stream_Attributes is -- between 'Write and 'Output because there are no discriminants -- or bounds to be written. - procedure W_AD (Stream : not null access RST; Item : in Fat_Pointer); - procedure W_AS (Stream : not null access RST; Item : in Thin_Pointer); - procedure W_B (Stream : not null access RST; Item : in Boolean); - procedure W_C (Stream : not null access RST; Item : in Character); - procedure W_F (Stream : not null access RST; Item : in Float); - procedure W_I (Stream : not null access RST; Item : in Integer); - procedure W_LF (Stream : not null access RST; Item : in Long_Float); - procedure W_LI (Stream : not null access RST; Item : in Long_Integer); - procedure W_LLF (Stream : not null access RST; Item : in Long_Long_Float); - procedure W_LLI (Stream : not null access RST; Item : in Long_Long_Integer); + procedure W_AD (Stream : not null access RST; Item : Fat_Pointer); + procedure W_AS (Stream : not null access RST; Item : Thin_Pointer); + procedure W_B (Stream : not null access RST; Item : Boolean); + procedure W_C (Stream : not null access RST; Item : Character); + procedure W_F (Stream : not null access RST; Item : Float); + procedure W_I (Stream : not null access RST; Item : Integer); + procedure W_LF (Stream : not null access RST; Item : Long_Float); + procedure W_LI (Stream : not null access RST; Item : Long_Integer); + procedure W_LLF (Stream : not null access RST; Item : Long_Long_Float); + procedure W_LLI (Stream : not null access RST; Item : Long_Long_Integer); procedure W_LLU (Stream : not null access RST; - Item : in UST.Long_Long_Unsigned); - procedure W_LU (Stream : not null access RST; Item : in UST.Long_Unsigned); - procedure W_SF (Stream : not null access RST; Item : in Short_Float); - procedure W_SI (Stream : not null access RST; Item : in Short_Integer); + Item : UST.Long_Long_Unsigned); + procedure W_LU (Stream : not null access RST; Item : UST.Long_Unsigned); + procedure W_SF (Stream : not null access RST; Item : Short_Float); + procedure W_SI (Stream : not null access RST; Item : Short_Integer); procedure W_SSI (Stream : not null access RST; - Item : in Short_Short_Integer); + Item : Short_Short_Integer); procedure W_SSU (Stream : not null access RST; - Item : in UST.Short_Short_Unsigned); + Item : UST.Short_Short_Unsigned); procedure W_SU (Stream : not null access RST; - Item : in UST.Short_Unsigned); - procedure W_U (Stream : not null access RST; Item : in UST.Unsigned); - procedure W_WC (Stream : not null access RST; Item : in Wide_Character); + Item : UST.Short_Unsigned); + procedure W_U (Stream : not null access RST; Item : UST.Unsigned); + procedure W_WC (Stream : not null access RST; Item : Wide_Character); ---------------------------- -- Composite Input/Output -- diff --git a/gcc/ada/s-taasde.adb b/gcc/ada/s-taasde.adb index 9253862c89e..8d5bac29d8c 100644 --- a/gcc/ada/s-taasde.adb +++ b/gcc/ada/s-taasde.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2006, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -174,9 +174,8 @@ package body System.Tasking.Async_Delays is --------------------------- function Enqueue_Duration - (T : in Duration; - D : Delay_Block_Access) - return Boolean + (T : Duration; + D : Delay_Block_Access) return Boolean is begin if T <= 0.0 then @@ -380,7 +379,7 @@ package body System.Tasking.Async_Delays is while Timer_Queue.Succ.Resume_Time <= Now loop - -- Dequeue the waiting task from the front of the queue. + -- Dequeue the waiting task from the front of the queue pragma Debug (System.Tasking.Debug.Trace (Timer_Server_ID, "Timer service: waking up waiting task", 'E')); diff --git a/gcc/ada/s-taasde.ads b/gcc/ada/s-taasde.ads index 25f3da34003..4eecabff54f 100644 --- a/gcc/ada/s-taasde.ads +++ b/gcc/ada/s-taasde.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2006, Free Software Foundation, Inc. -- -- -- -- GNARL 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- -- @@ -97,7 +97,7 @@ package System.Tasking.Async_Delays is type Delay_Block_Access is access all Delay_Block; function Enqueue_Duration - (T : in Duration; + (T : Duration; D : Delay_Block_Access) return Boolean; -- Enqueue the specified relative delay. Returns True if the delay has -- been enqueued, False if it has already expired. If the delay has been diff --git a/gcc/ada/s-tadert.adb b/gcc/ada/s-tadert.adb index f9432540501..2bd3fc78c2f 100644 --- a/gcc/ada/s-tadert.adb +++ b/gcc/ada/s-tadert.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2006, Free Software Foundation, Inc. -- -- -- -- GNARL 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,7 +38,7 @@ with System.Task_Primitives.Operations; with System.Tasking.Initialization; function System.Tasking.Async_Delays.Enqueue_RT - (T : in Ada.Real_Time.Time; + (T : Ada.Real_Time.Time; D : Delay_Block_Access) return Boolean is use type Ada.Real_Time.Time; -- for "=" operator diff --git a/gcc/ada/s-taskin.adb b/gcc/ada/s-taskin.adb index 6c0ef7a04e6..066dbf0ead5 100644 --- a/gcc/ada/s-taskin.adb +++ b/gcc/ada/s-taskin.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. -- -- -- -- GNARL 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,9 +41,6 @@ with System.Task_Primitives.Operations; with System.Storage_Elements; -- Needed for initializing Stack_Info.Size -with System.Parameters; --- Used for Adjust_Storage_Size - package body System.Tasking is package STPO renames System.Task_Primitives.Operations; @@ -128,7 +125,7 @@ package body System.Tasking is (Parameters.Adjust_Storage_Size (Stack_Size)); end if; - -- Link the task into the list of all tasks. + -- Link the task into the list of all tasks T.Common.All_Tasks_Link := All_Tasks_List; All_Tasks_List := T; diff --git a/gcc/ada/s-tasque.adb b/gcc/ada/s-tasque.adb index 175b6b90008..55b41c7fae9 100644 --- a/gcc/ada/s-tasque.adb +++ b/gcc/ada/s-tasque.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. -- -- -- -- GNARL 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- -- @@ -52,7 +52,7 @@ package body System.Tasking.Queuing is use Protected_Objects; use Protected_Objects.Entries; - -- Entry Queues implemented as doubly linked list. + -- Entry Queues implemented as doubly linked list Queuing_Policy : Character; pragma Import (C, Queuing_Policy, "__gl_queuing_policy"); @@ -164,7 +164,7 @@ package body System.Tasking.Queuing is -- Return number of calls on the waiting queue of E - function Count_Waiting (E : in Entry_Queue) return Natural is + function Count_Waiting (E : Entry_Queue) return Natural is Count : Natural; Temp : Entry_Call_Link; @@ -418,7 +418,7 @@ package body System.Tasking.Queuing is -- Return the head of entry_queue E - function Head (E : in Entry_Queue) return Entry_Call_Link is + function Head (E : Entry_Queue) return Entry_Call_Link is begin pragma Assert (Check_Queue (E)); return E.Head; @@ -528,7 +528,7 @@ package body System.Tasking.Queuing is Broadcast_Program_Error (Self_ID, Object, null); end; - -- If a call was selected, dequeue it and return it for service. + -- If a call was selected, dequeue it and return it for service if Entry_Call /= null then Temp_Call := Entry_Call; diff --git a/gcc/ada/s-tasque.ads b/gcc/ada/s-tasque.ads index 3fd483c4757..d8a23a04aad 100644 --- a/gcc/ada/s-tasque.ads +++ b/gcc/ada/s-tasque.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. -- -- -- -- GNARL 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 System.Tasking.Queuing is procedure Dequeue (E : in out Entry_Queue; Call : Entry_Call_Link); -- Dequeue Call from entry_queue E - function Head (E : in Entry_Queue) return Entry_Call_Link; - -- Return the head of entry_queue E + function Head (E : Entry_Queue) return Entry_Call_Link; pragma Inline (Head); + -- Return the head of entry_queue E procedure Dequeue_Head (E : in out Entry_Queue; @@ -64,10 +64,10 @@ package System.Tasking.Queuing is -- Remove and return the head of entry_queue E function Onqueue (Call : Entry_Call_Link) return Boolean; - -- Return True if Call is on any entry_queue at all pragma Inline (Onqueue); + -- Return True if Call is on any entry_queue at all - function Count_Waiting (E : in Entry_Queue) return Natural; + function Count_Waiting (E : Entry_Queue) return Natural; -- Return number of calls on the waiting queue of E procedure Select_Task_Entry_Call @@ -82,9 +82,9 @@ package System.Tasking.Queuing is -- Open_Alternative will be True if there were any open alternatives procedure Select_Protected_Entry_Call - (Self_ID : Task_Id; - Object : POE.Protection_Entries_Access; - Call : out Entry_Call_Link); + (Self_ID : Task_Id; + Object : POE.Protection_Entries_Access; + Call : out Entry_Call_Link); -- Select an entry of a protected object procedure Enqueue_Call (Entry_Call : Entry_Call_Link); diff --git a/gcc/ada/s-wchjis.ads b/gcc/ada/s-wchjis.ads index ebfcbedfb71..45354aeb771 100644 --- a/gcc/ada/s-wchjis.ads +++ b/gcc/ada/s-wchjis.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- -- @@ -43,7 +43,7 @@ package System.WCh_JIS is -- if the two characters are not a valid EUC encoding. procedure JIS_To_EUC - (J : in Wide_Character; + (J : Wide_Character; EUC1 : out Character; EUC2 : out Character); @@ -56,7 +56,7 @@ package System.WCh_JIS is -- the input code is assumed to be in an appropriate range. procedure JIS_To_Shift_JIS - (J : in Wide_Character; + (J : Wide_Character; SJ1 : out Character; SJ2 : out Character); -- Given a wide character code in JIS form, produce the corresponding diff --git a/gcc/ada/sinput-c.ads b/gcc/ada/sinput-c.ads index 608095cf0ed..4151f0d999b 100644 --- a/gcc/ada/sinput-c.ads +++ b/gcc/ada/sinput-c.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, 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- -- @@ -24,7 +24,7 @@ -- -- ------------------------------------------------------------------------------ --- This child package contains a procedure to load files. +-- This child package contains a procedure to load files -- It is used by Sinput.P to load project files, and by GPrep to load -- preprocessor definition files and input files. @@ -32,6 +32,6 @@ package Sinput.C is function Load_File (Path : String) return Source_File_Index; - -- Load a file into memory and Initialize the Scans state. + -- Load a file into memory and Initialize the Scans state end Sinput.C; diff --git a/gcc/ada/system-vms-zcx.ads b/gcc/ada/system-vms-zcx.ads index 39af22044e5..ce1b636f4b5 100644 --- a/gcc/ada/system-vms-zcx.ads +++ b/gcc/ada/system-vms-zcx.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (OpenVMS GCC_ZCX DEC Threads Version) -- -- -- --- Copyright (C) 2002-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-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 -- @@ -229,7 +229,7 @@ private -- Special VMS Interfaces -- ---------------------------- - procedure Lib_Stop (I : in Integer); + procedure Lib_Stop (I : Integer); pragma Interface (C, Lib_Stop); pragma Import_Procedure (Lib_Stop, "LIB$STOP", Mechanism => (Value)); -- Interface to VMS condition handling. Used by RTSfind and pragma diff --git a/gcc/ada/system-vms.ads b/gcc/ada/system-vms.ads index 22d49f5d979..41e0696b65d 100644 --- a/gcc/ada/system-vms.ads +++ b/gcc/ada/system-vms.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (OpenVMS DEC Threads Version) -- -- -- --- 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 -- @@ -229,7 +229,7 @@ private -- Special VMS Interfaces -- ---------------------------- - procedure Lib_Stop (I : in Integer); + procedure Lib_Stop (I : Integer); pragma Interface (C, Lib_Stop); pragma Import_Procedure (Lib_Stop, "LIB$STOP", Mechanism => (Value)); -- Interface to VMS condition handling. Used by RTSfind and pragma diff --git a/gcc/ada/system-vms_64.ads b/gcc/ada/system-vms_64.ads index 555692c6d90..971c5f37b88 100644 --- a/gcc/ada/system-vms_64.ads +++ b/gcc/ada/system-vms_64.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (OpenVMS 64bit GCC_ZCX DEC Threads Version) -- -- -- --- 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 -- @@ -248,7 +248,7 @@ private -- Special VMS Interfaces -- ---------------------------- - procedure Lib_Stop (I : in Integer); + procedure Lib_Stop (I : Integer); pragma Interface (C, Lib_Stop); pragma Import_Procedure (Lib_Stop, "LIB$STOP", Mechanism => (Value)); -- Interface to VMS condition handling. Used by RTSfind and pragma diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb index b3aa017dd95..0b11a5697cd 100644 --- a/gcc/ada/xr_tabls.adb +++ b/gcc/ada/xr_tabls.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -761,7 +761,7 @@ package body Xr_Tabls is function Get_File (File : File_Reference; - With_Dir : in Boolean := False; + With_Dir : Boolean := False; Strip : Natural := 0) return String is Tmp : GNAT.OS_Lib.String_Access; diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index 3650851d916..b04b5a66f38 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -75,9 +75,9 @@ package body Xref_Lib is -- the .ali files. procedure Open - (Name : in String; + (Name : String; File : out ALI_File; - Dependencies : in Boolean := False); + Dependencies : Boolean := False); -- Open a new ALI file. If Dependencies is True, the insert every library -- file 'with'ed in the files database (used for gnatxref) @@ -1367,7 +1367,7 @@ package body Xref_Lib is -- Print_Unused -- ------------------ - procedure Print_Unused (Full_Path_Name : in Boolean) is + procedure Print_Unused (Full_Path_Name : Boolean) is Decls : constant Declaration_Array_Access := Get_Declarations; Decl : Declaration_Reference; Arr : Reference_Array_Access; @@ -1417,7 +1417,7 @@ package body Xref_Lib is -- Print_Vi -- -------------- - procedure Print_Vi (Full_Path_Name : in Boolean) is + procedure Print_Vi (Full_Path_Name : Boolean) is Tab : constant Character := ASCII.HT; Decls : constant Declaration_Array_Access := Get_Declarations (Sorted => False); @@ -1465,7 +1465,7 @@ package body Xref_Lib is -- Print_Xref -- ---------------- - procedure Print_Xref (Full_Path_Name : in Boolean) is + procedure Print_Xref (Full_Path_Name : Boolean) is Decls : constant Declaration_Array_Access := Get_Declarations; Decl : Declaration_Reference; @@ -1475,7 +1475,7 @@ package body Xref_Lib is procedure New_Line80; -- Go to start of new line - procedure Print80 (S : in String); + procedure Print80 (S : String); -- Print the text, respecting the 80 columns rule procedure Print_Ref (Line, Column : String); @@ -1504,7 +1504,7 @@ package body Xref_Lib is -- Print80 -- ------------- - procedure Print80 (S : in String) is + procedure Print80 (S : String) is Align : Natural := Margin - (Integer (Column) mod Margin); begin diff --git a/gcc/ada/xref_lib.ads b/gcc/ada/xref_lib.ads index 2c9f944e594..8494a9b3d72 100644 --- a/gcc/ada/xref_lib.ads +++ b/gcc/ada/xref_lib.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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,11 +80,11 @@ package Xref_Lib is ----------------------- procedure Print_Gnatfind - (References : in Boolean; - Full_Path_Name : in Boolean); - procedure Print_Unused (Full_Path_Name : in Boolean); - procedure Print_Vi (Full_Path_Name : in Boolean); - procedure Print_Xref (Full_Path_Name : in Boolean); + (References : Boolean; + Full_Path_Name : Boolean); + procedure Print_Unused (Full_Path_Name : Boolean); + procedure Print_Vi (Full_Path_Name : Boolean); + procedure Print_Xref (Full_Path_Name : Boolean); -- The actual print procedures. These functions step through the symbol -- table and print all the symbols if they match the files given on the -- command line (they already match the entities if they are in the @@ -94,7 +94,7 @@ package Xref_Lib is -- General Algorithms -- ------------------------ - function Default_Project_File (Dir_Name : in String) return String; + function Default_Project_File (Dir_Name : String) return String; -- Returns the default Project file name for the directory Dir_Name procedure Search |
