paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:26:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ceil function

Browse Source
This commit is contained in:
Jonas Maebe 1999-06-03 16:22:57 +00:00
parent b7dbca4816
commit efb2475890
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/math.pp
View File

@ -430,7 +430,9 @@ function ceil(x : float) : longint;
begin begin
Ceil:=Trunc(x); Ceil:=Trunc(x);
If Frac(x)>0 then Ceil:=Ceil+1; If Frac(x)>0 then
if x > 0 then Ceil:=Ceil+1
else Ceil := Ceil - 1;
end; end;
function floor(x : float) : longint; function floor(x : float) : longint;
@ -663,7 +665,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 1999-06-03 13:37:30 jonas Revision 1.10 1999-06-03 16:22:57 jonas
* fixed ceil function
Revision 1.9 1999/06/03 13:37:30 jonas
* fixed floor function * fixed floor function
Revision 1.8 1999/01/15 11:44:56 peter Revision 1.8 1999/01/15 11:44:56 peter