paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 19:27:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-base: clean up

Browse Source
This commit is contained in:
mattias 2019-01-27 22:01:49 +00:00
parent 731dcd8eb2
commit 6c78a2162f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/fpexprpars.pas
View File

@ -1323,7 +1323,8 @@ begin
Result:=FChar;
end;
procedure Val(const S: string; out V: TExprFloat; out Code: Integer);
{$ifndef pas2js}
procedure Val(const S: string; out V: TExprFloat; out Code: Integer); overload;
var
L64: NativeInt;
begin
@ -1336,6 +1337,7 @@ begin
else
System.Val(S, V, Code);
end;
{$endif}
Function TFPExpressionScanner.DoNumber(AKind: TNumberKind) : TTokenType;