1*25c28e83SPiotr Jasiukajtis /*
2*25c28e83SPiotr Jasiukajtis  * CDDL HEADER START
3*25c28e83SPiotr Jasiukajtis  *
4*25c28e83SPiotr Jasiukajtis  * The contents of this file are subject to the terms of the
5*25c28e83SPiotr Jasiukajtis  * Common Development and Distribution License (the "License").
6*25c28e83SPiotr Jasiukajtis  * You may not use this file except in compliance with the License.
7*25c28e83SPiotr Jasiukajtis  *
8*25c28e83SPiotr Jasiukajtis  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9*25c28e83SPiotr Jasiukajtis  * or http://www.opensolaris.org/os/licensing.
10*25c28e83SPiotr Jasiukajtis  * See the License for the specific language governing permissions
11*25c28e83SPiotr Jasiukajtis  * and limitations under the License.
12*25c28e83SPiotr Jasiukajtis  *
13*25c28e83SPiotr Jasiukajtis  * When distributing Covered Code, include this CDDL HEADER in each
14*25c28e83SPiotr Jasiukajtis  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15*25c28e83SPiotr Jasiukajtis  * If applicable, add the following below this CDDL HEADER, with the
16*25c28e83SPiotr Jasiukajtis  * fields enclosed by brackets "[]" replaced with your own identifying
17*25c28e83SPiotr Jasiukajtis  * information: Portions Copyright [yyyy] [name of copyright owner]
18*25c28e83SPiotr Jasiukajtis  *
19*25c28e83SPiotr Jasiukajtis  * CDDL HEADER END
20*25c28e83SPiotr Jasiukajtis  */
21*25c28e83SPiotr Jasiukajtis /*
22*25c28e83SPiotr Jasiukajtis  * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
23*25c28e83SPiotr Jasiukajtis  */
24*25c28e83SPiotr Jasiukajtis /*
25*25c28e83SPiotr Jasiukajtis  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
26*25c28e83SPiotr Jasiukajtis  * Use is subject to license terms.
27*25c28e83SPiotr Jasiukajtis  */
28*25c28e83SPiotr Jasiukajtis 
29*25c28e83SPiotr Jasiukajtis #ifndef _LIBM_MACROS_H
30*25c28e83SPiotr Jasiukajtis #define	_LIBM_MACROS_H
31*25c28e83SPiotr Jasiukajtis 
32*25c28e83SPiotr Jasiukajtis #include <sys/isa_defs.h>
33*25c28e83SPiotr Jasiukajtis 
34*25c28e83SPiotr Jasiukajtis #if defined(__sparc)
35*25c28e83SPiotr Jasiukajtis 
36*25c28e83SPiotr Jasiukajtis #define	HIWORD		0
37*25c28e83SPiotr Jasiukajtis #define	LOWORD		1
38*25c28e83SPiotr Jasiukajtis #define	HIXWORD		0		/* index of int containing exponent */
39*25c28e83SPiotr Jasiukajtis #define	XSGNMSK		0x80000000	/* exponent bit mask within the int */
40*25c28e83SPiotr Jasiukajtis #define	XBIASED_EXP(x)	((((int *)&x)[HIXWORD] & ~0x80000000) >> 16)
41*25c28e83SPiotr Jasiukajtis #define	ISZEROL(x)	(((((int *)&x)[0] & ~XSGNMSK) | ((int *)&x)[1] | \
42*25c28e83SPiotr Jasiukajtis 				((int *)&x)[2] | ((int *)&x)[3]) == 0)
43*25c28e83SPiotr Jasiukajtis 
44*25c28e83SPiotr Jasiukajtis #elif defined(__x86)
45*25c28e83SPiotr Jasiukajtis 
46*25c28e83SPiotr Jasiukajtis #define	HIWORD		1
47*25c28e83SPiotr Jasiukajtis #define	LOWORD		0
48*25c28e83SPiotr Jasiukajtis #define	HIXWORD		2
49*25c28e83SPiotr Jasiukajtis #define	XSGNMSK		0x8000
50*25c28e83SPiotr Jasiukajtis #define	XBIASED_EXP(x)	(((int *)&x)[HIXWORD] & 0x7fff)
51*25c28e83SPiotr Jasiukajtis #define	ISZEROL(x)	(x == 0.0L)
52*25c28e83SPiotr Jasiukajtis 
53*25c28e83SPiotr Jasiukajtis #define	HANDLE_UNSUPPORTED
54*25c28e83SPiotr Jasiukajtis 
55*25c28e83SPiotr Jasiukajtis /*
56*25c28e83SPiotr Jasiukajtis  * "convert" the high-order 32 bits of a SPARC quad precision
57*25c28e83SPiotr Jasiukajtis  * value ("I") to the sign, exponent, and high-order bits of an
58*25c28e83SPiotr Jasiukajtis  * x86 extended double precision value ("E"); the low-order bits
59*25c28e83SPiotr Jasiukajtis  * in the 12-byte quantity are left intact
60*25c28e83SPiotr Jasiukajtis  */
61*25c28e83SPiotr Jasiukajtis #define	ITOX(I, E)       \
62*25c28e83SPiotr Jasiukajtis 		E[2] = 0xffff & ((I) >> 16); \
63*25c28e83SPiotr Jasiukajtis 		E[1] = (((I) & 0x7fff0000) == 0)? \
64*25c28e83SPiotr Jasiukajtis 		    (E[1] & 0x7fff) | (0x7fff8000 & ((I) << 15)) :\
65*25c28e83SPiotr Jasiukajtis 		    0x80000000 | (E[1] & 0x7fff) | (0x7fff8000 & ((I) << 15))
66*25c28e83SPiotr Jasiukajtis 
67*25c28e83SPiotr Jasiukajtis /*
68*25c28e83SPiotr Jasiukajtis  * "convert" the sign, exponent, and high-order bits of an x86
69*25c28e83SPiotr Jasiukajtis  * extended double precision value ("E") to the high-order 32 bits
70*25c28e83SPiotr Jasiukajtis  * of a SPARC quad precision value ("I")
71*25c28e83SPiotr Jasiukajtis  */
72*25c28e83SPiotr Jasiukajtis #define	XTOI(E, I)	\
73*25c28e83SPiotr Jasiukajtis 		I = ((E[2]<<16) | (0xffff & (E[1]>>15)))
74*25c28e83SPiotr Jasiukajtis 
75*25c28e83SPiotr Jasiukajtis #else
76*25c28e83SPiotr Jasiukajtis #error Unknown architecture
77*25c28e83SPiotr Jasiukajtis #endif
78*25c28e83SPiotr Jasiukajtis 
79*25c28e83SPiotr Jasiukajtis #endif	/* _LIBM_MACROS_H */