Parcourir la source

* fix crash in operator search

git-svn-id: trunk@539 -
peter il y a 20 ans
Parent
commit
9d40db6bb6
1 fichiers modifiés avec 4 ajouts et 2 suppressions
  1. 4 2
      compiler/symsym.pas

+ 4 - 2
compiler/symsym.pas

@@ -1019,10 +1019,12 @@ implementation
              begin
                i:=0;
                { ignore vs_hidden parameters }
-               while assigned(pd^.def.paras[i]) and
+               while (i<pd^.def.paras.count) and
+                     assigned(pd^.def.paras[i]) and
                      (vo_is_hidden_para in tparavarsym(pd^.def.paras[i]).varoptions) do
                  inc(i);
-               if assigned(pd^.def.paras[i]) then
+               if (i<pd^.def.paras.count) and
+                  assigned(pd^.def.paras[i]) then
                 begin
                   eq:=compare_defs_ext(fromdef,tparavarsym(pd^.def.paras[i]).vartype.def,nothingn,convtyp,hpd,[]);