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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libm/] [mathfp/] [sf_numtest.c] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log


 
/* @(#)z_numtestf.c 1.0 98/08/13 */
/******************************************************************
 * Numtest
 *
 * Input:
 *   x - pointer to a floating point value
 *
 * Output:
 *   An integer that indicates what kind of number was passed in:
 *     NUM = 3 - a finite value
 *     NAN = 2 - not a number
 *     INF = 1 - an infinite value
 *           0 - zero
 *
 * Description:
 *   This routine returns an integer that indicates the character-
 *   istics of the number that was passed in.
 *
 *****************************************************************/
 
#include "fdlibm.h"
#include "zmath.h"
 
int
_DEFUN (numtestf, (float),
        float x)
{
  __int32_t wx;
  int exp;
 
  GET_FLOAT_WORD (wx, x);
 
  exp = (wx & 0x7f800000) >> 23;
 
  /* Check for a zero input. */
  if (x == 0.0)
    {
      return (0);
    }
 
  /* Check for not a number or infinity. */
  if (exp == 0x7f8)
    {
      if(wx & 0x7fffff)
        return (NAN);
      else
        return (INF);
    }
 
  /* Otherwise it's a finite value. */
  else
    return (NUM);
}
 
#ifdef _DOUBLE_IS_32BITS
 
int numtest (double x)
{
  return numtestf ((float) x);
}
 
#endif /* defined(_DOUBLE_IS_32BITS) */

Line No.	Rev	Author	Line
1	56	joel
2			`/* @(#)z_numtestf.c 1.0 98/08/13 */`
3			`/******************************************************************`
4			`* Numtest`
5			`*`
6			`* Input:`
7			`* x - pointer to a floating point value`
8			`*`
9			`* Output:`
10			`* An integer that indicates what kind of number was passed in:`
11			`* NUM = 3 - a finite value`
12			`* NAN = 2 - not a number`
13			`* INF = 1 - an infinite value`
14			`* 0 - zero`
15			`*`
16			`* Description:`
17			`* This routine returns an integer that indicates the character-`
18			`* istics of the number that was passed in.`
19			`*`
20			`*****************************************************************/`
21
22			`#include "fdlibm.h"`
23			`#include "zmath.h"`
24
25			`int`
26			`_DEFUN (numtestf, (float),`
27			`float x)`
28			`{`
29			`__int32_t wx;`
30			`int exp;`
31
32			`GET_FLOAT_WORD (wx, x);`
33
34			`exp = (wx & 0x7f800000) >> 23;`
35
36			`/* Check for a zero input. */`
37			`if (x == 0.0)`
38			`{`
39			`return (0);`
40			`}`
41
42			`/* Check for not a number or infinity. */`
43			`if (exp == 0x7f8)`
44			`{`
45			`if(wx & 0x7fffff)`
46			`return (NAN);`
47			`else`
48			`return (INF);`
49			`}`
50
51			`/* Otherwise it's a finite value. */`
52			`else`
53			`return (NUM);`
54			`}`
55
56			`#ifdef _DOUBLE_IS_32BITS`
57
58			`int numtest (double x)`
59			`{`
60			`return numtestf ((float) x);`
61			`}`
62
63			`#endif /* defined(_DOUBLE_IS_32BITS) */`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libm/] [mathfp/] [sf_numtest.c] - Blame information for rev 1774