fcl-base: clean up

This commit is contained in:
mattias 2019-01-27 22:01:49 +00:00
parent 731dcd8eb2
commit 6c78a2162f

View File

@ -1323,7 +1323,8 @@ begin
Result:=FChar; Result:=FChar;
end; 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 var
L64: NativeInt; L64: NativeInt;
begin begin
@ -1336,6 +1337,7 @@ begin
else else
System.Val(S, V, Code); System.Val(S, V, Code);
end; end;
{$endif}
Function TFPExpressionScanner.DoNumber(AKind: TNumberKind) : TTokenType; Function TFPExpressionScanner.DoNumber(AKind: TNumberKind) : TTokenType;