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

pastojs: fixed setCharAt, optimize const-1 in charAt and setCharAt

Browse Source 
git-svn-id: trunk@37291 -
This commit is contained in:
Mattias Gaertner 2017-09-21 11:28:38 +00:00
parent 2ffa1ed9bf
commit 039a7adf1d
2 changed files with 44 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4981,16 +4981,44 @@ var
exit(TResolvedReference(Value.CustomData));
end;
function ConvertIndexMinus1(Param: TPasExpr): TJSElement;
var
NeedMinus1: Boolean;
JSVal: TJSValue;
MinusJS: TJSAdditiveExpressionMinus;
begin
Result:=ConvertElement(Param,ArgContext);
NeedMinus1:=true;
if (Result is TJSLiteral) then
begin
JSVal:=TJSLiteral(Result).Value;
if (JSVal.ValueType=jstNumber) then
begin
// simply subtract 1 from constant
JSVal.AsNumber:=JSVal.AsNumber-1;
NeedMinus1:=false;
end;
end;
if NeedMinus1 then
begin
// index-1
MinusJS:=TJSAdditiveExpressionMinus(CreateElement(TJSAdditiveExpressionMinus,Param));
MinusJS.A:=Result;
MinusJS.B:=CreateLiteralNumber(Param,1);
Result:=MinusJS;
end;
end;
procedure ConvertStringBracket;
var
Call: TJSCallExpression;
Param: TPasExpr;
Expr: TJSAdditiveExpressionMinus;
DotExpr: TJSDotMemberExpression;
AssignContext: TAssignContext;
Elements: TJSArrayLiteralElements;
AssignSt: TJSSimpleAssignStatement;
OldAccess: TCtxAccess;
IndexExpr: TJSElement;
begin
Param:=El.Params[0];
case AContext.Access of
@ -5011,8 +5039,9 @@ var
Call.Expr:=CreateMemberExpression([FBuiltInNames[pbivnRTL],FBuiltInNames[pbifnSetCharAt]]);
// first param s
Elements.AddElement.Expr:=ConvertElement(El.Value,AContext);
// second param index
Elements.AddElement.Expr:=ConvertElement(Param,ArgContext);
// second param index-1
IndexExpr:=ConvertIndexMinus1(Param);
Elements.AddElement.Expr:=IndexExpr;
AContext.Access:=OldAccess;
// third param value
Elements.AddElement.Expr:=AssignContext.RightSide;
@ -5036,10 +5065,8 @@ var
DotExpr.Name:='charAt';
// add parameter "index-1"
Expr:=TJSAdditiveExpressionMinus(CreateElement(TJSAdditiveExpressionMinus,Param));
Elements.AddElement.Expr:=Expr;
Expr.A:=ConvertElement(Param,ArgContext);
Expr.B:=CreateLiteralNumber(Param,1);
IndexExpr:=ConvertIndexMinus1(Param);
Elements.AddElement.Expr:=IndexExpr;
Result:=Call;
finally
if Result=nil then

20
packages/pastojs/tests/tcmodules.pas
View File

@ -4092,7 +4092,7 @@ begin
Add(' b:= c <> s[1];');
Add(' b:= c > s[1];');
Add(' b:= c >= s[1];');
Add(' b:= c < s[1];');
Add(' b:= c < s[2];');
Add(' b:= c <= s[1];');
Add(' s[1] := c;');
Add(' s[2+3] := c;');
@ -4104,15 +4104,15 @@ begin
'this.b = false;'
]),
LinesToStr([ // this.$main
'$mod.b = $mod.s.charAt(1-1) === $mod.c;',
'$mod.b = $mod.c === $mod.s.charAt(1 - 1);',
'$mod.b = $mod.c !== $mod.s.charAt(1 - 1);',
'$mod.b = $mod.c > $mod.s.charAt(1 - 1);',
'$mod.b = $mod.c >= $mod.s.charAt(1 - 1);',
'$mod.b = $mod.c < $mod.s.charAt(1 - 1);',
'$mod.b = $mod.c <= $mod.s.charAt(1 - 1);',
'$mod.s = rtl.setCharAt($mod.s, 1, $mod.c);',
'$mod.s = rtl.setCharAt($mod.s, 2 + 3, $mod.c);',
'$mod.b = $mod.s.charAt(0) === $mod.c;',
'$mod.b = $mod.c === $mod.s.charAt(0);',
'$mod.b = $mod.c !== $mod.s.charAt(0);',
'$mod.b = $mod.c > $mod.s.charAt(0);',
'$mod.b = $mod.c >= $mod.s.charAt(0);',
'$mod.b = $mod.c < $mod.s.charAt(1);',
'$mod.b = $mod.c <= $mod.s.charAt(0);',
'$mod.s = rtl.setCharAt($mod.s, 0, $mod.c);',
'$mod.s = rtl.setCharAt($mod.s, (2 + 3) - 1, $mod.c);',
'']));
end;