mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 05:18:14 +02:00
fa42b022d2
one on iPhoneOS, the OS refuses to execute the new binary; you have to
remove the old one first -- but it's easier to make sure that there are
no two tests with the same name)
git-svn-id: trunk@14331 -
25 lines
369 B
ObjectPascal
25 lines
369 B
ObjectPascal
{ Alignment test for stack passed parameters }
|
|
procedure p1(b1,b2,b3,b4,b5,b6,b7,b8:byte);
|
|
begin
|
|
if b1<>1 then
|
|
halt(1);
|
|
if b2<>2 then
|
|
halt(2);
|
|
if b3<>3 then
|
|
halt(1);
|
|
if b4<>4 then
|
|
halt(1);
|
|
if b5<>5 then
|
|
halt(1);
|
|
if b6<>6 then
|
|
halt(1);
|
|
if b7<>7 then
|
|
halt(1);
|
|
if b8<>8 then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
p1(1,2,3,4,5,6,7,8);
|
|
end.
|