Pārlūkot izejas kodu

set default result in TPCUWriter.IsExternalEl

Jinyang He 2 gadi atpakaļ
vecāks
revīzija
213efb4ce8
1 mainītis faili ar 3 papildinājumiem un 0 dzēšanām
  1. 3 0
      packages/pastojs/src/pas2jsfiler.pp

+ 3 - 0
packages/pastojs/src/pas2jsfiler.pp

@@ -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