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 12 năm trước cách đây
mục cha
commit
584e3638ab
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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;