mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 16:39:57 +02:00
37 lines
570 B
ObjectPascal
37 lines
570 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}
|
|
|
|
{procedure nothing(x,y: longint);
|
|
begin
|
|
asm
|
|
mov eax,x
|
|
mov ebx,y
|
|
end;
|
|
end; }
|
|
|
|
Begin
|
|
end.
|