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

* fixed trunc for abs(value) < 1

Browse Source
This commit is contained in:
florian 2004-10-03 14:09:39 +00:00
parent 7e328ccf29
commit 12bf88080f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/genmath.inc
View File

@ -204,11 +204,9 @@ type
begin
if aExp<$3fe then
begin
if (aExp or aSig)<>0 then
HandleError(207);
result:=0;
exit;
end;
end;
z:=aSig shr -shiftCount;
{
if (aSig shl (shiftCount and 63))<>0 then
@ -1246,7 +1244,10 @@ function fpc_int64_to_double(i : int64): double; compilerproc;
{
$Log$
Revision 1.25 2004-10-03 14:00:21 florian
Revision 1.26 2004-10-03 14:09:39 florian
* fixed trunc for abs(value) < 1
Revision 1.25 2004/10/03 14:00:21 florian
+ made generic trunc 64 bit aware
Revision 1.24 2004/05/31 20:25:04 peter