Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/opt67_pkg.ads @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
package Opt67_Pkg is type Source_Ptr is new Natural; type Entity_Id is new Natural; type Node_Id is new Natural; type Name_Id is new Natural; type TSS_Name_Type is new String (1 .. 2); subtype TNT is TSS_Name_Type; TSS_Stream_Input : constant TNT := "SI"; TSS_Stream_Output : constant TNT := "SO"; TSS_Stream_Read : constant TNT := "SR"; TSS_Stream_Write : constant TNT := "SW"; TSS_To_Any : constant TNT := "TA"; function Make_TSS_Name (Typ : Entity_Id; Nam : TSS_Name_Type) return Name_Id; function Stream_Operation_OK (N : Entity_Id; Name : TNT) return Boolean; procedure Append_To (N1 : Natural; N2 : Node_Id); function Predef (Loc : Source_Ptr; Name : Name_Id; E : Entity_Id) return Node_Id; function Init return Natural; end Opt67_Pkg;