mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-08 01:07:12 +01:00
14 lines
131 B
ObjectPascal
14 lines
131 B
ObjectPascal
procedure free1;
|
|
begin
|
|
end;
|
|
|
|
procedure free2;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
asm
|
|
call {$ifdef dummy}free1{$else}free2{$endif}
|
|
end;
|
|
end.
|