]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/ada/a-wtcoio.ads
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / ada / a-wtcoio.ads
diff --git a/gcc/ada/a-wtcoio.ads b/gcc/ada/a-wtcoio.ads
deleted file mode 100644 (file)
index 34f38db..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-------------------------------------------------------------------------------
---                                                                          --
---                         GNAT RUNTIME COMPONENTS                          --
---                                                                          --
---           A D A . W I D E _ T E X T _ IO . C O M P L E X _ I O           --
---                                                                          --
---                                 S p e c                                  --
---                                                                          --
---                            $Revision: 1.1.16.1 $
---                                                                          --
--- 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. --
---                                                                          --
-------------------------------------------------------------------------------
-
-with Ada.Numerics.Generic_Complex_Types;
-
-generic
-   with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
-
-package Ada.Wide_Text_IO.Complex_IO is
-
-   use Complex_Types;
-
-   Default_Fore : Field := 2;
-   Default_Aft  : Field := Real'Digits - 1;
-   Default_Exp  : Field := 3;
-
-   procedure Get
-     (File  : in  File_Type;
-      Item  : out Complex;
-      Width : in  Field := 0);
-
-   procedure Get
-     (Item  : out Complex;
-      Width : in  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);
-
-   procedure Put
-     (Item : in Complex;
-      Fore : in Field := Default_Fore;
-      Aft  : in Field := Default_Aft;
-      Exp  : in Field := Default_Exp);
-
-   procedure Get
-     (From : in  Wide_String;
-      Item : out Complex;
-      Last : out Positive);
-
-   procedure Put
-     (To   : out Wide_String;
-      Item : in  Complex;
-      Aft  : in  Field := Default_Aft;
-      Exp  : in  Field := Default_Exp);
-
-end Ada.Wide_Text_IO.Complex_IO;