mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-12 16:20:06 +00:00
finite for 64-bit platforms
This commit is contained in:
parent
2840865d5a
commit
88738eb6e9
@ -1,5 +1,7 @@
|
||||
2011-09-15 Ulrich Drepper <drepper@gmail.com>
|
||||
|
||||
* sysdeps/ieee754/dbl-64/wordsize-64/s_finite.c: New file.
|
||||
|
||||
* sysdeps/unix/sysv/linux/bits/in.h (IP_MULTICAST_ALL): Define.
|
||||
Patch mostly by Neil Horman <nhorman@tuxdriver.com>.
|
||||
|
||||
|
32
sysdeps/ieee754/dbl-64/wordsize-64/s_finite.c
Normal file
32
sysdeps/ieee754/dbl-64/wordsize-64/s_finite.c
Normal file
@ -0,0 +1,32 @@
|
||||
/*
|
||||
* ====================================================
|
||||
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
||||
*
|
||||
* Developed at SunPro, a Sun Microsystems, Inc. business.
|
||||
* Permission to use, copy, modify, and distribute this
|
||||
* software is freely granted, provided that this notice
|
||||
* is preserved.
|
||||
* ====================================================
|
||||
*/
|
||||
|
||||
/*
|
||||
* finite(x) returns 1 is x is finite, else 0;
|
||||
* no branching!
|
||||
*/
|
||||
|
||||
#include "math.h"
|
||||
#include "math_private.h"
|
||||
|
||||
int
|
||||
__finite(double x)
|
||||
{
|
||||
int64_t lx;
|
||||
EXTRACT_WORDS64(lx,x);
|
||||
return (int)((uint64_t)((lx&INT64_C(0x7fffffffffffffff))-INT64_C(0x7ff0000000000000))>>63);
|
||||
}
|
||||
hidden_def (__finite)
|
||||
weak_alias (__finite, finite)
|
||||
#ifdef NO_LONG_DOUBLE
|
||||
strong_alias (__finite, __finitel)
|
||||
weak_alias (__finite, finitel)
|
||||
#endif
|
Loading…
Reference in New Issue
Block a user