paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 21:49:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* jump-free Ceil*/Floor* implementations

Browse Source 
git-svn-id: trunk@36283 -
This commit is contained in:
florian 2017-05-21 12:34:31 +00:00
parent 12dec14859
commit 69f41a776e
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/objpas/math.pp
View File

@ -745,7 +745,7 @@ function radtocycle(rad : float) : float;inline;
end;
{$ifdef FPC_HAS_TYPE_SINGLE}
Function DegNormalize(deg : single) : single;
Function DegNormalize(deg : single) : single;
begin
Result:=Deg-Int(Deg/360)*360;
@ -1056,30 +1056,25 @@ operator ** (bas,expo : int64) i: int64; inline;
function ceil(x : float) : integer;
begin
Ceil:=Trunc(x);
If Frac(x)>0 then
Ceil:=Ceil+1;
Result:=Trunc(x)+ord(Frac(x)>0);
end;
function ceil64(x: float): Int64;
begin
Ceil64:=Trunc(x);
if Frac(x)>0 then
Ceil64:=Ceil64+1;
Result:=Trunc(x)+ord(Frac(x)>0);
end;
function floor(x : float) : integer;
begin
Floor:=Trunc(x);
If Frac(x)<0 then
Floor := Floor-1;
Result:=Trunc(x)-ord(Frac(x)<0);
end;
function floor64(x: float): Int64;
begin
Floor64:=Trunc(x);
if Frac(x)<0 then
Floor64:=Floor64-1;
Result:=Trunc(x)-ord(Frac(x)<0);
end;
@ -1105,7 +1100,7 @@ function ldexp(x : float;const p : Integer) : float;
begin
ldexp:=x*intpower(2.0,p);
end;
{$ifdef FPC_HAS_TYPE_SINGLE}
function mean(const data : array of Single) : float;