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

* check if withsymtable.defowner is in the current unit

Browse Source
This commit is contained in:
peter 2004-02-26 16:16:19 +00:00
parent 25213e4efb
commit 1d2464f091
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symtable.pas
View File

@ -1834,9 +1834,13 @@ implementation
if assigned(srsym) then if assigned(srsym) then
begin begin
topclass:=nil; topclass:=nil;
{ use the class from withsymtable only when it is
defined in this unit }
if (srsymtable.symtabletype=withsymtable) and if (srsymtable.symtabletype=withsymtable) and
assigned(srsymtable.defowner) and assigned(srsymtable.defowner) and
(srsymtable.defowner.deftype=objectdef) then (srsymtable.defowner.deftype=objectdef) and
(srsymtable.defowner.owner.symtabletype in [globalsymtable,staticsymtable]) and
(srsymtable.defowner.owner.unitid=0) then
topclass:=tobjectdef(srsymtable.defowner) topclass:=tobjectdef(srsymtable.defowner)
else else
begin begin
@ -2337,8 +2341,6 @@ implementation
****************************************************************************} ****************************************************************************}
procedure InitSymtable; procedure InitSymtable;
var
token : ttoken;
begin begin
{ Reset symbolstack } { Reset symbolstack }
registerdef:=false; registerdef:=false;
@ -2373,7 +2375,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.140 2004-02-24 16:12:39 peter Revision 1.141 2004-02-26 16:16:19 peter
* check if withsymtable.defowner is in the current unit
Revision 1.140 2004/02/24 16:12:39 peter
* operator overload chooses rewrite * operator overload chooses rewrite
* overload choosing is now generic and moved to htypechk * overload choosing is now generic and moved to htypechk