paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 06:06:17 +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 Var
L : TJSLiteral; L : TJSLiteral;
Number : TJSNumber; Number : TJSNumber;
ConversionError : Integer; ConversionError , Code: Integer;
i: TMaxPrecInt; i: TMaxPrecInt;
S: String; S: String;
begin begin
@ -6751,8 +6751,8 @@ begin
end; end;
'$','&','%': '$','&','%':
begin begin
i:=StrToInt64Def(El.Value,-1); val(El.Value,i,Code);
if i<0 then if Code<>0 then
DoError(20161024224442,nInvalidNumber,sInvalidNumber,[El.Value],El); DoError(20161024224442,nInvalidNumber,sInvalidNumber,[El.Value],El);
Number:=i; Number:=i;
if Number<>i then if Number<>i then