Current Path : /compat/linux/proc/self/root/usr/src/lib/msun/src/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //compat/linux/proc/self/root/usr/src/lib/msun/src/s_ilogbl.c |
/* * From: @(#)s_ilogb.c 5.1 93/09/24 * ==================================================== * 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. * ==================================================== */ #include <sys/cdefs.h> __FBSDID("$FreeBSD: release/9.1.0/lib/msun/src/s_ilogbl.c 176451 2008-02-22 02:30:36Z das $"); #include <float.h> #include <limits.h> #include <math.h> #include "fpmath.h" int ilogbl(long double x) { union IEEEl2bits u; unsigned long m; int b; u.e = x; if (u.bits.exp == 0) { if ((u.bits.manl | u.bits.manh) == 0) return (FP_ILOGB0); /* denormalized */ if (u.bits.manh == 0) { m = 1lu << (LDBL_MANL_SIZE - 1); for (b = LDBL_MANH_SIZE; !(u.bits.manl & m); m >>= 1) b++; } else { m = 1lu << (LDBL_MANH_SIZE - 1); for (b = 0; !(u.bits.manh & m); m >>= 1) b++; } #ifdef LDBL_IMPLICIT_NBIT b++; #endif return (LDBL_MIN_EXP - b - 1); } else if (u.bits.exp < (LDBL_MAX_EXP << 1) - 1) return (u.bits.exp - LDBL_MAX_EXP + 1); else if (u.bits.manl != 0 || u.bits.manh != 0) return (FP_ILOGBNAN); else return (INT_MAX); }