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

+ Added credits for functions reused from AMath/DAMath libraries.

Browse Source 
git-svn-id: trunk@27518 -
This commit is contained in:
sergei 2014-04-10 20:29:49 +00:00
parent afcb8c3f10
commit bd58adfcc9
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/i386/math.inc
View File

@ -111,6 +111,7 @@
end;
{$define FPC_SYSTEM_HAS_EXP}
{ exp function adapted from AMath library (C) Copyright 2009-2013 Wolfgang Ehrhardt }
function fpc_exp_real(d : ValReal) : ValReal;assembler;compilerproc;
asm
fldt d

1
rtl/inc/genmath.inc
View File

@ -368,6 +368,7 @@ type
{$ifndef SYSTEM_HAS_LDEXP}
{$ifdef SUPPORT_DOUBLE}
{ ldexpd function adapted from DAMath library (C) Copyright 2013 Wolfgang Ehrhardt }
function ldexp( x: Real; N: Integer):Real;
{* ldexp() multiplies x by 2**n. *}
var

4
rtl/objpas/math.pp
View File

@ -783,7 +783,7 @@ begin
csc := cosecant(x);
end;
{ arcsin and arccos functions from AMath library (C) Copyright 2009-2013 Wolfgang Ehrhardt }
function arcsin(x : float) : float;
begin
arcsin:=arctan2(x,sqrt((1.0-x)*(1.0+x)));
@ -881,6 +881,7 @@ function artanh(x : float) : float;
artanh:=(lnxp1(x)-lnxp1(-x))*0.5;
end;
{ hypot function from AMath library (C) Copyright 2009-2013 Wolfgang Ehrhardt }
function hypot(x,y : float) : float;
begin
x:=abs(x);
@ -910,6 +911,7 @@ function logn(n,x : float) : float;
logn:=ln(x)/ln(n);
end;
{ lnxp1 function from AMath library (C) Copyright 2009-2013 Wolfgang Ehrhardt }
function lnxp1(x : float) : float;
var
y: float;