paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 02:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix strtoint64def

Browse Source
This commit is contained in:
michael 2019-09-27 13:17:06 +00:00
parent ff0cbf12c8
commit 1e31931375
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/sysutils.pas
View File

@ -3867,7 +3867,7 @@ function StrToInt64Def(const S: String; ADefault: NativeLargeInt
begin begin
if TryStrToInt64(S,Result) then if not TryStrToInt64(S,Result) then
Result:=ADefault; Result:=ADefault;
end; end;