mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-09 01:11:47 +01:00
25 lines
426 B
ObjectPascal
25 lines
426 B
ObjectPascal
{ Old file: tbs0170.pp }
|
|
{ Asm, {$ifdef} is seen as a separator OK 0.99.9 (PFV) }
|
|
|
|
procedure free1;
|
|
begin
|
|
end;
|
|
|
|
procedure free2;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
asm
|
|
{$ifdef CPUI386}
|
|
call {$ifdef dummy}free1{$else}free2{$endif}
|
|
{$endif CPUI386}
|
|
{$ifdef CPU68K}
|
|
jsr {$ifdef dummy}free1{$else}free2{$endif}
|
|
{$endif CPU68K}
|
|
{$ifdef ARM}
|
|
bl {$ifdef dummy}free1{$else}free2{$endif}
|
|
{$endif ARM}
|
|
end;
|
|
end.
|