fpcsrc/tests/webtbs/tw7808.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %cpu=i386 }
{ %target=go32v2,linux,freebsd,win32}
{ %opt=-Sew -vw }

{$mode delphi}

procedure test(l: longint); stdcall;
begin
  if l<>longint($deadbeef) then
    halt(1);
end;

begin
  asm
    push word $dead
    push word $beef
    call test
  end;
end.