paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 03:34:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ceil and floor still had bugs :), hopefully it's the final fix now

Browse Source
This commit is contained in:
florian 1999-09-21 20:47:05 +00:00
parent ee7b714aff
commit d8f56ed4e7
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/math.pp
View File

@ -430,7 +430,7 @@ function ceil(x : float) : longint;
begin
Ceil:=Trunc(x);
If (x > 0) And (Frac(x) > 0) then
If Frac(x)>0 then
Ceil:=Ceil+1;
end;
@ -438,8 +438,8 @@ function floor(x : float) : longint;
begin
Floor:=Trunc(x);
If (x < 0) And (Frac(x) > 0) then
Floor := Floor - 1;
If Frac(x)<0 then
Floor := Floor-1;
end;
procedure frexp(x : float;var mantissa,exponent : float);
@ -666,7 +666,10 @@ end;
end.
{
$Log$
Revision 1.11 1999-06-04 08:44:34 jonas
Revision 1.12 1999-09-21 20:47:05 florian
* ceil and floor still had bugs :), hopefully it's the final fix now
Revision 1.11 1999/06/04 08:44:34 jonas
* Ceil and Floor are now really fixed :)
Revision 1.10 1999/06/03 16:22:57 jonas