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

pastojs: using same val function as resolver

Browse Source 
git-svn-id: trunk@40151 -
This commit is contained in:
Mattias Gaertner 2018-11-01 13:58:26 +00:00
parent 681016370e
commit f5574bebc9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6716,7 +6716,7 @@ function TPasToJSConverter.ConvertPrimitiveExpression(El: TPrimitiveExpr;
Var
L : TJSLiteral;
Number : TJSNumber;
ConversionError : Integer;
ConversionError , Code: Integer;
i: TMaxPrecInt;
S: String;
begin
@ -6751,8 +6751,8 @@ begin
end;
'$','&','%':
begin
i:=StrToInt64Def(El.Value,-1);
if i<0 then
val(El.Value,i,Code);
if Code<>0 then
DoError(20161024224442,nInvalidNumber,sInvalidNumber,[El.Value],El);
Number:=i;
if Number<>i then