newlib/libm/common/s_signbit.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

/* Copyright (C) 2002 by  Red Hat, Incorporated. All rights reserved.
 *
 * Permission to use, copy, modify, and distribute this software
 * is freely granted, provided that this notice is preserved.
 */

#include "fdlibm.h"

int __signbitf (float x);
int __signbitd (double x);

int
__signbitf (float x)
{
  unsigned int w;

  GET_FLOAT_WORD(w,x);

  return (w & 0x80000000);
}

int
__signbitd (double x)
{
  unsigned int msw;

  GET_HIGH_WORD(msw, x);

  return (msw & 0x80000000);
}