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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libm/] [math/] [sf_isnan.c] - Blame information for rev 40

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

Line No. Rev Author Line
1 39 lampret
/* sf_isnan.c -- float version of s_isnan.c.
2
 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3
 */
4
 
5
/*
6
 * ====================================================
7
 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8
 *
9
 * Developed at SunPro, a Sun Microsystems, Inc. business.
10
 * Permission to use, copy, modify, and distribute this
11
 * software is freely granted, provided that this notice
12
 * is preserved.
13
 * ====================================================
14
 */
15
 
16
/*
17
 * isnanf(x) returns 1 is x is nan, else 0;
18
 * no branching!
19
 */
20
 
21
#include "fdlibm.h"
22
 
23
#ifdef __STDC__
24
        int isnanf(float x)
25
#else
26
        int isnanf(x)
27
        float x;
28
#endif
29
{
30
        __int32_t ix;
31
        GET_FLOAT_WORD(ix,x);
32
        ix &= 0x7fffffff;
33
        ix = 0x7f800000 - ix;
34
        return (int)(((__uint32_t)(ix))>>31);
35
}
36
 
37
#ifdef _DOUBLE_IS_32BITS
38
 
39
#ifdef __STDC__
40
        int isnan(double x)
41
#else
42
        int isnan(x)
43
        double x;
44
#endif
45
{
46
        return isnanf((float) x);
47
}
48
 
49
#endif /* defined(_DOUBLE_IS_32BITS) */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.