mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 16:23:44 +02:00
60 lines
845 B
ObjectPascal
60 lines
845 B
ObjectPascal
{ Old file: tbs0079.pp }
|
|
{ Shows problems with stackframe with assembler keyword OK 0.99.1 (CEC) }
|
|
{ This test does not really
|
|
give a good result
|
|
because you need to look into
|
|
the assembler to see if there is an error or not :( PM }
|
|
|
|
{$ifdef CPUI386}
|
|
{$asmmode intel}
|
|
{$endif CPUI386}
|
|
|
|
procedure nothing(x,y: longint);assembler;
|
|
{$ifdef CPUI386}
|
|
asm
|
|
mov eax,x
|
|
mov ebx,y
|
|
end;
|
|
{$endif CPUI386}
|
|
{$ifdef CPU68K}
|
|
asm
|
|
move.l x,d0
|
|
move.l y,d1
|
|
end;
|
|
{$endif CPU68K}
|
|
{$ifdef CPUPOWERPC}
|
|
asm
|
|
mr r5,x
|
|
mr r6,y
|
|
end;
|
|
{$endif CPUPOWERPC}
|
|
{$ifdef CPUARM}
|
|
asm
|
|
mov r2,x
|
|
mov r3,y
|
|
end;
|
|
{$endif CPUARM}
|
|
{$ifdef CPUX86_64}
|
|
asm
|
|
movl x,%eax
|
|
movl y,%ecx
|
|
end;
|
|
{$endif CPUX86_64}
|
|
{$ifdef CPUSPARC}
|
|
asm
|
|
mov x,%i0
|
|
mov y,%i1
|
|
end;
|
|
{$endif CPUSPARC}
|
|
|
|
{procedure nothing(x,y: longint);
|
|
begin
|
|
asm
|
|
mov eax,x
|
|
mov ebx,y
|
|
end;
|
|
end; }
|
|
|
|
Begin
|
|
end.
|