paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 21:28:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Zoran Vučenović: fixes TDoubleRec.SetFrac, resolves #38202

Browse Source 
+ test

git-svn-id: trunk@47765 -
This commit is contained in:
florian 2020-12-12 21:39:17 +00:00
parent c82aae59a1
commit 53a4e6c513
3 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

2
rtl/inc/genmath.inc
View File

@ -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;
{

21
tests/webtbs/tw38202.pp Normal file
View File

@ -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.