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

pastojs: fixed helper constructor

Browse Source 
git-svn-id: trunk@41300 -
This commit is contained in:
Mattias Gaertner 2019-02-11 15:26:27 +00:00
parent ddaac687d4
commit 6bbc1db8bb
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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
utils/pas2js/dist/rtl.js vendored
View File

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