gcc/testsuite/gnat.dg/opt67_pkg.ads

   1 package Opt67_Pkg is
   2
   3   type Source_Ptr is new Natural;
   4   type Entity_Id is new Natural;
   5   type Node_Id is new Natural;
   6   type Name_Id is new Natural;
   7
   8   type TSS_Name_Type is new String (1 .. 2);
   9   subtype TNT is TSS_Name_Type;
  10
  11   TSS_Stream_Input       : constant TNT := "SI";
  12   TSS_Stream_Output      : constant TNT := "SO";
  13   TSS_Stream_Read        : constant TNT := "SR";
  14   TSS_Stream_Write       : constant TNT := "SW";
  15   TSS_To_Any             : constant TNT := "TA";
  16
  17   function Make_TSS_Name (Typ : Entity_Id; Nam : TSS_Name_Type) return Name_Id;
  18
  19   function Stream_Operation_OK (N : Entity_Id; Name : TNT) return Boolean;
  20
  21   procedure Append_To (N1 : Natural; N2 : Node_Id);
  22
  23   function Predef (Loc : Source_Ptr; Name : Name_Id; E : Entity_Id)
  24     return Node_Id;
  25
  26   function Init return Natural;
  27
  28 end Opt67_Pkg;