mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
36 lines
428 B
ObjectPascal
36 lines
428 B
ObjectPascal
{%target=win32,win64,wince}
|
|
{%cpu=x86_64,i386,arm}
|
|
{%result=229}
|
|
|
|
{$mode objfpc}
|
|
|
|
procedure DoTest1; safecall;
|
|
var
|
|
i: integer;
|
|
begin
|
|
i:=-1;
|
|
i:=i - 1;
|
|
end;
|
|
|
|
function DoTest2: longint; safecall;
|
|
begin
|
|
DoTest2:=$12345678;
|
|
end;
|
|
|
|
procedure DoTest3; safecall;
|
|
begin
|
|
PChar(nil)^:='A';
|
|
end;
|
|
|
|
begin
|
|
try
|
|
DoTest1;
|
|
except
|
|
ErrorAddr:=nil;
|
|
Halt(1);
|
|
end;
|
|
if DoTest2 <> $12345678 then
|
|
Halt(2);
|
|
DoTest3;
|
|
end.
|