 1da177e4c3
			
		
	
	
	1da177e4c3
	
	
	
		
			
			Initial git repository build. I'm not bothering with the full history, even though we have it. We can create a separate "historical" git archive of that later if we want to, and in the meantime it's about 3.2GB when imported into git - space that would just make the early git days unnecessarily complicated, when we don't have a lot of good infrastructure for it. Let it rip!
		
			
				
	
	
		
			67 lines
		
	
	
	
		
			1.8 KiB
			
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			67 lines
		
	
	
	
		
			1.8 KiB
			
		
	
	
	
		
			C
		
	
	
	
	
	
| /* IEEE754 floating point arithmetic
 | |
|  * single precision
 | |
|  */
 | |
| /*
 | |
|  * MIPS floating point support
 | |
|  * Copyright (C) 1994-2000 Algorithmics Ltd.
 | |
|  * http://www.algor.co.uk
 | |
|  *
 | |
|  * ########################################################################
 | |
|  *
 | |
|  *  This program is free software; you can distribute it and/or modify it
 | |
|  *  under the terms of the GNU General Public License (Version 2) as
 | |
|  *  published by the Free Software Foundation.
 | |
|  *
 | |
|  *  This program is distributed in the hope it will be useful, but WITHOUT
 | |
|  *  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 | |
|  *  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 | |
|  *  for more details.
 | |
|  *
 | |
|  *  You should have received a copy of the GNU General Public License along
 | |
|  *  with this program; if not, write to the Free Software Foundation, Inc.,
 | |
|  *  59 Temple Place - Suite 330, Boston MA 02111-1307, USA.
 | |
|  *
 | |
|  * ########################################################################
 | |
|  */
 | |
| 
 | |
| 
 | |
| #include "ieee754sp.h"
 | |
| 
 | |
| int ieee754sp_cmp(ieee754sp x, ieee754sp y, int cmp, int sig)
 | |
| {
 | |
| 	COMPXSP;
 | |
| 	COMPYSP;
 | |
| 
 | |
| 	EXPLODEXSP;
 | |
| 	EXPLODEYSP;
 | |
| 	FLUSHXSP;
 | |
| 	FLUSHYSP;
 | |
| 	CLEARCX;	/* Even clear inexact flag here */
 | |
| 
 | |
| 	if (ieee754sp_isnan(x) || ieee754sp_isnan(y)) {
 | |
| 		if (sig || xc == IEEE754_CLASS_SNAN || yc == IEEE754_CLASS_SNAN)
 | |
| 			SETCX(IEEE754_INVALID_OPERATION);
 | |
| 		if (cmp & IEEE754_CUN)
 | |
| 			return 1;
 | |
| 		if (cmp & (IEEE754_CLT | IEEE754_CGT)) {
 | |
| 			if (sig && SETANDTESTCX(IEEE754_INVALID_OPERATION))
 | |
| 				return ieee754si_xcpt(0, "fcmpf", x);
 | |
| 		}
 | |
| 		return 0;
 | |
| 	} else {
 | |
| 		int vx = x.bits;
 | |
| 		int vy = y.bits;
 | |
| 
 | |
| 		if (vx < 0)
 | |
| 			vx = -vx ^ SP_SIGN_BIT;
 | |
| 		if (vy < 0)
 | |
| 			vy = -vy ^ SP_SIGN_BIT;
 | |
| 
 | |
| 		if (vx < vy)
 | |
| 			return (cmp & IEEE754_CLT) != 0;
 | |
| 		else if (vx == vy)
 | |
| 			return (cmp & IEEE754_CEQ) != 0;
 | |
| 		else
 | |
| 			return (cmp & IEEE754_CGT) != 0;
 | |
| 	}
 | |
| }
 |