WebSVN – HelenOS-historic – Diff – /uspace/trunk/softfloat/generic/comparison.c


/*
 * Copyright (C) 2005 Josef Cejka
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */
 
/** @addtogroup softfloat  
 * @{
 */
/** @file
 */
 
#include<sftypes.h>
#include<comparison.h>
 
inline int isFloat32NaN(float32 f)
{   /* NaN : exp = 0xff and nonzero fraction */
    return ((f.parts.exp==0xFF)&&(f.parts.fraction));
}
 
inline int isFloat64NaN(float64 d)
{   /* NaN : exp = 0x7ff and nonzero fraction */
    return ((d.parts.exp==0x7FF)&&(d.parts.fraction));
}
 
inline int isFloat32SigNaN(float32 f)
{   /* SigNaN : exp = 0xff fraction = 0xxxxx..x (binary), where at least one x is nonzero */
    return ((f.parts.exp==0xFF)&&(f.parts.fraction<0x400000)&&(f.parts.fraction));
}
 
inline int isFloat64SigNaN(float64 d)
{   /* SigNaN : exp = 0x7ff fraction = 0xxxxx..x (binary), where at least one x is nonzero */
    return ((d.parts.exp==0x7FF)&&(d.parts.fraction)&&(d.parts.fraction<0x8000000000000ll));
}
 
inline int isFloat32Infinity(float32 f)
{
    return ((f.parts.exp==0xFF)&&(f.parts.fraction==0x0));
}
 
inline int isFloat64Infinity(float64 d)
{
    return ((d.parts.exp==0x7FF)&&(d.parts.fraction==0x0));
}
 
inline int isFloat32Zero(float32 f)
{
    return (((f.binary) & 0x7FFFFFFF) == 0);
}
 
inline int isFloat64Zero(float64 d)
{
    return (((d.binary) & 0x7FFFFFFFFFFFFFFFll) == 0);
}
 
/**
 * @return 1, if both floats are equal - but NaNs are not recognized
 */
inline int isFloat32eq(float32 a, float32 b)
{
    return ((a.binary==b.binary)||(((a.binary| b.binary)&0x7FFFFFFF)==0)); /* a equals to b or both are zeros (with any sign) */
}
 
/**
 * @return 1, if a<b - but NaNs are not recognized
 */
