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

pastojs: switched to TypedParams

Browse Source
This commit is contained in:
mattias 2022-02-01 14:25:39 +01:00
parent ced452e2ef
commit edeb5909da
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14264,7 +14264,7 @@ begin
AssignSt.LHS:=SetExpr;
SetterArgName:=TempRefObjSetterArgName;
FindAvailableLocalName(SetterArgName,SetExpr);
Fun.AFunction.Params.Add(SetterArgName);
Fun.AFunction.TypedParams.AddParam(SetterArgName);
AssignSt.Expr:=CreatePrimitiveDotExpr(SetterArgName,CodeExpr);
end;
@ -16797,7 +16797,7 @@ begin
// function(a){...
Func:=CreateFunctionSt(El,true,true);
Func.AFunction.Params.Add(SrcArrName);
Func.AFunction.TypedParams.AddParam(SrcArrName);
BodySrc:=Func.AFunction.Body.A as TJSSourceElements;
FuncContext:=TFunctionContext.Create(El,BodySrc,AContext);
FuncContext.IsGlobal:=true;
@ -17246,7 +17246,7 @@ begin
for n := 0 to El.ProcType.Args.Count - 1 do
begin
Arg:=TPasArgument(El.ProcType.Args[n]);
FD.Params.Add(TransformElToJSName(Arg,AContext));
FD.TypedParams.AddParam(TransformElToJSName(Arg,AContext));
end;
BodyPas:=ImplProc.Body;
@ -18445,7 +18445,7 @@ begin
FDS:=CreateFunctionSt(El);
AssignSt.Expr:=FDS;
FD:=FDS.AFunction;
FD.Params.Add(EqualParamName);
FD.TypedParams.AddParam(EqualParamName);
// add "return "
RetSt:=TJSReturnStatement(CreateElement(TJSReturnStatement,El));
FD.Body.A:=RetSt;
@ -18547,7 +18547,7 @@ begin
FDS:=CreateFunctionSt(El);
AssignSt.Expr:=FDS;
FD:=FDS.AFunction;
FD.Params.Add(SrcParamName);
FD.TypedParams.AddParam(SrcParamName);
Src:=TJSSourceElements(CreateElement(TJSSourceElements,El));
FD.Body.A:=Src;
@ -21647,7 +21647,7 @@ var
FuncSt:=CreateFunctionSt(PosEl);
ObjLit.Expr:=FuncSt;
if SetterArgName<>'' then
FuncSt.AFunction.Params.Add(SetterArgName);
FuncSt.AFunction.TypedParams.AddParam(SetterArgName);
if RgCheck<>nil then
begin
List:=TJSStatementList(CreateElement(TJSStatementList,PosEl));
@ -22239,7 +22239,7 @@ begin
FuncSt:=CreateFunctionSt(El);
ObjLit.Expr:=FuncSt;
SetterArgName:=TempRefObjSetterArgName;
FuncSt.AFunction.Params.Add(SetterArgName);
FuncSt.AFunction.TypedParams.AddParam(SetterArgName);
AssignSt:=TJSSimpleAssignStatement(CreateElement(TJSSimpleAssignStatement,El));
FuncSt.AFunction.Body.A:=AssignSt;
AssignSt.LHS:=CreateMemberExpression(['this',ValueName]);
@ -22254,8 +22254,8 @@ begin
AssignSt.LHS:=CreatePrimitiveDotExpr('this.'+GetBIName(pbifnHelperNew),El);
Func:=CreateFunctionSt(El);
AssignSt.Expr:=Func;
Func.AFunction.Params.Add(FunName);
Func.AFunction.Params.Add(ArgsName);
Func.AFunction.TypedParams.AddParam(FunName);
Func.AFunction.TypedParams.AddParam(ArgsName);
Func.AFunction.Body.A:=New_Src;
New_Src:=nil;
finally
@ -26554,7 +26554,7 @@ begin
FuncSt:=CreateFunctionSt(El);
ObjLit.Expr:=FuncSt;
if SetterArgName<>'' then
FuncSt.AFunction.Params.Add(SetterArgName);
FuncSt.AFunction.TypedParams.AddParam(SetterArgName);
if RgCheck<>nil then
begin
StList:=TJSStatementList(CreateElement(TJSStatementList,El));