From 53a4e6c513bf1a7e3d98e869027a92041b2b40ee Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 12 Dec 2020 21:39:17 +0000
Subject: [PATCH] =?UTF-8?q?=20=20*=20patch=20by=20Zoran=20Vu=C4=8Denovi?=
 =?UTF-8?q?=C4=87:=20fixes=20TDoubleRec.SetFrac,=20resolves=20#38202=20=20?=
 =?UTF-8?q?=20+=20test?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@47765 -
---
 .gitattributes          |  1 +
 rtl/inc/genmath.inc     |  2 +-
 tests/webtbs/tw38202.pp | 21 +++++++++++++++++++++
 3 files changed, 23 insertions(+), 1 deletion(-)
 create mode 100644 tests/webtbs/tw38202.pp

diff --git a/.gitattributes b/.gitattributes
index 61ef951615..4a41189945 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -18605,6 +18605,7 @@ tests/webtbs/tw3814.pp svneol=native#text/plain
 tests/webtbs/tw38145a.pp svneol=native#text/pascal
 tests/webtbs/tw38145b.pp svneol=native#text/pascal
 tests/webtbs/tw38151.pp svneol=native#text/pascal
+tests/webtbs/tw38202.pp svneol=native#text/pascal
 tests/webtbs/tw3827.pp svneol=native#text/plain
 tests/webtbs/tw3829.pp svneol=native#text/plain
 tests/webtbs/tw3833.pp svneol=native#text/plain
diff --git a/rtl/inc/genmath.inc b/rtl/inc/genmath.inc
index 4acaa3337d..c1574b224b 100644
--- a/rtl/inc/genmath.inc
+++ b/rtl/inc/genmath.inc
@@ -2087,7 +2087,7 @@ function TDoubleRec.GetFrac : QWord;
 
 procedure TDoubleRec.SetFrac(e : QWord);
   begin
-    Data:=(Data and $7ff0000000000000) or (e and $fffffffffffff);
+    Data:=(Data and $fff0000000000000) or (e and $fffffffffffff);
   end;
 
 {
diff --git a/tests/webtbs/tw38202.pp b/tests/webtbs/tw38202.pp
new file mode 100644
index 0000000000..de0830de5b
--- /dev/null
+++ b/tests/webtbs/tw38202.pp
@@ -0,0 +1,21 @@
+program Project1;
+
+{$mode objfpc}{$H+}
+
+uses
+  SysUtils;
+
+var
+  D: Double;
+  Q: QWord;
+
+begin
+  D := -1;
+
+  Q := D.Frac;
+  D.Frac := Q; // the sign is lost!
+
+  if D<>-1 then
+    halt(1);
+  WriteLn('ok');
+end.