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

* Corrected prototype of frexp() and added routine (taken fron genmath.inc)

Browse Source 
tested against Delphi 3
This commit is contained in:
carl 2001-12-20 03:51:44 +00:00
parent 8d90e415dc
commit 562bc8f15b
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/objpas/math.pp
View File

@ -166,7 +166,7 @@ function floor(x : float) : longint;
{ misc. functions }
{ splits x into mantissa and exponent (to base 2) }
procedure frexp(x : float;var mantissa,exponent : float);
procedure Frexp(X: float; var Mantissa: float; var Exponent: integer);
{ returns x*(2^p) }
function ldexp(x : float;p : longint) : float;
@ -517,10 +517,23 @@ function floor(x : float) : longint;
Floor := Floor-1;
end;
procedure frexp(x : float;var mantissa,exponent : float);
procedure Frexp(X: float; var Mantissa: float; var Exponent: integer);
begin
Exponent :=0;
if (abs(x)<0.5) then
While (abs(x)<0.5) do
begin
x := x*2;
Dec(Exponent);
end
else
While (abs(x)>1) do
begin
x := x/2;
Inc(Exponent);
end;
mantissa := x;
end;
function ldexp(x : float;p : longint) : float;
@ -960,7 +973,11 @@ end;
end.
{
$Log$
Revision 1.5 2001-06-04 18:45:58 peter
Revision 1.6 2001-12-20 03:51:44 carl
* Corrected prototype of frexp() and added routine (taken fron genmath.inc)
tested against Delphi 3
Revision 1.5 2001/06/04 18:45:58 peter
* added constant
Revision 1.4 2000/07/30 10:01:04 sg