paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 10:37:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: when using members, use parent type

Browse Source
This commit is contained in:
mattias 2019-03-04 13:23:08 +00:00
parent 33617501df
commit caf8017e04
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -1020,7 +1020,10 @@ begin
repeat
El:=El.Parent;
if not (El is TPasType) then break;
MarkElementAsUsed(El);
UseType(TPasType(El),paumElement);
//MarkElementAsUsed(El);
//if El is TPasMembersType then
// UseClassConstructor(TPasMembersType(El));
until false;
end;
@ -1955,6 +1958,9 @@ begin
else
begin
if ElementVisited(El,Mode) then exit;
// this class has been used (e.g. paumElement), which marked ancestors
// and published members
// -> now mark all members paumAllPasUsable
FirstTime:=false;
end;
end;
@ -1981,8 +1987,6 @@ begin
end;
ClassScope:=aClass.CustomData as TPasClassScope;
if ClassScope=nil then
exit; // ClassScope can be nil if msIgnoreInterfaces
if FirstTime then
begin