paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +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
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