s_floorl.c (145637) | s_floorl.c (176243) |
---|---|
1/* 2 * ==================================================== 3 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 4 * 5 * Developed at SunPro, a Sun Microsystems, Inc. business. 6 * Permission to use, copy, modify, and distribute this 7 * software is freely granted, provided that this notice 8 * is preserved. 9 * ==================================================== 10 * 11 * From: @(#)s_floor.c 5.1 93/09/24 12 */ 13 14#ifndef lint | 1/* 2 * ==================================================== 3 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 4 * 5 * Developed at SunPro, a Sun Microsystems, Inc. business. 6 * Permission to use, copy, modify, and distribute this 7 * software is freely granted, provided that this notice 8 * is preserved. 9 * ==================================================== 10 * 11 * From: @(#)s_floor.c 5.1 93/09/24 12 */ 13 14#ifndef lint |
15static char rcsid[] = "$FreeBSD: head/lib/msun/src/s_floorl.c 145637 2005-04-28 19:45:55Z stefanf $"; | 15static char rcsid[] = "$FreeBSD: head/lib/msun/src/s_floorl.c 176243 2008-02-13 16:56:52Z bde $"; |
16#endif 17 18/* 19 * floorl(x) 20 * Return x rounded toward -inf to integral value 21 * Method: 22 * Bit twiddling. 23 * Exception: --- 71 unchanged lines hidden (view full) --- 95 INC_MANH(u, 1); 96 } 97 } 98 if (huge + x > 0.0) /* raise inexact flag */ 99 u.bits.manl &= ~m; 100 } 101 return (u.e); 102} | 16#endif 17 18/* 19 * floorl(x) 20 * Return x rounded toward -inf to integral value 21 * Method: 22 * Bit twiddling. 23 * Exception: --- 71 unchanged lines hidden (view full) --- 95 INC_MANH(u, 1); 96 } 97 } 98 if (huge + x > 0.0) /* raise inexact flag */ 99 u.bits.manl &= ~m; 100 } 101 return (u.e); 102} |
103 104#if LDBL_MANT_DIG == 53 105__weak_reference(floor, floorl); 106#endif |
|