newlib/libm/machine/amdgcn/v64sf_numtest.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

/* Based on newlib/libm/mathfp/sf_numtest.c in Newlib.  */

#include "amdgcnmach.h"

v64si
v64sf_numtestf (v64sf x)
{
  // Explicitly create mask for internal function.
  v64si __mask = VECTOR_INIT (-1);
  FUNCTION_INIT (v64si);

  v64si wx;
  GET_FLOAT_WORD (wx, x, NO_COND);
  v64si exp = (wx & 0x7f800000) >> 23;

  /* Check for a zero input. */
  VECTOR_RETURN (VECTOR_INIT (0), x == 0.0);

  /* Check for not a number or infinity. */
  VECTOR_IF (exp == 0xff, cond)
    VECTOR_RETURN (VECTOR_MERGE (VECTOR_INIT (NAN), VECTOR_INIT (INF),
                                 wx & 0x7fffff),
		   cond);
  /* Otherwise it's a finite value. */
  VECTOR_ELSE (cond)
    VECTOR_RETURN (VECTOR_INIT (NUM), cond);
  VECTOR_ENDIF

  FUNCTION_RETURN;
}