math: add dummy tgamma and tgammaf implementations

This commit is contained in:
nsz 2012-03-27 22:17:36 +02:00
parent 1b229a2098
commit bbfbc7edaf
2 changed files with 32 additions and 0 deletions

16
src/math/tgamma.c Normal file
View File

@ -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 Normal file
View File

@ -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;
}