paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix crash in operator search

Browse Source 
git-svn-id: trunk@539 -
This commit is contained in:
peter 2005-06-30 08:40:42 +00:00
parent 408bba521a
commit 9d40db6bb6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symsym.pas
View File

@ -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,[]);