From 1e31931375d4167ffd15c805dee0c514a77967ed Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 27 Sep 2019 13:17:06 +0000
Subject: [PATCH] * Fix strtoint64def

---
 packages/rtl/sysutils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl/sysutils.pas b/packages/rtl/sysutils.pas
index ba88646..fe10ab1 100644
--- a/packages/rtl/sysutils.pas
+++ b/packages/rtl/sysutils.pas
@@ -3867,7 +3867,7 @@ function StrToInt64Def(const S: String; ADefault: NativeLargeInt
 
 
 begin
-  if TryStrToInt64(S,Result) then
+  if not TryStrToInt64(S,Result) then
     Result:=ADefault;
 end;