Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix strtoint64def

michael 5 years ago
parent
ff0cbf12c8
commit
1e31931375
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/rtl/sysutils.pas

+ 1 - 1
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;