paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use 9 instead of 8 parameters, so one has to be passed on the stack

Browse Source 
for ppc

git-svn-id: trunk@2087 -
This commit is contained in:
Jonas Maebe 2005-12-31 10:57:12 +00:00
parent c423e23bb4
commit 6892958fdd
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/test/cg/tpara1.pp
View File

@ -1,14 +1,14 @@
function f(l1,l2,l3,l4,l5,l6,l7,l8:longint):longint;
function f(l1,l2,l3,l4,l5,l6,l7,l8,l9:longint):longint;
begin
f:=l1+l2+l3+l4+l5+l6+l7+l8;
f:=l1+l2+l3+l4+l5+l6+l7+l8+l9;
end;
var
l : longint;
begin
l:=f(f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8),f(1,2,3,4,5,6,7,8));
writeln('Got ',l,' expected ',8*(1+2+3+4+5+6+7+8));
if l<>8*(1+2+3+4+5+6+7+8) then
l:=f(f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9),f(1,2,3,4,5,6,7,8,9));
writeln('Got ',l,' expected ',9*(1+2+3+4+5+6+7+8+9));
if l<>9*(1+2+3+4+5+6+7+8+9) then
begin
writeln('Error!');
halt(1);