Merged revisions 2087 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

r2087 (jonas)
  * use 9 instead of 8 parameters, so one has to be passed on the stack
    for ppc

git-svn-id: branches/fixes_2_0@2088 -

tests/test/cg/tpara1.pp

@@ -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);