diff --git a/packages/pastojs/src/fppas2js.pp b/packages/pastojs/src/fppas2js.pp index e342f3886c..b2f2f136f2 100644 --- a/packages/pastojs/src/fppas2js.pp +++ b/packages/pastojs/src/fppas2js.pp @@ -21441,8 +21441,6 @@ var begin Result:=''; {$IFDEF VerbosePas2JS} - if SameText(El.Name,'Fly') then - writeln('AAA1 TPasToJSConverter.CreateReferencePath START El=',GetObjName(El),' Parent=',GetObjName(El.Parent),' Context=',GetObjName(AContext),' SelfContext=',GetObjName(AContext.GetSelfContext)); //writeln('TPasToJSConverter.CreateReferencePath START El=',GetObjName(El),' Parent=',GetObjName(El.Parent),' Context=',GetObjName(AContext),' SelfContext=',GetObjName(AContext.GetSelfContext)); //AContext.WriteStack; {$ENDIF} @@ -21524,7 +21522,6 @@ begin else begin // need full path - writeln('AAA2 TPasToJSConverter.CreateReferencePath '); if El.Parent=nil then RaiseNotSupported(El,AContext,20170201172141,GetObjName(El)); El:=ImplToDecl(El); @@ -21544,7 +21541,6 @@ begin if IsClassRec then begin // parent is a class or record declaration - writeln('AAA3 TPasToJSConverter.CreateReferencePath ',GetObjName(ParentEl)); if (ParentEl.ClassType=TPasClassType) and (TPasClassType(ParentEl).HelperForType<>nil) and aResolver.IsHelperForMember(El) then