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

pastojs: convert pascal ** to js **

Browse Source
This commit is contained in:
mattias 2024-02-28 11:51:20 +01:00
parent 3822465e2f
commit d8a2f7f714
3 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9243,13 +9243,8 @@ begin
C:=TJSBitwiseXOrExpression; // no logical xor in JS. bitwise works for boolean too C:=TJSBitwiseXOrExpression; // no logical xor in JS. bitwise works for boolean too
end; end;
eopPower: eopPower:
begin // convert pascal ** to js **
Call:=CreateCallExpression(El); C:=TJSPowerExpression;
Call.Expr:=CreatePrimitiveDotExpr('Math.pow',El);
Call.AddArg(A);
Call.AddArg(B);
Result:=Call;
end;
else else
if C=nil then if C=nil then
DoError(20161024191244,nBinaryOpcodeNotSupported,sBinaryOpcodeNotSupported,[OpcodeStrings[El.OpCode]],El); DoError(20161024191244,nBinaryOpcodeNotSupported,sBinaryOpcodeNotSupported,[OpcodeStrings[El.OpCode]],El);

4
packages/pastojs/tests/tcconverter.pas
View File

@ -1171,13 +1171,13 @@ end;
procedure TTestExpressionConverter.TestBinaryPower; procedure TTestExpressionConverter.TestBinaryPower;
Var Var
B : TBinaryExpr; B : TBinaryExpr;
E : TJSRelationalExpressionInstanceOf; E : TJSPowerExpression;
begin begin
B:=CreateBinary(eopPower); B:=CreateBinary(eopPower);
B.left:=CreateIdent('a'); B.left:=CreateIdent('a');
B.Right:=CreateIdent('b'); B.Right:=CreateIdent('b');
E:=TJSRelationalExpressionInstanceOf(TestBinaryExpression(B,TJSRelationalExpressionInstanceOf)); E:=TJSPowerExpression(TestBinaryExpression(B,TJSPowerExpression));
AssertIdentifier('Correct left literal for power',E.A,'a'); AssertIdentifier('Correct left literal for power',E.A,'a');
AssertIdentifier('Correct right literal for power',E.B,'b'); AssertIdentifier('Correct right literal for power',E.B,'b');
end; end;

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

@ -7868,6 +7868,7 @@ begin
' d:=-004.00E-00;', ' d:=-004.00E-00;',
' d:=-005.00E-001;', ' d:=-005.00E-001;',
' d:=10**3;', ' d:=10**3;',
' d:=100*9**0.5;',
' d:=10 mod 3;', ' d:=10 mod 3;',
' d:=10 div 3;', ' d:=10 div 3;',
' d:=c;', ' d:=c;',
@ -7942,7 +7943,8 @@ begin
'$mod.d = 3.000E0;', '$mod.d = 3.000E0;',
'$mod.d = -4.00E-0;', '$mod.d = -4.00E-0;',
'$mod.d = -5.00E-1;', '$mod.d = -5.00E-1;',
'$mod.d = Math.pow(10, 3);', '$mod.d = 10 ** 3;',
'$mod.d = 100 * (9 ** 0.5);',
'$mod.d = 10 % 3;', '$mod.d = 10 % 3;',
'$mod.d = rtl.trunc(10 / 3);', '$mod.d = rtl.trunc(10 / 3);',
'$mod.d = 1;', '$mod.d = 1;',