mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 19:29:24 +02:00
7cdb39b3f9
G . -- Aufzeichnung der Informationen für Zusammenführung von r43006 in ».«: G . -- Aufzeichnung der Informationen für Zusammenführung von r43007 in ».«: G . -- Aufzeichnung der Informationen für Zusammenführung von r43008 in ».«: G . -- Zusammenführen von r43000 in ».«: U compiler/pp.pas -- Aufzeichnung der Informationen für Zusammenführung von r43000 in ».«: G . -- Zusammenführen von r43011 in ».«: U rtl/inc/system.inc -- Aufzeichnung der Informationen für Zusammenführung von r43011 in ».«: G . -- Zusammenführen von r43012 in ».«: U rtl/i386/i386.inc -- Aufzeichnung der Informationen für Zusammenführung von r43012 in ».«: G . -- Zusammenführen von r43013 in ».«: U rtl/linux/i386/si_c21.inc -- Aufzeichnung der Informationen für Zusammenführung von r43013 in ».«: G . -- Zusammenführen von r43014 in ».«: U compiler/systems/i_linux.pas -- Aufzeichnung der Informationen für Zusammenführung von r43014 in ».«: G . -- Zusammenführen von r43176 in ».«: U compiler/i386/cpupi.pas U compiler/i386/n386cal.pas U compiler/ncgcal.pas U compiler/ncgutil.pas G compiler/systems/i_linux.pas U compiler/systems.inc C compiler/systems.pas G tests/webtbs/tw7808.pp -- Aufzeichnung der Informationen für Zusammenführung von r43176 in ».«: G . Konfliktübersicht: Textkonflikte: 1 Konfliktübersicht: Textkonflikte: 1 git-svn-id: branches/fixes_3_2@43434 -
41 lines
646 B
ObjectPascal
41 lines
646 B
ObjectPascal
{ %cpu=i386 }
|
|
{ %target=win32,freebsd,haiku }
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
{$w+}
|
|
|
|
{ should not generate a stack frame in spite of w+ above }
|
|
function testje(l1,l2,l3: longint): longint;
|
|
asm
|
|
mov eax, 30000
|
|
ret
|
|
end;
|
|
|
|
function test: longint;
|
|
var
|
|
l1,l2,l3,l4,l5: cardinal;
|
|
begin
|
|
test := 12345;
|
|
l1 := $f00beef;
|
|
l2 := $cafebabe;
|
|
l3 := $c001d00d;
|
|
l4 := $12345678;
|
|
l5 := $90abcdef;
|
|
if testje(1,2,3) <> 30000 then
|
|
halt(1);
|
|
if (l1 <> $f00beef) or
|
|
(l2 <> $cafebabe) or
|
|
(l3 <> $c001d00d) or
|
|
(l4 <> $12345678) or
|
|
(l5 <> $90abcdef) then
|
|
halt(2);
|
|
end;
|
|
|
|
begin
|
|
if test <> 12345 then
|
|
halt(3);
|
|
end.
|