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

pastojs: nicer for-loop srcmap

Browse Source 
git-svn-id: trunk@37246 -
This commit is contained in:
Mattias Gaertner 2017-09-18 08:53:49 +00:00
parent b2796c13b6
commit f175619c7c
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10172,7 +10172,7 @@ begin
ForSt:=TJSForStatement(CreateElement(TJSForStatement,El));
List.B:=ForSt;
// add "LoopVar=<StartExpr>;"
SimpleAss:=TJSSimpleAssignStatement(CreateElement(TJSSimpleAssignStatement,El.StartExpr));
SimpleAss:=TJSSimpleAssignStatement(CreateElement(TJSSimpleAssignStatement,El.VariableName));
ForSt.Init:=SimpleAss;
if AContext.Resolver<>nil then
begin
@ -10185,17 +10185,17 @@ begin
SimpleAss.Expr:=ConvertElement(El.StartExpr,AContext);
// add "LoopVar<=$loopend"
if El.Down then
BinExp:=TJSRelationalExpressionGE(CreateElement(TJSRelationalExpressionGE,El.EndExpr))
BinExp:=TJSRelationalExpressionGE(CreateElement(TJSRelationalExpressionGE,El.VariableName))
else
BinExp:=TJSRelationalExpressionLE(CreateElement(TJSRelationalExpressionLE,El.EndExpr));
BinExp:=TJSRelationalExpressionLE(CreateElement(TJSRelationalExpressionLE,El.VariableName));
ForSt.Cond:=BinExp;
BinExp.A:=ConvertElement(El.VariableName,AContext);
BinExp.B:=CreateIdentifierExpr(CurLoopEndVarName,El.EndExpr,AContext);
// add "LoopVar++"
if El.Down then
Incr:=TJSUnaryPostMinusMinusExpression(CreateElement(TJSUnaryPostMinusMinusExpression,El))
Incr:=TJSUnaryPostMinusMinusExpression(CreateElement(TJSUnaryPostMinusMinusExpression,El.VariableName))
else
Incr:=TJSUnaryPostPlusPlusExpression(CreateElement(TJSUnaryPostPlusPlusExpression,El));
Incr:=TJSUnaryPostPlusPlusExpression(CreateElement(TJSUnaryPostPlusPlusExpression,El.VariableName));
ForSt.Incr:=Incr;
Incr.A:=ConvertElement(El.VariableName,AContext);
// add body
@ -10210,17 +10210,17 @@ begin
AddToStatementList(List,ListEnd,IfSt,El);
// add "LoopVar>$loopend"
if El.Down then
GTExpr:=TJSRelationalExpressionLT(CreateElement(TJSRelationalExpressionLT,El))
GTExpr:=TJSRelationalExpressionLT(CreateElement(TJSRelationalExpressionLT,El.VariableName))
else
GTExpr:=TJSRelationalExpressionGT(CreateElement(TJSRelationalExpressionGT,El));
GTExpr:=TJSRelationalExpressionGT(CreateElement(TJSRelationalExpressionGT,El.VariableName));
IfSt.Cond:=GTExpr;
GTExpr.A:=ConvertElement(El.VariableName,AContext);
GTExpr.B:=CreateIdentifierExpr(CurLoopEndVarName,El.EndExpr,AContext);
// add "LoopVar--"
if El.Down then
Decr:=TJSUnaryPostPlusPlusExpression(CreateElement(TJSUnaryPostPlusPlusExpression,El))
Decr:=TJSUnaryPostPlusPlusExpression(CreateElement(TJSUnaryPostPlusPlusExpression,El.VariableName))
else
Decr:=TJSUnaryPostMinusMinusExpression(CreateElement(TJSUnaryPostMinusMinusExpression,El));
Decr:=TJSUnaryPostMinusMinusExpression(CreateElement(TJSUnaryPostMinusMinusExpression,El.VariableName));
IfSt.BTrue:=Decr;
Decr.A:=ConvertElement(El.VariableName,AContext);
end;