paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 19:49:23 +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 var
C: TClass; C: TClass;
begin begin
Result:=false;
while El<>nil do while El<>nil do
begin begin
C:=El.ClassType; C:=El.ClassType;
@ -3477,6 +3478,8 @@ begin
ParentRef:=WriteExternalReference(SpecItem.GenericEl,aContext) ParentRef:=WriteExternalReference(SpecItem.GenericEl,aContext)
else if IsExternalEl(Parent) then else if IsExternalEl(Parent) then
ParentRef:=WriteExternalReference(Parent,aContext) ParentRef:=WriteExternalReference(Parent,aContext)
else if Parent=nil then
ParentRef:=nil
else else
begin begin
// El is external, Parent is not // El is external, Parent is not