فهرست منبع

* 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;
         parasize:=0;
 
 
-        for i:=0 to p.paras.count-1 do
+        for i:=0 to paras.count-1 do
           begin
           begin
             hp:=tparavarsym(paras[i]);
             hp:=tparavarsym(paras[i]);
 	    paradef:=hp.vardef;
 	    paradef:=hp.vardef;