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

pastojs: clean up

Browse Source 
git-svn-id: trunk@41719 -
This commit is contained in:
Mattias Gaertner 2019-03-16 21:58:01 +00:00
parent d78dbd5d59
commit c42ed29980
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/pastojs/src/fppas2js.pp
View File

@ -21441,8 +21441,6 @@ var
begin begin
Result:=''; Result:='';
{$IFDEF VerbosePas2JS} {$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)); //writeln('TPasToJSConverter.CreateReferencePath START El=',GetObjName(El),' Parent=',GetObjName(El.Parent),' Context=',GetObjName(AContext),' SelfContext=',GetObjName(AContext.GetSelfContext));
//AContext.WriteStack; //AContext.WriteStack;
{$ENDIF} {$ENDIF}
@ -21524,7 +21522,6 @@ begin
else else
begin begin
// need full path // need full path
writeln('AAA2 TPasToJSConverter.CreateReferencePath ');
if El.Parent=nil then if El.Parent=nil then
RaiseNotSupported(El,AContext,20170201172141,GetObjName(El)); RaiseNotSupported(El,AContext,20170201172141,GetObjName(El));
El:=ImplToDecl(El); El:=ImplToDecl(El);
@ -21544,7 +21541,6 @@ begin
if IsClassRec then if IsClassRec then
begin begin
// parent is a class or record declaration // parent is a class or record declaration
writeln('AAA3 TPasToJSConverter.CreateReferencePath ',GetObjName(ParentEl));
if (ParentEl.ClassType=TPasClassType) if (ParentEl.ClassType=TPasClassType)
and (TPasClassType(ParentEl).HelperForType<>nil) and (TPasClassType(ParentEl).HelperForType<>nil)
and aResolver.IsHelperForMember(El) then and aResolver.IsHelperForMember(El) then