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

pastojs: less string warnings

Browse Source
This commit is contained in:
mattias 2022-02-01 14:47:54 +01:00
parent 85928a738d
commit a0a23a8968
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14264,7 +14264,7 @@ begin
AssignSt.LHS:=SetExpr;
SetterArgName:=TempRefObjSetterArgName;
FindAvailableLocalName(SetterArgName,SetExpr);
Fun.AFunction.TypedParams.AddParam(SetterArgName);
Fun.AFunction.TypedParams.AddParam(TJSString(SetterArgName));
AssignSt.Expr:=CreatePrimitiveDotExpr(SetterArgName,CodeExpr);
end;
@ -15436,7 +15436,7 @@ Var
if ResStrVarEl=nil then
begin
ResStrVarEl:=TJSVarDeclaration(CreateElement(TJSVarDeclaration,El));
ResStrVarEl.Name:=GetBIName(pbivnModule)+'.'+GetBIName(pbivnResourceStrings);
ResStrVarEl.Name:=TJSString(GetBIName(pbivnModule)+'.'+GetBIName(pbivnResourceStrings));
ResStrVarElAdd:=true;
ObjLit:=TJSObjectLiteral(CreateElement(TJSObjectLiteral,El));
ResStrVarEl.Init:=ObjLit;
@ -16797,7 +16797,7 @@ begin
// function(a){...
Func:=CreateFunctionSt(El,true,true);
Func.AFunction.TypedParams.AddParam(SrcArrName);
Func.AFunction.TypedParams.AddParam(TJSString(SrcArrName));
BodySrc:=Func.AFunction.Body.A as TJSSourceElements;
FuncContext:=TFunctionContext.Create(El,BodySrc,AContext);
FuncContext.IsGlobal:=true;
@ -16828,7 +16828,7 @@ begin
VarSt:=TJSVariableStatement(CreateElement(TJSVariableStatement,El));
VarDecl:=TJSVarDeclaration(CreateElement(TJSVarDeclaration,El));
VarSt.VarDecl:=VarDecl;
VarDecl.Name:=NewArrName;
VarDecl.Name:=TJSString(NewArrName);
VarDecl.Init:=TJSArrayLiteral(CreateElement(TJSArrayLiteral,El));
AddLoopSt(VarSt);
if Index>0 then
@ -17246,7 +17246,7 @@ begin
for n := 0 to El.ProcType.Args.Count - 1 do
begin
Arg:=TPasArgument(El.ProcType.Args[n]);
FD.TypedParams.AddParam(TransformElToJSName(Arg,AContext));
FD.TypedParams.AddParam(TJSString(TransformElToJSName(Arg,AContext)));
end;
BodyPas:=ImplProc.Body;
@ -17737,7 +17737,7 @@ begin
StList.A:=VarSt;
VarDecl:=TJSVarDeclaration(CreateElement(TJSVarDeclaration,El.CaseExpr));
VarSt.VarDecl:=VarDecl;
VarDecl.Name:=TmpVar.Name;
VarDecl.Name:=TJSString(TmpVar.Name);
VarDecl.Init:=ConvertExpression(El.CaseExpr,AContext);
LastIfSt:=nil;
@ -18058,7 +18058,7 @@ begin
Decl:=Ref.Declaration;
end;
NamePath:=CreateReferencePath(Decl,AContext,rpkPathAndName,true);
ExpNameJS.Name:=NamePath;
ExpNameJS.Name:=TJSString(NamePath);
// alias
if Symb.ExportName<>nil then
@ -18069,10 +18069,10 @@ begin
case EvalValue.Kind of
{$ifdef FPC_HAS_CPSTRING}
revkString:
ExpNameJS.Alias:=TResEvalString(EvalValue).S;
ExpNameJS.Alias:=TJSString(TResEvalString(EvalValue).S);
{$endif}
revkUnicodeString:
ExpNameJS.Alias:=String(TResEvalUTF16(EvalValue).S);
ExpNameJS.Alias:=TResEvalUTF16(EvalValue).S;
else
RaiseNotSupported(Symb.ExportName,AContext,20211020144404);
end;
@ -18082,7 +18082,7 @@ begin
begin
if Decl.Name='' then
RaiseNotSupported(Symb,AContext,20211020144730);
ExpNameJS.Alias:=Decl.Name;
ExpNameJS.Alias:=TJSString(Decl.Name);
end;
end;
end;
@ -19272,7 +19272,7 @@ begin
FuncVD:=TJSVarDeclaration(CreateElement(TJSVarDeclaration,El));
AddToSourceElements(Src,FuncVD);
FuncVD.Name:='this.'+MemberFuncName[Kind];
FuncVD.Name:=TJSString('this.'+MemberFuncName[Kind]);
Func:=CreateFunctionSt(El);
FuncVD.Init:=Func;
Func.AFunction.Body.A:=New_Src;
@ -21647,7 +21647,7 @@ var
FuncSt:=CreateFunctionSt(PosEl);
ObjLit.Expr:=FuncSt;
if SetterArgName<>'' then
FuncSt.AFunction.TypedParams.AddParam(SetterArgName);
FuncSt.AFunction.TypedParams.AddParam(TJSString(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.TypedParams.AddParam(SetterArgName);
FuncSt.AFunction.TypedParams.AddParam(TJSString(SetterArgName));
AssignSt:=TJSSimpleAssignStatement(CreateElement(TJSSimpleAssignStatement,El));
FuncSt.AFunction.Body.A:=AssignSt;
AssignSt.LHS:=CreateMemberExpression(['this',ValueName]);
@ -22333,7 +22333,7 @@ begin
RaiseNotSupported(El,AContext,20170208141926,'absolute');
V:=TJSVarDeclaration(CreateElement(TJSVarDeclaration,El));
V.Name:=TransformElToJSName(El,AContext);
V.Name:=TJSString(TransformElToJSName(El,AContext));
V.Init:=CreateVarInit(El,AContext);
Result:=V;
end;
@ -24529,7 +24529,7 @@ function TPasToJSConverter.CreateVarDecl(const aName: String; Init: TJSElement;
El: TPasElement): TJSVarDeclaration;
begin
Result:=TJSVarDeclaration(CreateElement(TJSVarDeclaration,El));
Result.Name:=aName;
Result.Name:=TJSString(aName);
Result.Init:=Init;
end;
@ -26554,7 +26554,7 @@ begin
FuncSt:=CreateFunctionSt(El);
ObjLit.Expr:=FuncSt;
if SetterArgName<>'' then
FuncSt.AFunction.TypedParams.AddParam(SetterArgName);
FuncSt.AFunction.TypedParams.AddParam(TJSString(SetterArgName));
if RgCheck<>nil then
begin
StList:=TJSStatementList(CreateElement(TJSStatementList,El));