]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/ada/a-storio.ads
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / ada / a-storio.ads
diff --git a/gcc/ada/a-storio.ads b/gcc/ada/a-storio.ads
deleted file mode 100644 (file)
index d4cdab4..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-------------------------------------------------------------------------------
---                                                                          --
---                         GNAT RUN-TIME COMPONENTS                         --
---                                                                          --
---                       A D A . S T O R A G E _ 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.IO_Exceptions;
-with System.Storage_Elements;
-
-generic
-   type Element_Type is private;
-
-package Ada.Storage_IO is
-pragma Preelaborate (Storage_IO);
-
-   Buffer_Size : constant System.Storage_Elements.Storage_Count :=
-                   System.Storage_Elements.Storage_Count
-                     ((Element_Type'Size + System.Storage_Unit - 1) /
-                                                      System.Storage_Unit);
-
-   subtype Buffer_Type is
-     System.Storage_Elements.Storage_Array (1 .. Buffer_Size);
-
-   ---------------------------------
-   -- Input and Output Operations --
-   ---------------------------------
-
-   procedure Read  (Buffer : in  Buffer_Type; Item : out Element_Type);
-
-   procedure Write (Buffer : out Buffer_Type; Item : in  Element_Type);
-
-   ----------------
-   -- Exceptions --
-   ----------------
-
-   Data_Error : exception renames IO_Exceptions.Data_Error;
-
-end Ada.Storage_IO;