with Ada.IO_Exceptions;
with System.Storage_Elements;

GNAT RUN-TIME COMPONENTS

A D A . S T O R A G E _ I O

S p e c

$Revision: 1.11 $

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.

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);

procedure Read  (Buffer : in  Buffer_Type; Item : out Element_Type);

procedure Write (Buffer : out Buffer_Type; Item : in  Element_Type);

end Ada.Storage_IO;