1 /* IEEE754 floating point arithmetic 2 * single precision 3 */ 4 /* 5 * MIPS floating point support 6 * Copyright (C) 1994-2000 Algorithmics Ltd. 7 * 8 * This program is free software; you can distribute it and/or modify it 9 * under the terms of the GNU General Public License (Version 2) as 10 * published by the Free Software Foundation. 11 * 12 * This program is distributed in the hope it will be useful, but WITHOUT 13 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 14 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 15 * for more details. 16 * 17 * You should have received a copy of the GNU General Public License along 18 * with this program; if not, write to the Free Software Foundation, Inc., 19 * 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. 20 */ 21 22 #include "ieee754sp.h" 23 24 union ieee754sp ieee754sp_neg(union ieee754sp x) 25 { 26 COMPXSP; 27 28 EXPLODEXSP; 29 ieee754_clearcx(); 30 FLUSHXSP; 31 32 /* 33 * Invert the sign ALWAYS to prevent an endless recursion on 34 * pow() in libc. 35 */ 36 /* quick fix up */ 37 SPSIGN(x) ^= 1; 38 39 if (xc == IEEE754_CLASS_SNAN) { 40 union ieee754sp y = ieee754sp_indef(); 41 ieee754_setcx(IEEE754_INVALID_OPERATION); 42 SPSIGN(y) = SPSIGN(x); 43 return ieee754sp_nanxcpt(y); 44 } 45 46 return x; 47 } 48 49 union ieee754sp ieee754sp_abs(union ieee754sp x) 50 { 51 COMPXSP; 52 53 EXPLODEXSP; 54 ieee754_clearcx(); 55 FLUSHXSP; 56 57 /* Clear sign ALWAYS, irrespective of NaN */ 58 SPSIGN(x) = 0; 59 60 if (xc == IEEE754_CLASS_SNAN) { 61 ieee754_setcx(IEEE754_INVALID_OPERATION); 62 return ieee754sp_nanxcpt(ieee754sp_indef()); 63 } 64 65 return x; 66 } 67