blob: 7fb4c68f163821aa8dd6694bfd80d68dfc5d91f0 (
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
|
{ Old file: tbs0203a.pp }
{ }
unit ub0170;
interface
procedure a;external name '_assembler_a';
procedure c;
const is_called : boolean = false;
implementation
procedure c;
begin
a;
end;
procedure b;[public, alias : '_assembler_a'];
begin
Writeln('b called');
Is_called:=true;
end;
end.
|
