Преглед на файлове

* 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;