blob: 8b5e6acc7b42b1a3f29231c756b46f6273f1adf6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
unit uprocext2;
interface
uses uprocext1;
procedure proc2;
implementation
procedure proc3;[public,alias:'ExternalProc3'];
begin
writeln('proc3');
err:=false;
end;
procedure proc2;
begin
{ call proc1 so it already needs the mangledname }
proc1;
end;
end.
|
