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

* cleanup of parameters

Browse Source 
- remove assembler code
This commit is contained in:
carl 2002-09-07 21:06:12 +00:00
parent 17135e4686
commit 9f78fa950a
1 changed files with 16 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
rtl/objpas/math.pp
View File

@ -16,18 +16,6 @@
This unit is an equivalent to the Delphi math unit
(with some improvements)
About assembler usage:
----------------------
I used as few as possible assembler to allow an easy port
to other processors. Today, I think it's wasted time to write
assembler because different versions of a family of processors
need different implementations.
To improve performance, I changed all integer arguments and
functions results to longint, because 16 bit instructions are
lethal for a modern intel processor.
(FK)
What's to do:
o a lot of function :), search for !!!!
o some statistical functions
@ -154,21 +142,21 @@ function lnxp1(x : float) : float;
function power(base,exponent : float) : float;
{ base^exponent }
function intpower(base : float;exponent : longint) : float;
function intpower(base : float;const exponent : Integer) : float;
{ number converting }
{ rounds x towards positive infinity }
function ceil(x : float) : longint;
function ceil(x : float) : Integer;
{ rounds x towards negative infinity }
function floor(x : float) : longint;
function floor(x : float) : Integer;
{ misc. functions }
{ splits x into mantissa and exponent (to base 2) }
procedure Frexp(X: float; var Mantissa: float; var Exponent: integer);
{ returns x*(2^p) }
function ldexp(x : float;p : longint) : float;
function ldexp(x : float; const p : Integer) : float;
{ statistical functions }
@ -303,20 +291,8 @@ function cotan(x : float) : float;
procedure sincos(theta : float;var sinus,cosinus : float);
begin
{$ifndef i386}
sinus:=sin(theta);
cosinus:=cos(theta);
{$else}
asm
fldt theta
fsincos
fwait
movl cosinus,%eax
fstpt (%eax)
movl sinus,%eax
fstpt (%eax)
end;
{$endif}
sinus:=sin(theta);
cosinus:=cos(theta);
end;
{ Sign, ArcSin and ArcCos from Arjan van Dijk (arjan.vanDijk@User.METAIR.WAU.NL) }
@ -344,21 +320,8 @@ end;
function arctan2( x,y : float) : float;
{$ifndef i386}
begin
ArcTan2:=ArcTan(x/y);
{$else}
{ without the assembler keyword, you have to store the result to }
{ __result at the end of the assembler block (JM) }
assembler;
asm
fldt X
fldt Y
fpatan
//leave
// ret $20 This is wrong for 4 byte aligned OS !!
{$endif}
ArcTan2:=ArcTan(x/y);
end;
function cosh(x : float) : float;
@ -479,7 +442,7 @@ function power(base,exponent : float) : float;
InvalidArgument
end;
function intpower(base : float;exponent : longint) : float;
function intpower(base : float;const exponent : Integer) : float;
var
i : longint;
@ -501,7 +464,7 @@ function intpower(base : float;exponent : longint) : float;
intpower:=1.0/intpower;
end;
function ceil(x : float) : longint;
function ceil(x : float) : integer;
begin
Ceil:=Trunc(x);
@ -509,7 +472,7 @@ function ceil(x : float) : longint;
Ceil:=Ceil+1;
end;
function floor(x : float) : longint;
function floor(x : float) : integer;
begin
Floor:=Trunc(x);
@ -536,7 +499,7 @@ procedure Frexp(X: float; var Mantissa: float; var Exponent: integer);
mantissa := x;
end;
function ldexp(x : float;p : longint) : float;
function ldexp(x : float;const p : Integer) : float;
begin
ldexp:=x*intpower(2.0,p);
@ -973,7 +936,11 @@ end;
end.
{
$Log$
Revision 1.7 2002-09-07 16:01:22 peter
Revision 1.8 2002-09-07 21:06:12 carl
* cleanup of parameters
- remove assembler code
Revision 1.7 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
}