URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [sf_trunc.c] - Rev 179
Go to most recent revision | Compare with Previous | Blame | View Log
/* * ==================================================== * 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 "fdlibm.h" #ifdef __STDC__ float truncf(float x) #else float truncf(x) float x; #endif { __int32_t signbit, w, exponent_less_127; GET_FLOAT_WORD(w,x); /* Extract sign bit. */ signbit = w & 0x80000000; /* Extract exponent field. */ exponent_less_127 = ((w & 0x7f800000) >> 23) - 127; if (exponent_less_127 < 23) { if (exponent_less_127 < 0) { /* -1 < x < 1, so result is +0 or -0. */ SET_FLOAT_WORD(x, signbit); } else { SET_FLOAT_WORD(x, signbit | (w & ~(0x007fffff >> exponent_less_127))); } } else { if (exponent_less_127 == 255) /* x is NaN or infinite. */ return x + x; /* All bits in the fraction field are relevant. */ } return x; } #ifdef _DOUBLE_IS_32BITS #ifdef __STDC__ double trunc(double x) #else double trunc(x) double x; #endif { return (double) truncf((float) x); } #endif /* defined(_DOUBLE_IS_32BITS) */
Go to most recent revision | Compare with Previous | Blame | View Log