paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 01:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simple test for alignment of parameters on stack

Browse Source
This commit is contained in:
peter 2004-09-12 12:12:33 +00:00
parent ac68641535
commit bb4fa3dcf0
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/test/tpara2.pp Normal file
View File

@ -0,0 +1,24 @@
{ 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.