mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 23:23:44 +02:00
30 lines
371 B
ObjectPascal
30 lines
371 B
ObjectPascal
{ Old file: tbs0203a.pp }
|
|
{ }
|
|
|
|
unit ub0170;
|
|
|
|
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.
|
|
|