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

	* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111038 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/a-coteio.ads b/gcc/ada/a-coteio.ads
new file mode 100755 (executable)
index 0000000..72fc34c
--- /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 (executable)
index 0000000..8db0c0e
--- /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 (executable)
index 0000000..70947a1
--- /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 (executable)
index 0000000..f8623d8
--- /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 c4d6f94..660094d 100644 (file)
--- 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);