瀏覽代碼

* 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 12 年之前
父節點
當前提交
584e3638ab
共有 1 個文件被更改,包括 1 次插入1 次删除
  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;