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

* withsymtables need to have the original tobject owner instead of

Browse Source 
the parent objectdef. Needed to check for visibility
This commit is contained in:
peter 2004-02-26 16:14:48 +00:00
parent f8679b77ef
commit e9b91887d5
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pstatmnt.pas
View File

@ -471,7 +471,9 @@ implementation
symtab:=withsymtable;
while assigned(obj) do
begin
symtab.next:=twithsymtable.create(obj,obj.symtable.symsearch,refp.getcopy);
{ keep the original tobjectdef as owner, because that is used for
visibility of the symtable }
symtab.next:=twithsymtable.create(tobjectdef(p.resulttype.def),obj.symtable.symsearch,refp.getcopy);
symtab:=symtab.next;
obj:=obj.childof;
inc(levelcount);
@ -1098,7 +1100,11 @@ implementation
end.
{
$Log$
Revision 1.130 2004-02-20 21:55:59 peter
Revision 1.131 2004-02-26 16:14:48 peter
* withsymtables need to have the original tobject owner instead of
the parent objectdef. Needed to check for visibility
Revision 1.130 2004/02/20 21:55:59 peter
* procvar cleanup
Revision 1.129 2004/02/03 22:32:54 peter