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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [s_signbit.c] - Blame information for rev 822

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


/* 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);
}

Line No.	Rev	Author	Line
1	148	jeremybenn	`/* Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved.`
2			`*`
3			`* Permission to use, copy, modify, and distribute this software`
4			`* is freely granted, provided that this notice is preserved.`
5			`*/`
6
7			`#include "fdlibm.h"`
8
9			`int __signbitf (float x);`
10			`int __signbitd (double x);`
11
12			`int`
13			`__signbitf (float x)`
14			`{`
15			`unsigned int w;`
16
17			`GET_FLOAT_WORD(w,x);`
18
19			`return (w & 0x80000000);`
20			`}`
21
22			`int`
23			`__signbitd (double x)`
24			`{`
25			`unsigned int msw;`
26
27			`GET_HIGH_WORD(msw, x);`
28
29			`return (msw & 0x80000000);`
30			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [s_signbit.c] - Blame information for rev 822