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.
 */
 
#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 734 → 804

Rev 734		Rev 804
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	#include<sftypes.h>	29	#include<sftypes.h>
30	#include<comparison.h>	30	#include<comparison.h>
31		31
32	inline int isFloat32NaN(float32 f)	32	inline int isFloat32NaN(float32 f)
33	{ /* NaN : exp = 0xff and nonzero mantisa */	33	{ /* NaN : exp = 0xff and nonzero fraction */
34	return ((f.parts.exp==0xFF)&&(f.parts.mantisa));	34	return ((f.parts.exp==0xFF)&&(f.parts.fraction));
35	};	35	};
36		36
37	inline int isFloat64NaN(float64 d)	37	inline int isFloat64NaN(float64 d)
38	{ /* NaN : exp = 0x7ff and nonzero mantisa */	38	{ /* NaN : exp = 0x7ff and nonzero fraction */
39	return ((d.parts.exp==0x7FF)&&(d.parts.mantisa));	39	return ((d.parts.exp==0x7FF)&&(d.parts.fraction));
40	};	40	};
41		41
42	inline int isFloat32SigNaN(float32 f)	42	inline int isFloat32SigNaN(float32 f)
43	{ /* SigNaN : exp = 0xff mantisa = 0xxxxx..x (binary), where at least one x is nonzero */	43	{ /* SigNaN : exp = 0xff fraction = 0xxxxx..x (binary), where at least one x is nonzero */
44	return ((f.parts.exp==0xFF)&&(f.parts.mantisa<0x400000)&&(f.parts.mantisa));	44	return ((f.parts.exp==0xFF)&&(f.parts.fraction<0x400000)&&(f.parts.fraction));
45	};	45	};
46		46
47	inline int isFloat64SigNaN(float64 d)	47	inline int isFloat64SigNaN(float64 d)
48	{ /* SigNaN : exp = 0x7ff mantisa = 0xxxxx..x (binary), where at least one x is nonzero */	48	{ /* SigNaN : exp = 0x7ff fraction = 0xxxxx..x (binary), where at least one x is nonzero */
49	return ((d.parts.exp==0x7FF)&&(d.parts.mantisa)&&(d.parts.mantisa<0x8000000000000ll));	49	return ((d.parts.exp==0x7FF)&&(d.parts.fraction)&&(d.parts.fraction<0x8000000000000ll));
50	};	50	};
51		51
52	inline int isFloat32Infinity(float32 f)	52	inline int isFloat32Infinity(float32 f)
53	{	53	{
54	return ((f.parts.exp==0xFF)&&(f.parts.mantisa==0x0));	54	return ((f.parts.exp==0xFF)&&(f.parts.fraction==0x0));
55	};	55	};
56		56
57	inline int isFloat64Infinity(float64 d)	57	inline int isFloat64Infinity(float64 d)
58	{	58	{
59	return ((d.parts.exp==0x7FF)&&(d.parts.mantisa==0x0));	59	return ((d.parts.exp==0x7FF)&&(d.parts.fraction==0x0));
60	};	60	};
61		61
62	inline int isFloat32Zero(float32 f)	62	inline int isFloat32Zero(float32 f)
63	{	63	{
64	return (((f.binary) & 0x7FFFFFFF) == 0);	64	return (((f.binary) & 0x7FFFFFFF) == 0);
65	}	65	}
66		66
67	inline int isFloat64Zero(float64 d)	67	inline int isFloat64Zero(float64 d)
68	{	68	{
69	return (((d.binary) & 0x7FFFFFFFFFFFFFFFll) == 0);	69	return (((d.binary) & 0x7FFFFFFFFFFFFFFFll) == 0);
70	}	70	}
71		71
72	/**	72	/**
73	* @return 1, if both floats are equal - but NaNs are not recognized	73	* @return 1, if both floats are equal - but NaNs are not recognized
74	*/	74	*/
75	inline int isFloat32eq(float32 a, float32 b)	75	inline int isFloat32eq(float32 a, float32 b)
76	{	76	{
77	return ((a.binary==b.binary)\|\|(((a.binary\| b.binary)&0x7FFFFFFF)==0)); /* a equals to b or both are zeros (with any sign) */	77	return ((a.binary==b.binary)\|\|(((a.binary\| b.binary)&0x7FFFFFFF)==0)); /* a equals to b or both are zeros (with any sign) */
78	}	78	}
79		79
80	/**	80	/**
81	* @return 1, if a<b - but NaNs are not recognized	81	* @return 1, if a<b - but NaNs are not recognized
82	*/	82	*/
83	inline int isFloat32lt(float32 a, float32 b)	83	inline int isFloat32lt(float32 a, float32 b)
84	{	84	{
85	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {	85	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {
86	return 0; /* +- zeroes */	86	return 0; /* +- zeroes */
87	};	87	};
88		88
89	if ((a.parts.sign)&&(b.parts.sign)) {	89	if ((a.parts.sign)&&(b.parts.sign)) {
90	/if both are negative, smaller is that with greater binary value/	90	/if both are negative, smaller is that with greater binary value/
91	return (a.binary>b.binary);	91	return (a.binary>b.binary);
92	};	92	};
93		93
94	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/	94	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/
95	a.parts.sign=!a.parts.sign;	95	a.parts.sign=!a.parts.sign;
96	b.parts.sign=!b.parts.sign;	96	b.parts.sign=!b.parts.sign;
97	return (a.binary<b.binary);	97	return (a.binary<b.binary);
98		98
99	}	99	}
100		100
101	/**	101	/**
102	* @return 1, if a>b - but NaNs are not recognized	102	* @return 1, if a>b - but NaNs are not recognized
103	*/	103	*/
104	inline int isFloat32gt(float32 a, float32 b)	104	inline int isFloat32gt(float32 a, float32 b)
105	{	105	{
106	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {	106	if (((a.binary\| b.binary)&0x7FFFFFFF)==0) {
107	return 0; /* zeroes are equal with any sign */	107	return 0; /* zeroes are equal with any sign */
108	};	108	};
109		109
110	if ((a.parts.sign)&&(b.parts.sign)) {	110	if ((a.parts.sign)&&(b.parts.sign)) {
111	/if both are negative, greater is that with smaller binary value/	111	/if both are negative, greater is that with smaller binary value/
112	return (a.binary<b.binary);	112	return (a.binary<b.binary);
113	};	113	};
114		114
115	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/	115	/* lets negate signs - now will be positive numbers allways bigger than negative (first bit will be set for unsigned integer comparison)*/
116	a.parts.sign=!a.parts.sign;	116	a.parts.sign=!a.parts.sign;
117	b.parts.sign=!b.parts.sign;	117	b.parts.sign=!b.parts.sign;
118	return (a.binary>b.binary);	118	return (a.binary>b.binary);
119		119
120	}	120	}
121		121
122		122
123		123
124		124