inline int isFloat32lt(float32 a, float32 b)
{
    if (((a.binary| b.binary)&0x7FFFFFFF)==0) {
        return 0; /* +- zeroes */
    };
   
    if ((a.parts.sign)&&(b.parts.sign)) {
        /*if both are negative, smaller is that with greater binary value*/
        return (a.binary>b.binary);
        };
   
    /* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/
    a.parts.sign=!a.parts.sign;
    b.parts.sign=!b.parts.sign;
    return (a.binary<b.binary);
           
}
 
/**
 * @return 1, if a>b - but NaNs are not recognized
 */
inline int isFloat32gt(float32 a, float32 b)
{
    if (((a.binary| b.binary)&0x7FFFFFFF)==0) {
        return 0; /* zeroes are equal with any sign */
    };
   
    if ((a.parts.sign)&&(b.parts.sign)) {
        /*if both are negative, greater is that with smaller binary value*/
        return (a.binary<b.binary);
        };
   
    /* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/
    a.parts.sign=!a.parts.sign;
    b.parts.sign=!b.parts.sign;
    return (a.binary>b.binary);
           
}
 
 
 
 
/** @}
 */
 
 

Subversion Repositories HelenOS-historic

(root)/uspace/trunk/softfloat/generic/comparison.c – Rev 1657 → 1740

Rev 1657		Rev 1740
1	/*	1	/*
2	* Copyright (C) 2005 Josef Cejka	2	* Copyright (C) 2005 Josef Cejka
3	* All rights reserved.	3	* All rights reserved.
4	*	4	*
5	* Redistribution and use in source and binary forms, with or without	5	* Redistribution and use in source and binary forms, with or without
6	* modification, are permitted provided that the following conditions	6	* modification, are permitted provided that the following conditions
7	* are met:	7	* are met:
8	*	8	*
9	* - Redistributions of source code must retain the above copyright	9	* - Redistributions of source code must retain the above copyright
10	* notice, this list of conditions and the following disclaimer.	10	* notice, this list of conditions and the following disclaimer.
11	* - Redistributions in binary form must reproduce the above copyright	11	* - Redistributions in binary form must reproduce the above copyright
12	* notice, this list of conditions and the following disclaimer in the	12	* notice, this list of conditions and the following disclaimer in the
13	* documentation and/or other materials provided with the distribution.	13	* documentation and/or other materials provided with the distribution.
14	* - The name of the author may not be used to endorse or promote products	14	* - The name of the author may not be used to endorse or promote products
15	* derived from this software without specific prior written permission.	15	* derived from this software without specific prior written permission.
16	*	16	*
17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR	17	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES	18	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.	19	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,	20	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT	21	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,	22	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY	23	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT	24	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF	25	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.	26	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27	*/	27	*/
28		28
29	/** @addtogroup softfloat	29	/** @addtogroup softfloat
30	* @{	30	* @{
31	*/	31	*/
32	/** @file	32	/** @file
33	*/	33	*/
34		34
35	#include<sftypes.h>	35	#include<sftypes.h>
36	#include<comparison.h>	36	#include<comparison.h>
37		37
38	inline int isFloat32NaN(float32 f)	38	inline int isFloat32NaN(float32 f)
39	{ /* NaN : exp = 0xff and nonzero fraction */	39	{ /* NaN : exp = 0xff and nonzero fraction */
40	return ((f.parts.exp==0xFF)&&(f.parts.fraction));	40	return ((f.parts.exp==0xFF)&&(f.parts.fraction));
41	}	41	}
42		42
43	inline int isFloat64NaN(float64 d)	43	inline int isFloat64NaN(float64 d)
44	{ /* NaN : exp = 0x7ff and nonzero fraction */	44	{ /* NaN : exp = 0x7ff and nonzero fraction */
45	return ((d.parts.exp==0x7FF)&&(d.parts.fraction));	45	return ((d.parts.exp==0x7FF)&&(d.parts.fraction));
46	}	46	}
47		47
48	inline int isFloat32SigNaN(float32 f)	48	inline int isFloat32SigNaN(float32 f)
49	{ /* SigNaN : exp = 0xff fraction = 0xxxxx..x (binary), where at least one x is nonzero */	49	{ /* SigNaN : exp = 0xff fraction = 0xxxxx..x (binary), where at least one x is nonzero */
50	return ((f.parts.exp==0xFF)&&(f.parts.fraction<0x400000)&&(f.parts.fraction));	50	return ((f.parts.exp==0xFF)&&(f.parts.fraction<0x400000)&&(f.parts.fraction));
51	}	51	}
52		52
53	inline int isFloat64SigNaN(float64 d)	53	inline int isFloat64SigNaN(float64 d)
54	{ /* SigNaN : exp = 0x7ff fraction = 0xxxxx..x (binary), where at least one x is nonzero */	54	{ /* SigNaN : exp = 0x7ff fraction = 0xxxxx..x (binary), where at least one x is nonzero */
55	return ((d.parts.exp==0x7FF)&&(d.parts.fraction)&&(d.parts.fraction<0x8000000000000ll));	55	return ((d.parts.exp==0x7FF)&&(d.parts.fraction)&&(d.parts.fraction<0x8000000000000ll));
56	}	56	}
57		57
58	inline int isFloat32Infinity(float32 f)	58	inline int isFloat32Infinity(float32 f)
59	{	59	{
60	return ((f.parts.exp==0xFF)&&(f.parts.fraction==0x0));	60	return ((f.parts.exp==0xFF)&&(f.parts.fraction==0x0));
61	}	61	}
62		62
63	inline int isFloat64Infinity(float64 d)	63	inline int isFloat64Infinity(float64 d)
64	{	64	{
65	return ((d.parts.exp==0x7FF)&&(d.parts.fraction==0x0));	65	return ((d.parts.exp==0x7FF)&&(d.parts.fraction==0x0));
66	}	66	}
67		67
68	inline int isFloat32Zero(float32 f)	68	inline int isFloat32Zero(float32 f)
69	{	69	{
70	return (((f.binary) & 0x7FFFFFFF) == 0);	70	return (((f.binary) & 0x7FFFFFFF) == 0);
71	}	71	}
72		72
73	inline int isFloat64Zero(float64 d)	73	inline int isFloat64Zero(float64 d)
74	{	74	{
75	return (((d.binary) & 0x7FFFFFFFFFFFFFFFll) == 0);	75	return (((d.binary) & 0x7FFFFFFFFFFFFFFFll) == 0);
76	}	76	}
77		77
78	/**	78	/**
79	* @return 1, if both floats are equal - but NaNs are not recognized	79	* @return 1, if both floats are equal - but NaNs are not recognized
80	*/	80	*/
81	inline int isFloat32eq(float32 a, float32 b)	81	inline int isFloat32eq(float32 a, float32 b)
82	{	82	{
83	return ((a.binary==b.binary)\|\|(((a.binary\| b.binary)&0x7FFFFFFF)==0)); /* a equals to b or both are zeros (with any sign) */	83	return ((a.binary==b.binary)\|\|(((a.binary\| b.binary)&0x7FFFFFFF)==0)); /* a equals to b or both are zeros (with any sign) */
84	}	84	}
85		85
86	/**	86	/**
87	* @return 1, if a<b - but NaNs are not recognized	87	* @return 1, if a<b - but NaNs are not recognized
88	*/	88	*/
89	inline int isFloat32lt(float32 a, float32 b)	89	inline int isFloat32lt(float32 a, float32 b)
90	{	90	{
91	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {	91	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {
92	return 0; /* +- zeroes */	92	return 0; /* +- zeroes */
93	};	93	};
94		94
95	if ((a.parts.sign)&&(b.parts.sign)) {	95	if ((a.parts.sign)&&(b.parts.sign)) {
96	/if both are negative, smaller is that with greater binary value/	96	/if both are negative, smaller is that with greater binary value/
97	return (a.binary>b.binary);	97	return (a.binary>b.binary);
98	};	98	};
99		99
100	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/	100	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/
101	a.parts.sign=!a.parts.sign;	101	a.parts.sign=!a.parts.sign;
102	b.parts.sign=!b.parts.sign;	102	b.parts.sign=!b.parts.sign;
103	return (a.binary<b.binary);	103	return (a.binary<b.binary);
104		104
105	}	105	}
106		106
107	/**	107	/**
108	* @return 1, if a>b - but NaNs are not recognized	108	* @return 1, if a>b - but NaNs are not recognized
109	*/	109	*/
110	inline int isFloat32gt(float32 a, float32 b)	110	inline int isFloat32gt(float32 a, float32 b)
111	{	111	{
112	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {	112	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {
113	return 0; /* zeroes are equal with any sign */	113	return 0; /* zeroes are equal with any sign */
114	};	114	};
115		115
116	if ((a.parts.sign)&&(b.parts.sign)) {	116	if ((a.parts.sign)&&(b.parts.sign)) {
117	/if both are negative, greater is that with smaller binary value/	117	/if both are negative, greater is that with smaller binary value/
118	return (a.binary<b.binary);	118	return (a.binary<b.binary);
119	};	119	};
120		120
121	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/	121	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/
122	a.parts.sign=!a.parts.sign;	122	a.parts.sign=!a.parts.sign;
123	b.parts.sign=!b.parts.sign;	123	b.parts.sign=!b.parts.sign;
124	return (a.binary>b.binary);	124	return (a.binary>b.binary);
125		125
126	}	126	}
127		127
128		-
129		-
130		-
131	/** @}	128	/** @}
132	*/	129	*/
133		-
134		130