1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . S T O R A G E _ I O --
9 -- This specification is derived from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
14 ------------------------------------------------------------------------------
16 with Ada.IO_Exceptions;
17 with System.Storage_Elements;
20 type Element_Type is private;
22 package Ada.Storage_IO is
25 Buffer_Size : constant System.Storage_Elements.Storage_Count :=
26 System.Storage_Elements.Storage_Count
27 ((Element_Type'Size + System.Storage_Unit - 1) /
30 subtype Buffer_Type is
31 System.Storage_Elements.Storage_Array (1 .. Buffer_Size);
33 ---------------------------------
34 -- Input and Output Operations --
35 ---------------------------------
37 procedure Read (Buffer : Buffer_Type; Item : out Element_Type);
39 procedure Write (Buffer : out Buffer_Type; Item : Element_Type);
45 Data_Error : exception renames IO_Exceptions.Data_Error;