X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Fada%2Fa-wtinio.ads;fp=gcc%2Fada%2Fa-wtinio.ads;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=eb9637171b0b8d92c56b6e5b71d4356bbcb9097c;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git

diff --git a/gcc/ada/a-wtinio.ads b/gcc/ada/a-wtinio.ads
deleted file mode 100644
index eb963717..00000000
--- a/gcc/ada/a-wtinio.ads
+++ /dev/null
@@ -1,62 +0,0 @@
-------------------------------------------------------------------------------
---                                                                          --
---                         GNAT RUNTIME COMPONENTS                          --
---                                                                          --
---           A D A . W I D E _ T E X T _ I O . I N T E G E R _ 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. --
---                                                                          --
-------------------------------------------------------------------------------
-
---  In Ada 95, the package Ada.Wide_Text_IO.Integer_IO is a subpackage
---  of Wide_Text_IO. In GNAT we make it a child package to avoid loading
---  the necessary code if Integer_IO is not instantiated. See the routine
---  Rtsfind.Text_IO_Kludge for a description of how we patch up the
---  difference in semantics so that it is invisible to the Ada programmer.
-
-private generic
-   type Num is range <>;
-
-package Ada.Wide_Text_IO.Integer_IO is
-
-   Default_Width : Field := Num'Width;
-   Default_Base  : Number_Base := 10;
-
-   procedure Get
-     (File  : in File_Type;
-      Item  : out Num;
-      Width : in Field := 0);
-
-   procedure Get
-     (Item  : out Num;
-      Width : in Field := 0);
-
-   procedure Put
-     (File  : in File_Type;
-      Item  : in Num;
-      Width : in Field := Default_Width;
-      Base  : in Number_Base := Default_Base);
-
-   procedure Put
-     (Item  : in Num;
-      Width : in Field := Default_Width;
-      Base  : in Number_Base := Default_Base);
-
-   procedure Get
-     (From : in Wide_String;
-      Item : out Num;
-      Last : out Positive);
-
-   procedure Put
-     (To   : out Wide_String;
-      Item : in Num;
-      Base : in Number_Base := Default_Base);
-
-end Ada.Wide_Text_IO.Integer_IO;