c6222ab921
1998-02-17 17:41 Ulrich Drepper <drepper@cygnus.com> * elf/dl-load.c (open_path): Take extra argument PRELOADED. If PRELOADED is nonzero check in case of an SUID application whether the shared object has the SUID bit set. Fix some other problems with handling shared objects in system specific directories. (_dl_map_object): Also take extra parameter and pass it to open_path. * elf/link.h (_dl_map_object): Correct prototype and comment. * elf/rtld.c (dl_main): Call _dl_map_object correctly. * elf/dl-open.c (_dl_open): Likewise. * elf/dl-deps.c (openaux, _dl_map_object_deps): Likewise. * sysdeps/libm-ieee754/s_modfl.c: Handle numbers > 1.0 correctly. * math/libm-test.c (modf_test): Add test for 1.5.
86 lines
2.1 KiB
C
86 lines
2.1 KiB
C
/* s_modfl.c -- long double version of s_modf.c.
|
|
* Conversion to long double by Ulrich Drepper,
|
|
* Cygnus Support, drepper@cygnus.com.
|
|
*/
|
|
|
|
/*
|
|
* ====================================================
|
|
* 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.
|
|
* ====================================================
|
|
*/
|
|
|
|
#if defined(LIBM_SCCS) && !defined(lint)
|
|
static char rcsid[] = "$NetBSD: $";
|
|
#endif
|
|
|
|
/*
|
|
* modfl(long double x, long double *iptr)
|
|
* return fraction part of x, and return x's integral part in *iptr.
|
|
* Method:
|
|
* Bit twiddling.
|
|
*
|
|
* Exception:
|
|
* No exception.
|
|
*/
|
|
|
|
#include "math.h"
|
|
#include "math_private.h"
|
|
|
|
#ifdef __STDC__
|
|
static const long double one = 1.0;
|
|
#else
|
|
static long double one = 1.0;
|
|
#endif
|
|
|
|
#ifdef __STDC__
|
|
long double __modfl(long double x, long double *iptr)
|
|
#else
|
|
long double __modfl(x, iptr)
|
|
long double x,*iptr;
|
|
#endif
|
|
{
|
|
int32_t i0,i1,j0;
|
|
u_int32_t i,se;
|
|
GET_LDOUBLE_WORDS(se,i0,i1,x);
|
|
j0 = (se&0x7fff)-0x3fff; /* exponent of x */
|
|
if(j0<32) { /* integer part in high x */
|
|
if(j0<0) { /* |x|<1 */
|
|
SET_LDOUBLE_WORDS(*iptr,se&0x8000,0,0); /* *iptr = +-0 */
|
|
return x;
|
|
} else {
|
|
i = (0x7fffffff)>>j0;
|
|
if(((i0&i)|i1)==0) { /* x is integral */
|
|
*iptr = x;
|
|
SET_LDOUBLE_WORDS(x,se&0x8000,0,0); /* return +-0 */
|
|
return x;
|
|
} else {
|
|
SET_LDOUBLE_WORDS(*iptr,se,i0&(~i),0);
|
|
return x - *iptr;
|
|
}
|
|
}
|
|
} else if (j0>63) { /* no fraction part */
|
|
*iptr = x*one;
|
|
/* We must handle NaNs separately. */
|
|
if (j0 == 0x4000 && ((i0 & 0x7fffffff) | i1))
|
|
return x*one;
|
|
SET_LDOUBLE_WORDS(x,se&0x8000,0,0); /* return +-0 */
|
|
return x;
|
|
} else { /* fraction part in low x */
|
|
i = ((u_int32_t)(0xffffffff))>>(j0-32);
|
|
if((i1&i)==0) { /* x is integral */
|
|
*iptr = x;
|
|
INSERT_WORDS(x,se&0x8000,0); /* return +-0 */
|
|
return x;
|
|
} else {
|
|
SET_LDOUBLE_WORDS(*iptr,se,i0,i1&(~i));
|
|
return x - *iptr;
|
|
}
|
|
}
|
|
}
|
|
weak_alias (__modfl, modfl)
|