freepascal.compiler/tests/tbs/tb0072.pp

{ 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.