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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libm/] [mathfp/] [s_isinf.c] - Diff between revs 1010 and 1765

Rev 1010	Rev 1765

`/* @(#)z_isinf.c 1.0 98/08/13 */`	`/* @(#)z_isinf.c 1.0 98/08/13 */`
`/******************************************************************`	`/******************************************************************`
`* isinf`	`* isinf`
`*`	`*`
`* Input:`	`* Input:`
`* x - pointer to a floating point value`	`* x - pointer to a floating point value`
`*`	`*`
`* Output:`	`* Output:`
`* An integer that indicates if the number is infinite.`	`* An integer that indicates if the number is infinite.`
`*`	`*`
`* Description:`	`* Description:`
`* This routine returns an integer that indicates if the number`	`* This routine returns an integer that indicates if the number`
`* passed in is infinite (1) or is finite (0).`	`* passed in is infinite (1) or is finite (0).`
`*`	`*`
`*****************************************************************/`	`*****************************************************************/`

`#include "fdlibm.h"`	`#include "fdlibm.h"`
`#include "zmath.h"`	`#include "zmath.h"`

`#ifndef _DOUBLE_IS_32BITS`	`#ifndef _DOUBLE_IS_32BITS`

`int isinf (double x)`	`int isinf (double x)`
`{`	`{`
`__uint32_t lx, hx;`	`__uint32_t lx, hx;`
`int exp;`	`int exp;`

`EXTRACT_WORDS (hx, lx, x);`	`EXTRACT_WORDS (hx, lx, x);`
`exp = (hx & 0x7ff00000) >> 20;`	`exp = (hx & 0x7ff00000) >> 20;`

`if ((exp == 0x7ff) && ((hx & 0xf0000 \|\| lx) == 0))`	`if ((exp == 0x7ff) && ((hx & 0xf0000 \|\| lx) == 0))`
`return (1);`	`return (1);`
`else`	`else`
`return (0);`	`return (0);`
`}`	`}`

`#endif /* _DOUBLE_IS_32BITS */`	`#endif /* _DOUBLE_IS_32BITS */`