mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-30 16:22:36 +02:00
31 lines
393 B
ObjectPascal
31 lines
393 B
ObjectPascal
unit bug0203a;
|
|
|
|
interface
|
|
procedure a;
|
|
procedure c;
|
|
|
|
const is_called : boolean = false;
|
|
|
|
implementation
|
|
|
|
procedure c;
|
|
begin
|
|
a;
|
|
end;
|
|
|
|
procedure b;
|
|
begin
|
|
{ call to a }
|
|
asm
|
|
.globl _assembler_a
|
|
_assembler_a:
|
|
end;
|
|
Writeln('b called');
|
|
Is_called:=true;
|
|
end;
|
|
|
|
procedure a;external name '_assembler_a';
|
|
|
|
end.
|
|
|