paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed floor function

Browse Source
This commit is contained in:
Jonas Maebe 1999-06-03 13:37:30 +00:00
parent 2500dfd69b
commit ffd5f2618d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/math.pp
View File

@ -437,7 +437,6 @@ function floor(x : float) : longint;
begin
Floor:=Trunc(x);
If frac(x)<0 then Floor:=Floor-1;
end;
procedure frexp(x : float;var mantissa,exponent : float);
@ -664,7 +663,10 @@ end;
end.
{
$Log$
Revision 1.8 1999-01-15 11:44:56 peter
Revision 1.9 1999-06-03 13:37:30 jonas
* fixed floor function
Revision 1.8 1999/01/15 11:44:56 peter
* fixed unresolved forwards
Revision 1.7 1998/12/21 13:07:06 peter