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