1package body Opt67_Pkg is
2
3  function Make_TSS_Name (Typ : Entity_Id; Nam : TNT) return Name_Id is
4  begin
5    return 0;
6  end;
7
8  function Stream_Operation_OK (N : Entity_Id; Name : TNT) return Boolean is
9  begin
10    return True;
11  end;
12
13  procedure Append_To (N1 : Natural; N2 : Node_Id) is
14  begin
15    null;
16  end;
17
18  function Predef (Loc : Source_Ptr; Name : Name_Id; E : Entity_Id)
19    return Node_Id is
20  begin
21    return 0;
22  end;
23
24  function Init return Natural is
25  begin
26    return 0;
27  end;
28
29end Opt67_Pkg;
30