paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: don't use non-visible for current unit assignment and enumerator operators (fixes test webtbf/tw4103)

Browse Source 
git-svn-id: trunk@14550 -
This commit is contained in:
paul 2010-01-05 21:22:54 +00:00
parent 285ea223d4
commit 4989a1016f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symsym.pas
View File

@ -731,6 +731,8 @@ implementation
for i:=0 to ProcdefList.Count-1 do for i:=0 to ProcdefList.Count-1 do
begin begin
pd:=tprocdef(ProcdefList[i]); pd:=tprocdef(ProcdefList[i]);
if (pd.owner.symtabletype=staticsymtable) and not pd.owner.iscurrentunit then
continue;
if (equal_defs(todef,pd.returndef) or if (equal_defs(todef,pd.returndef) or
{ shortstrings of different lengths are ok as result } { shortstrings of different lengths are ok as result }
(is_shortstring(todef) and is_shortstring(pd.returndef))) and (is_shortstring(todef) and is_shortstring(pd.returndef))) and
@ -803,6 +805,8 @@ implementation
for i:=0 to ProcdefList.Count-1 do for i:=0 to ProcdefList.Count-1 do
begin begin
pd:=tprocdef(ProcdefList[i]); pd:=tprocdef(ProcdefList[i]);
if (pd.owner.symtabletype=staticsymtable) and not pd.owner.iscurrentunit then
continue;
paraidx:=0; paraidx:=0;
{ ignore vs_hidden parameters } { ignore vs_hidden parameters }
while (paraidx<pd.paras.count) and while (paraidx<pd.paras.count) and