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 mantisa */
    return ((f.parts.exp==0xFF)&&(f.parts.mantisa));
};
 
inline int isFloat64NaN(float64 d)
{   /* NaN : exp = 0x7ff and nonzero mantisa */
    return ((d.parts.exp==0x7FF)&&(d.parts.mantisa));
};
 
inline int isFloat32SigNaN(float32 f)
{   /* SigNaN : exp = 0xff mantisa = 1xxxxx..x (binary), where at least one x is nonzero */
    return ((f.parts.exp==0xFF)&&(f.parts.mantisa>0x400000));
};
 
inline int isFloat64SigNaN(float64 d)
{   /* SigNaN : exp = 0x7ff mantisa = 1xxxxx..x (binary), where at least one x is nonzero */
    return ((d.parts.exp==0x7FF)&&(d.parts.mantisa>0x8000000000000ll));
};
 
inline int isFloat32Infinity(float32 f)
{
    return ((f.parts.exp==0xFF)&&(f.parts.mantisa==0x0));
};
 
inline int isFloat64Infinity(float64 d)
{
    return ((d.parts.exp==0x7FF)&&(d.parts.mantisa==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 688 → 697

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