Browse Source

pastojs: fixed helper constructor

git-svn-id: trunk@41300 -
Mattias Gaertner 6 years ago
parent
commit
6bbc1db8bb
2 changed files with 4 additions and 2 deletions
  1. 3 2
      packages/pastojs/src/fppas2js.pp
  2. 1 0
      utils/pas2js/dist/rtl.js

+ 3 - 2
packages/pastojs/src/fppas2js.pp

@@ -12742,9 +12742,10 @@ begin
           P:=TPasElement(El.Members[i]);
           //writeln('TPasToJSConverter.ConvertClassType methods El[',i,']=',GetObjName(P));
           if not IsMemberNeeded(P) then continue;
+          C:=P.ClassType;
           if P is TPasProcedure then
             begin
-            if IsTObject and (P.ClassType=TPasDestructor) then
+            if IsTObject and (C=TPasDestructor) then
               begin
               DestructorName:=TransformVariableName(P,AContext);
               if DestructorName<>'Destroy' then
@@ -12756,7 +12757,7 @@ begin
                 AddToSourceElements(Src,AssignSt);
                 end;
               end
-            else if C.ClassType=TPasConstructor then
+            else if C=TPasConstructor then
               HasConstructor:=true;
             NewEl:=ConvertProcedure(TPasProcedure(P),FuncContext);
             end

+ 1 - 0
utils/pas2js/dist/rtl.js

@@ -384,6 +384,7 @@ var rtl = {
   },
 
   recNewT: function(parent,name,initfn,full){
+    // create new record type
     var t = {};
     if (parent) parent[name] = t;
     function hide(prop){