From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 21 Aug 2015 10:36:30 +0000 (+0000)
Subject: * Correct for different meaning of TZOffset
X-Git-Tag: archive/raspbian/3.0.0+dfsg-11+rpi1+deb9u1^2~1
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=8d99b544d4bb26cf90a14ca6425f8b65464dab5c;p=fpc.git

* Correct for different meaning of TZOffset

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@31356 3ad0048d-3df7-0310-abae-a5850022a9f2

Gbp-Pq: Name Correct-for-different-meaning-of-TZOffset.patch
---

diff --git a/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc b/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc
index c90c83de..fc7f87a1 100644
--- a/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc
+++ b/fpcsrc/packages/rtl-objpas/src/inc/dateutil.inc
@@ -2532,7 +2532,7 @@ end;
 function UniversalTimeToLocal(UT: TDateTime): TDateTime;
 
 begin
-  Result:=UniversalTimeToLocal(UT,GetLocalTimeOffset);
+  Result:=UniversalTimeToLocal(UT,-GetLocalTimeOffset);
 end;
 
 function UniversalTimeToLocal(UT: TDateTime; TZOffset : Integer): TDateTime;
@@ -2549,7 +2549,7 @@ end;
 Function LocalTimeToUniversal(LT: TDateTime): TDateTime;
 
 begin
-  Result:=LocalTimeToUniversal(LT,GetLocalTimeOffset);
+  Result:=LocalTimeToUniversal(LT,-GetLocalTimeOffset);
 end;
 
 Function LocalTimeToUniversal(LT: TDateTime;TZOffset: Integer): TDateTime;