URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [branches/] [newlib/] [newlib/] [newlib/] [libm/] [math/] [wf_lgamma.c] - Diff between revs 39 and 56

Rev 39	Rev 56
Line 13...	Line 13...
`* ====================================================`	`* ====================================================`
`*`	`*`
`*/`	`*/`

`#include "fdlibm.h"`	`#include "fdlibm.h"`
	`#include <reent.h>`
`#include <errno.h>`	`#include <errno.h>`

`#ifdef __STDC__`	`#ifdef __STDC__`
`float lgammaf(float x)`	`float lgammaf(float x)`
`#else`	`#else`
`float lgammaf(x)`	`float lgammaf(x)`
`float x;`	`float x;`
`#endif`	`#endif`
`{`	`{`
`#ifdef _IEEE_LIBM`	`#ifdef _IEEE_LIBM`
`return __ieee754_lgammaf_r(x,&signgam);`	`return __ieee754_lgammaf_r(x,&(_REENT->_new._reent._gamma_signgam));`
`#else`	`#else`
`float y;`	`float y;`
`struct exception exc;`	`struct exception exc;`
`y = __ieee754_lgammaf_r(x,&signgam);`	`y = __ieee754_lgammaf_r(x,&(_REENT->_new._reent._gamma_signgam));`
`if(_LIB_VERSION == _IEEE_) return y;`	`if(_LIB_VERSION == _IEEE_) return y;`
`if(!finitef(y)&&finitef(x)) {`	`if(!finitef(y)&&finitef(x)) {`
`#ifndef HUGE_VAL`	`#ifndef HUGE_VAL`
`#define HUGE_VAL inf`	`#define HUGE_VAL inf`
`double inf = 0.0;`	`double inf = 0.0;`

`SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */`	`SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */`
`#endif`	`#endif`
`exc.name = "lgammaf";`	`exc.name = "lgammaf";`
	`exc.err = 0;`
	`exc.arg1 = exc.arg2 = (double)x;`
`if (_LIB_VERSION == _SVID_)`	`if (_LIB_VERSION == _SVID_)`
`exc.retval = HUGE;`	`exc.retval = HUGE;`
`else`	`else`
`exc.retval = HUGE_VAL;`	`exc.retval = HUGE_VAL;`
`if(floorf(x)==x&&x<=(float)0.0) {`	`if(floorf(x)==x&&x<=(float)0.0) {`