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

* Ceil and Floor are now really fixed :)

Browse Source
This commit is contained in:
Jonas Maebe 1999-06-04 08:44:34 +00:00
parent 80dca987ca
commit 54e89e660d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/math.pp
View File

@ -430,15 +430,16 @@ function ceil(x : float) : longint;
begin
Ceil:=Trunc(x);
If Frac(x)>0 then
if x > 0 then Ceil:=Ceil+1
else Ceil := Ceil - 1;
If (x > 0) And (Frac(x) > 0) then
Ceil:=Ceil+1;
end;
function floor(x : float) : longint;
begin
Floor:=Trunc(x);
If (x < 0) And (Frac(x) > 0) then
Floor := Floor - 1;
end;
procedure frexp(x : float;var mantissa,exponent : float);
@ -665,7 +666,10 @@ end;
end.
{
$Log$
Revision 1.10 1999-06-03 16:22:57 jonas
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
* fixed ceil function
Revision 1.9 1999/06/03 13:37:30 jonas