paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 02:35:05 +01: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 begin
if aExp<$3fe then if aExp<$3fe then
begin begin
if (aExp or aSig)<>0 then
HandleError(207);
result:=0; result:=0;
exit; exit;
end; end;
z:=aSig shr -shiftCount; z:=aSig shr -shiftCount;
{ {
if (aSig shl (shiftCount and 63))<>0 then if (aSig shl (shiftCount and 63))<>0 then
@ -1246,7 +1244,10 @@ function fpc_int64_to_double(i : int64): double; compilerproc;
{ {
$Log$ $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 + made generic trunc 64 bit aware
Revision 1.24 2004/05/31 20:25:04 peter Revision 1.24 2004/05/31 20:25:04 peter