mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-08-20 21:19:23 +02:00
fcl-base: clean up
This commit is contained in:
parent
731dcd8eb2
commit
6c78a2162f
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user