github/amiga-clib2
1
0
Fork 0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00
Code Issues Releases Wiki Activity

Implemented the fixes for the tgamma() and tgammaf() functions

Browse Source 
Thanks go to sodero for providing the fixes.
This commit is contained in:
obarthel
2025-07-12 12:25:42 +02:00
parent 8378274572
commit 2704ff880f
2 changed files with 6 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
library/math_tgamma.c
View File

@ -1,10 +1,8 @@
/*
* $Id: math_tgamma.c,v 1.3 2006-01-08 12:04:24 obarthel Exp $
*
* :ts=4
*
* Portable ISO 'C' (1994) runtime library for the Amiga computer
* Copyright (c) 2002-2015 by Olaf Barthel <obarthel (at) gmx.net>
* Copyright (c) 2002-2025 by Olaf Barthel <obarthel (at) gmx.net>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
@ -54,13 +52,11 @@ double
tgamma(double x)
{
int gamma_sign;
double y;
double y;
y = __lgamma(x,&gamma_sign);
if (gamma_sign < 0)
y = -y;
y = __lgamma(x, &gamma_sign);
return y;
return gamma_sign * exp(y);
}
/****************************************************************************/

8
library/math_tgammaf.c
View File

@ -1,6 +1,4 @@
/*
* $Id: math_tgammaf.c,v 1.3 2006-01-08 12:04:24 obarthel Exp $
*
* :ts=4
*
* Portable ISO 'C' (1994) runtime library for the Amiga computer
@ -56,11 +54,9 @@ tgammaf(float x)
int gamma_sign;
float y;
y = __lgammaf(x,&gamma_sign);
if (gamma_sign < 0)
y = -y;
y = __lgammaf(x, &gamma_sign);
return y;
return gamma_sign * expf(y);
}
/****************************************************************************/