Browse Source

* get the count of params from the correct list

this fixes varargs a bit, particularly fixes an unhandled TList bounds exception while compiling packages/fcl-base/src/eventlog.pp

git-svn-id: trunk@25636 -
Károly Balogh 11 years ago
parent
commit
584e3638ab
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/m68k/cpupara.pas

+ 1 - 1
compiler/m68k/cpupara.pas

@@ -286,7 +286,7 @@ unit cpupara;
 
         parasize:=0;
 
-        for i:=0 to p.paras.count-1 do
+        for i:=0 to paras.count-1 do
           begin
             hp:=tparavarsym(paras[i]);
 	    paradef:=hp.vardef;