mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 07:59:28 +02:00
26 lines
340 B
ObjectPascal
26 lines
340 B
ObjectPascal
unit tbs0203a;
|
|
|
|
interface
|
|
procedure 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;
|
|
|
|
procedure a;external name '_assembler_a';
|
|
|
|
end.
|
|
|