paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

set default result in TPCUWriter.IsExternalEl

Browse Source
This commit is contained in:
Jinyang He 2023-06-21 11:26:22 +08:00 committed by Jinyang He
parent 20884fdc1b
commit 6b4ee224bf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pastojs/src/pas2jsfiler.pp
View File

@ -3350,6 +3350,7 @@ function TPCUWriter.IsExternalEl(El: TPasElement): boolean;
var
C: TClass;
begin
Result:=false;
while El<>nil do
begin
C:=El.ClassType;
@ -3477,6 +3478,8 @@ begin
ParentRef:=WriteExternalReference(SpecItem.GenericEl,aContext)
else if IsExternalEl(Parent) then
ParentRef:=WriteExternalReference(Parent,aContext)
else if Parent=nil then
ParentRef:=nil
else
begin
// El is external, Parent is not