From: Robert Dewar Date: Wed, 15 Feb 2006 09:33:28 +0000 (+0100) Subject: a-ticoio.ads, [...]: Add use clause (moved here from spec) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5cbfe1be9373f7892489487201d5ea3dbb8fdb8d;p=gcc.git a-ticoio.ads, [...]: Add use clause (moved here from spec) 2006-02-13 Robert Dewar * a-ticoio.ads, a-ticoio.adb: Add use clause (moved here from spec) * a-coteio.ads, a-lcteio.ads, a-llctio.ads, a-scteio.ads: New files. From-SVN: r111038 --- diff --git a/gcc/ada/a-coteio.ads b/gcc/ada/a-coteio.ads new file mode 100755 index 00000000000..72fc34c16e5 --- /dev/null +++ b/gcc/ada/a-coteio.ads @@ -0,0 +1,24 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . C O M P L E X _ T E X T _ I O -- +-- -- +-- S p e c -- +-- -- +-- This specification is adapted from the Ada Reference Manual for use with -- +-- GNAT. In accordance with the copyright of that document, you can freely -- +-- copy and modify this specification, provided that if you redistribute a -- +-- modified version, any changes that you have made are clearly indicated. -- +-- -- +------------------------------------------------------------------------------ + +-- Ada 2005 AI-328 + +with Ada.Text_IO.Complex_IO; +with Ada.Numerics.Complex_Types; + +pragma Elaborate_All (Ada.Text_IO.Complex_IO); + +package Ada.Complex_Text_IO is + new Ada.Text_IO.Complex_IO (Ada.Numerics.Complex_Types); diff --git a/gcc/ada/a-lcteio.ads b/gcc/ada/a-lcteio.ads new file mode 100755 index 00000000000..8db0c0e9f40 --- /dev/null +++ b/gcc/ada/a-lcteio.ads @@ -0,0 +1,24 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . L O N G _ C O M P L E X _ T E X T _ I O -- +-- -- +-- S p e c -- +-- -- +-- This specification is adapted from the Ada Reference Manual for use with -- +-- GNAT. In accordance with the copyright of that document, you can freely -- +-- copy and modify this specification, provided that if you redistribute a -- +-- modified version, any changes that you have made are clearly indicated. -- +-- -- +------------------------------------------------------------------------------ + +-- Ada 2005 AI-328 + +with Ada.Text_IO.Complex_IO; +with Ada.Numerics.Long_Complex_Types; + +pragma Elaborate_All (Ada.Text_IO.Complex_IO); + +package Ada.Long_Complex_Text_IO is + new Ada.Text_IO.Complex_IO (Ada.Numerics.Long_Complex_Types); diff --git a/gcc/ada/a-llctio.ads b/gcc/ada/a-llctio.ads new file mode 100755 index 00000000000..70947a11782 --- /dev/null +++ b/gcc/ada/a-llctio.ads @@ -0,0 +1,24 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . L O N G _ L O N G _ C O M P L E X _ T E X T _ I O -- +-- -- +-- S p e c -- +-- -- +-- This specification is adapted from the Ada Reference Manual for use with -- +-- GNAT. In accordance with the copyright of that document, you can freely -- +-- copy and modify this specification, provided that if you redistribute a -- +-- modified version, any changes that you have made are clearly indicated. -- +-- -- +------------------------------------------------------------------------------ + +-- Ada 2005 AI-328 + +with Ada.Text_IO.Complex_IO; +with Ada.Numerics.Long_Long_Complex_Types; + +pragma Elaborate_All (Ada.Text_IO.Complex_IO); + +package Ada.Long_Long_Complex_Text_IO is + new Ada.Text_IO.Complex_IO (Ada.Numerics.Long_Long_Complex_Types); diff --git a/gcc/ada/a-scteio.ads b/gcc/ada/a-scteio.ads new file mode 100755 index 00000000000..f8623d82963 --- /dev/null +++ b/gcc/ada/a-scteio.ads @@ -0,0 +1,24 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT RUN-TIME COMPONENTS -- +-- -- +-- A D A . S H O R T _ C O M P L E X _ T E X T _ I O -- +-- -- +-- S p e c -- +-- -- +-- This specification is adapted from the Ada Reference Manual for use with -- +-- GNAT. In accordance with the copyright of that document, you can freely -- +-- copy and modify this specification, provided that if you redistribute a -- +-- modified version, any changes that you have made are clearly indicated. -- +-- -- +------------------------------------------------------------------------------ + +-- Ada 2005 AI-328 + +with Ada.Text_IO.Complex_IO; +with Ada.Numerics.Short_Complex_Types; + +pragma Elaborate_All (Ada.Text_IO.Complex_IO); + +package Ada.Short_Complex_Text_IO is + new Ada.Text_IO.Complex_IO (Ada.Numerics.Short_Complex_Types); diff --git a/gcc/ada/a-ticoio.ads b/gcc/ada/a-ticoio.ads index c4d6f94ada4..660094db2d6 100644 --- a/gcc/ada/a-ticoio.ads +++ b/gcc/ada/a-ticoio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005, 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 -- @@ -42,44 +42,42 @@ generic package Ada.Text_IO.Complex_IO is - use Complex_Types; - Default_Fore : Field := 2; - Default_Aft : Field := Real'Digits - 1; + Default_Aft : Field := Complex_Types.Real'Digits - 1; Default_Exp : Field := 3; procedure Get - (File : in File_Type; - Item : out Complex; - Width : in Field := 0); + (File : File_Type; + Item : out Complex_Types.Complex; + Width : Field := 0); procedure Get - (Item : out Complex; - Width : in Field := 0); + (Item : out Complex_Types.Complex; + Width : Field := 0); procedure Put - (File : in File_Type; - Item : in 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); procedure Put - (Item : in 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); procedure Get - (From : in String; - Item : out Complex; + (From : String; + Item : out Complex_Types.Complex; Last : out Positive); procedure Put (To : out String; - Item : in Complex; - Aft : in Field := Default_Aft; - Exp : in Field := Default_Exp); + Item : Complex_Types.Complex; + Aft : Field := Default_Aft; + Exp : Field := Default_Exp); private pragma Inline (Get);