156 lines
6.8 KiB
Ada
156 lines
6.8 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT COMPILER COMPONENTS --
|
|
-- --
|
|
-- E X P _ S T R M --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
|
|
-- --
|
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
|
-- ware Foundation; either version 2, or (at your option) any later ver- --
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
|
|
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
|
|
-- for more details. You should have received a copy of the GNU General --
|
|
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
|
-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
|
|
-- MA 02111-1307, USA. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
-- Routines to build stream subprograms for composite types
|
|
|
|
with Exp_Tss; use Exp_Tss;
|
|
with Types; use Types;
|
|
|
|
package Exp_Strm is
|
|
|
|
function Build_Elementary_Input_Call (N : Node_Id) return Node_Id;
|
|
-- Build call to Read attribute function for elementary type. Also used
|
|
-- for Input attributes for elementary types with an appropriate extra
|
|
-- assignment statement. N is the attribute reference node.
|
|
|
|
function Build_Elementary_Write_Call (N : Node_Id) return Node_Id;
|
|
-- Build call to Write attribute function for elementary type. Also used
|
|
-- for Output attributes for elementary types (since the effect of the
|
|
-- two attributes is identical for elementary types). N is the attribute
|
|
-- reference node.
|
|
|
|
function Build_Stream_Attr_Profile
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Nam : TSS_Name_Type) return List_Id;
|
|
-- Builds the parameter profile for the stream attribute identified by
|
|
-- the given name. This is used for the tagged case to build the spec
|
|
-- for the primitive operation.
|
|
|
|
-- The following routines build procedures and functions for stream
|
|
-- attributes applied to composite types. For each of these routines,
|
|
-- Loc is used to provide the location for the constructed subprogram
|
|
-- declaration. Typ is the base type to which the subprogram applies
|
|
-- (i.e. the base type of the stream attribute prefix). The returned
|
|
-- results are the declaration and name (entity) of the subprogram.
|
|
|
|
procedure Build_Array_Input_Function
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Fnam : out Entity_Id);
|
|
-- Build function for Input attribute for array type
|
|
|
|
procedure Build_Array_Output_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure for Output attribute for array type
|
|
|
|
procedure Build_Array_Read_Procedure
|
|
(Nod : Node_Id;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure for Read attribute for array type. Nod provides the
|
|
-- Sloc value for generated code.
|
|
|
|
procedure Build_Array_Write_Procedure
|
|
(Nod : Node_Id;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure for Write attribute for array type. Nod provides the
|
|
-- Sloc value for generated code.
|
|
|
|
procedure Build_Mutable_Record_Read_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure to Read a record with default discriminants.
|
|
-- Discriminants must be read explicitly (RM 13.13.2(9)) in the
|
|
-- same manner as is done for 'Input.
|
|
|
|
procedure Build_Mutable_Record_Write_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure to write a record with default discriminants.
|
|
-- Discriminants must be written explicitly (RM 13.13.2(9)) in
|
|
-- the same manner as is done for 'Output.
|
|
|
|
procedure Build_Record_Or_Elementary_Input_Function
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Fnam : out Entity_Id);
|
|
-- Build function for Input attribute for record type or for an
|
|
-- elementary type (the latter is used only in the case where a
|
|
-- user defined Read routine is defined, since in other cases,
|
|
-- Input calls the appropriate runtime library routine directly.
|
|
|
|
procedure Build_Record_Or_Elementary_Output_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure for Output attribute for record type or for an
|
|
-- elementary type (the latter is used only in the case where a
|
|
-- user defined Write routine is defined, since in other cases,
|
|
-- Output calls the appropriate runtime library routine directly.
|
|
|
|
procedure Build_Record_Read_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure for Read attribute for record type
|
|
|
|
procedure Build_Record_Write_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : out Entity_Id);
|
|
-- Build procedure for Write attribute for record type
|
|
|
|
procedure Build_Stream_Procedure
|
|
(Loc : Source_Ptr;
|
|
Typ : Entity_Id;
|
|
Decl : out Node_Id;
|
|
Pnam : Entity_Id;
|
|
Stms : List_Id;
|
|
Outp : Boolean);
|
|
-- Called to build an array or record stream procedure. The first three
|
|
-- arguments are the same as Build_Record_Or_Elementary_Output_Procedure.
|
|
-- Stms is the list of statements for the body (the declaration list is
|
|
-- always null), and Pnam is the name of the constructed procedure.
|
|
-- Used by Exp_Dist to generate stream-oriented attributes for RACWs.
|
|
|
|
end Exp_Strm;
|