paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 04:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: specializations: create initSpec if params need it

Browse Source 
git-svn-id: trunk@46769 -
This commit is contained in:
Mattias Gaertner 2020-09-04 17:57:19 +00:00
parent fc4c48a11c
commit 6c8b0614b1
1 changed files with 8 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14874,6 +14874,8 @@ begin
end;
// add class members: types and class vars
if SpecializeNeedsDelay then
DelayFuncContext:=CreateDelayedInitFunction(El,Src,FuncContext,DelaySrc);
if El.ObjKind in ([okClass]+okAllHelpers) then
begin
For i:=0 to El.Members.Count-1 do
@ -14911,11 +14913,7 @@ begin
if NewEl<>nil then
begin
if SpecializeNeedsDelay and not (P is TPasProcedure) then
begin
if DelayFuncContext=nil then
DelayFuncContext:=CreateDelayedInitFunction(El,Src,FuncContext,DelaySrc);
AddToSourceElements(DelaySrc,NewEl);
end
AddToSourceElements(DelaySrc,NewEl)
else
AddToSourceElements(Src,NewEl);
end;
@ -14983,11 +14981,7 @@ begin
AddClassMessageIds(El,Src,FuncContext,pbivnMessageStr);
// add RTTI init function
if SpecializeNeedsDelay then
begin
if DelayFuncContext=nil then
DelayFuncContext:=CreateDelayedInitFunction(El,Src,FuncContext,DelaySrc);
AddClassRTTI(El,DelaySrc,DelayFuncContext);
end
AddClassRTTI(El,DelaySrc,DelayFuncContext)
else
AddClassRTTI(El,Src,FuncContext);
end;
@ -25082,6 +25076,8 @@ begin
Vars:=TFPList.Create;
Methods:=TFPList.Create;
IsComplex:=false;
if SpecializeNeedsDelay then
DelayFuncContext:=CreateDelayedInitFunction(El,Src,FuncContext,DelaySrc);
for i:=0 to El.Members.Count-1 do
begin
P:=TPasElement(El.Members[i]);
@ -25156,11 +25152,7 @@ begin
if NewEl<>nil then
begin
if SpecializeNeedsDelay and not (P is TPasProcedure) then
begin
if DelayFuncContext=nil then
DelayFuncContext:=CreateDelayedInitFunction(El,Src,FuncContext,DelaySrc);
AddToSourceElements(DelaySrc,NewEl);
end
AddToSourceElements(DelaySrc,NewEl)
else
AddToSourceElements(Src,NewEl);
end;
@ -25187,11 +25179,7 @@ begin
if (aResolver<>nil) and HasTypeInfo(El,FuncContext) then
begin
if SpecializeNeedsDelay then
begin
if DelayFuncContext=nil then
DelayFuncContext:=CreateDelayedInitFunction(El,Src,FuncContext,DelaySrc);
CreateRecordRTTI(El,DelaySrc,DelayFuncContext);
end
CreateRecordRTTI(El,DelaySrc,DelayFuncContext)
else
CreateRecordRTTI(El,Src,FuncContext);
end;