Browse Source

math: add dummy tgamma and tgammaf implementations

rs-1.0
nsz 14 years ago
parent
commit
bbfbc7edaf
  1. 16
      src/math/tgamma.c
  2. 16
      src/math/tgammaf.c

16
src/math/tgamma.c

@ -0,0 +1,16 @@
#include <math.h>
// FIXME: use lanczos approximation
double __lgamma_r(double, int *);
double tgamma(double x)
{
int sign;
double y;
y = exp(__lgamma_r(x, &sign));
if (sign < 0)
y = -y;
return y;
}

16
src/math/tgammaf.c

@ -0,0 +1,16 @@
#include <math.h>
// FIXME: use lanczos approximation
float __lgammaf_r(float, int *);
float tgammaf(float x)
{
int sign;
float y;
y = exp(__lgammaf_r(x, &sign));
if (sign < 0)
y = -y;
return y;
}
Loading…
Cancel
Save