s_trunc.c (7ffaea80214760846ec28f383577ac7ba546921a) s_trunc.c (5014f8ded47a5e6d770ca588a2b929dff2617667)
1/* @(#)s_floor.c 5.1 93/09/24 */
2/*
3 * ====================================================
4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5 *
6 * Developed at SunPro, a Sun Microsystems, Inc. business.
7 * Permission to use, copy, modify, and distribute this
8 * software is freely granted, provided that this notice

--- 45 unchanged lines hidden (view full) ---

54 i = ((u_int32_t)(0xffffffff))>>(j0-20);
55 if((i1&i)==0) return x; /* x is integral */
56 if(huge+x>0.0) /* raise inexact flag */
57 i1 &= (~i);
58 }
59 INSERT_WORDS(x,i0,i1);
60 return x;
61}
1/* @(#)s_floor.c 5.1 93/09/24 */
2/*
3 * ====================================================
4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5 *
6 * Developed at SunPro, a Sun Microsystems, Inc. business.
7 * Permission to use, copy, modify, and distribute this
8 * software is freely granted, provided that this notice

--- 45 unchanged lines hidden (view full) ---

54 i = ((u_int32_t)(0xffffffff))>>(j0-20);
55 if((i1&i)==0) return x; /* x is integral */
56 if(huge+x>0.0) /* raise inexact flag */
57 i1 &= (~i);
58 }
59 INSERT_WORDS(x,i0,i1);
60 return x;
61}
62
63#if LDBL_MANT_DIG == 53
64__weak_reference(trunc, truncl);
65#endif