xref: /titanic_52/usr/src/lib/libc/port/fp/quadint.h (revision 7c478bd95313f5f23a4c958a745db2134aa03244)
1*7c478bd9Sstevel@tonic-gate /*
2*7c478bd9Sstevel@tonic-gate  * Copyright (c) 1992, 1993
3*7c478bd9Sstevel@tonic-gate  *	The Regents of the University of California.  All rights reserved.
4*7c478bd9Sstevel@tonic-gate  *
5*7c478bd9Sstevel@tonic-gate  * This software was developed by the Computer Systems Engineering group
6*7c478bd9Sstevel@tonic-gate  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
7*7c478bd9Sstevel@tonic-gate  * contributed to Berkeley.
8*7c478bd9Sstevel@tonic-gate  *
9*7c478bd9Sstevel@tonic-gate  * Redistribution and use in source and binary forms, with or without
10*7c478bd9Sstevel@tonic-gate  * modification, are permitted provided that the following conditions
11*7c478bd9Sstevel@tonic-gate  * are met:
12*7c478bd9Sstevel@tonic-gate  * 1. Redistributions of source code must retain the above copyright
13*7c478bd9Sstevel@tonic-gate  *    notice, this list of conditions and the following disclaimer.
14*7c478bd9Sstevel@tonic-gate  * 2. Redistributions in binary form must reproduce the above copyright
15*7c478bd9Sstevel@tonic-gate  *    notice, this list of conditions and the following disclaimer in the
16*7c478bd9Sstevel@tonic-gate  *    documentation and/or other materials provided with the distribution.
17*7c478bd9Sstevel@tonic-gate  * 3. All advertising materials mentioning features or use of this software
18*7c478bd9Sstevel@tonic-gate  *    must display the following acknowledgement:
19*7c478bd9Sstevel@tonic-gate  *	This product includes software developed by the University of
20*7c478bd9Sstevel@tonic-gate  *	California, Berkeley and its contributors.
21*7c478bd9Sstevel@tonic-gate  * 4. Neither the name of the University nor the names of its contributors
22*7c478bd9Sstevel@tonic-gate  *    may be used to endorse or promote products derived from this software
23*7c478bd9Sstevel@tonic-gate  *    without specific prior written permission.
24*7c478bd9Sstevel@tonic-gate  *
25*7c478bd9Sstevel@tonic-gate  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26*7c478bd9Sstevel@tonic-gate  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27*7c478bd9Sstevel@tonic-gate  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28*7c478bd9Sstevel@tonic-gate  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29*7c478bd9Sstevel@tonic-gate  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30*7c478bd9Sstevel@tonic-gate  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31*7c478bd9Sstevel@tonic-gate  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32*7c478bd9Sstevel@tonic-gate  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33*7c478bd9Sstevel@tonic-gate  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34*7c478bd9Sstevel@tonic-gate  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35*7c478bd9Sstevel@tonic-gate  * SUCH DAMAGE.
36*7c478bd9Sstevel@tonic-gate  *
37*7c478bd9Sstevel@tonic-gate  *	@(#)quad.h	8.1 (Berkeley) 6/4/93
38*7c478bd9Sstevel@tonic-gate  */
39*7c478bd9Sstevel@tonic-gate 
40*7c478bd9Sstevel@tonic-gate /*
41*7c478bd9Sstevel@tonic-gate  * Quad arithmetic.
42*7c478bd9Sstevel@tonic-gate  *
43*7c478bd9Sstevel@tonic-gate  * This library makes the following assumptions:
44*7c478bd9Sstevel@tonic-gate  *
45*7c478bd9Sstevel@tonic-gate  *  - The type long long aka longlong_t exists.
46*7c478bd9Sstevel@tonic-gate  *
47*7c478bd9Sstevel@tonic-gate  *  - A quad variable is exactly twice as long as `long'.
48*7c478bd9Sstevel@tonic-gate  *
49*7c478bd9Sstevel@tonic-gate  *  - The machine's arithmetic is two's complement.
50*7c478bd9Sstevel@tonic-gate  *
51*7c478bd9Sstevel@tonic-gate  * This library can provide 128-bit arithmetic on a machine with 128-bit
52*7c478bd9Sstevel@tonic-gate  * quads and 64-bit longs, for instance, or 96-bit arithmetic on machines
53*7c478bd9Sstevel@tonic-gate  * with 48-bit longs.
54*7c478bd9Sstevel@tonic-gate  */
55*7c478bd9Sstevel@tonic-gate 
56*7c478bd9Sstevel@tonic-gate #ifndef __QUADINT_H
57*7c478bd9Sstevel@tonic-gate #define	__QUADINT_H
58*7c478bd9Sstevel@tonic-gate 
59*7c478bd9Sstevel@tonic-gate #pragma ident	"%Z%%M%	%I%	%E% SMI"
60*7c478bd9Sstevel@tonic-gate 
61*7c478bd9Sstevel@tonic-gate #include <sys/isa_defs.h>
62*7c478bd9Sstevel@tonic-gate #include <sys/types.h>
63*7c478bd9Sstevel@tonic-gate #include <limits.h>
64*7c478bd9Sstevel@tonic-gate 
65*7c478bd9Sstevel@tonic-gate #ifdef __cplusplus
66*7c478bd9Sstevel@tonic-gate extern "C" {
67*7c478bd9Sstevel@tonic-gate #endif
68*7c478bd9Sstevel@tonic-gate 
69*7c478bd9Sstevel@tonic-gate /*
70*7c478bd9Sstevel@tonic-gate  * Define the order of 32-bit words in 64-bit words.
71*7c478bd9Sstevel@tonic-gate  */
72*7c478bd9Sstevel@tonic-gate #ifdef _LONG_LONG_LTOH
73*7c478bd9Sstevel@tonic-gate #define	_QUAD_HIGHWORD 1
74*7c478bd9Sstevel@tonic-gate #define	_QUAD_LOWWORD 0
75*7c478bd9Sstevel@tonic-gate #else
76*7c478bd9Sstevel@tonic-gate #define	_QUAD_HIGHWORD 0
77*7c478bd9Sstevel@tonic-gate #define	_QUAD_LOWWORD 1
78*7c478bd9Sstevel@tonic-gate #endif
79*7c478bd9Sstevel@tonic-gate 
80*7c478bd9Sstevel@tonic-gate /*
81*7c478bd9Sstevel@tonic-gate  * Depending on the desired operation, we view a `long long' in
82*7c478bd9Sstevel@tonic-gate  * one or more of the following formats.
83*7c478bd9Sstevel@tonic-gate  */
84*7c478bd9Sstevel@tonic-gate union uu {
85*7c478bd9Sstevel@tonic-gate 	longlong_t	q;		/* as a (signed) quad */
86*7c478bd9Sstevel@tonic-gate 	u_longlong_t	uq;		/* as an unsigned quad */
87*7c478bd9Sstevel@tonic-gate 	long		sl[2];		/* as two signed longs */
88*7c478bd9Sstevel@tonic-gate 	ulong_t		ul[2];		/* as two unsigned longs */
89*7c478bd9Sstevel@tonic-gate };
90*7c478bd9Sstevel@tonic-gate 
91*7c478bd9Sstevel@tonic-gate /*
92*7c478bd9Sstevel@tonic-gate  * Define high and low longwords.
93*7c478bd9Sstevel@tonic-gate  */
94*7c478bd9Sstevel@tonic-gate #define	H		_QUAD_HIGHWORD
95*7c478bd9Sstevel@tonic-gate #define	L		_QUAD_LOWWORD
96*7c478bd9Sstevel@tonic-gate 
97*7c478bd9Sstevel@tonic-gate /*
98*7c478bd9Sstevel@tonic-gate  * Total number of bits in a longlong_t and in the pieces that make it up.
99*7c478bd9Sstevel@tonic-gate  * These are used for shifting, and also below for halfword extraction
100*7c478bd9Sstevel@tonic-gate  * and assembly.
101*7c478bd9Sstevel@tonic-gate  */
102*7c478bd9Sstevel@tonic-gate #define	QUAD_BITS	(sizeof (u_longlong_t) * CHAR_BIT)
103*7c478bd9Sstevel@tonic-gate #define	LONG_BITS	(sizeof (long) * CHAR_BIT)
104*7c478bd9Sstevel@tonic-gate #define	HALF_BITS	(sizeof (long) * CHAR_BIT / 2)
105*7c478bd9Sstevel@tonic-gate 
106*7c478bd9Sstevel@tonic-gate /*
107*7c478bd9Sstevel@tonic-gate  * Extract high and low shortwords from longword, and move low shortword of
108*7c478bd9Sstevel@tonic-gate  * longword to upper half of long, i.e., produce the upper longword of
109*7c478bd9Sstevel@tonic-gate  * ((longlong_t)(x) << (number_of_bits_in_long/2)).
110*7c478bd9Sstevel@tonic-gate  * (`x' must actually be ulong_t.)
111*7c478bd9Sstevel@tonic-gate  *
112*7c478bd9Sstevel@tonic-gate  * These are used in the multiply code, to split a longword into upper
113*7c478bd9Sstevel@tonic-gate  * and lower halves, and to reassemble a product as a longlong_t, shifted left
114*7c478bd9Sstevel@tonic-gate  * (sizeof(long)*CHAR_BIT/2).
115*7c478bd9Sstevel@tonic-gate  */
116*7c478bd9Sstevel@tonic-gate #define	HHALF(x)	((x) >> HALF_BITS)
117*7c478bd9Sstevel@tonic-gate #define	LHALF(x)	((x) & ((1 << HALF_BITS) - 1))
118*7c478bd9Sstevel@tonic-gate #define	LHUP(x)		((x) << HALF_BITS)
119*7c478bd9Sstevel@tonic-gate 
120*7c478bd9Sstevel@tonic-gate longlong_t	___divdi3(longlong_t a, longlong_t b);
121*7c478bd9Sstevel@tonic-gate longlong_t	___moddi3(longlong_t a, longlong_t b);
122*7c478bd9Sstevel@tonic-gate u_longlong_t	___qdivrem(u_longlong_t u, u_longlong_t v, u_longlong_t *rem);
123*7c478bd9Sstevel@tonic-gate u_longlong_t	___udivdi3(u_longlong_t a, u_longlong_t b);
124*7c478bd9Sstevel@tonic-gate u_longlong_t	___umoddi3(u_longlong_t a, u_longlong_t b);
125*7c478bd9Sstevel@tonic-gate 
126*7c478bd9Sstevel@tonic-gate typedef unsigned int	qshift_t;
127*7c478bd9Sstevel@tonic-gate 
128*7c478bd9Sstevel@tonic-gate #ifdef __cplusplus
129*7c478bd9Sstevel@tonic-gate }
130*7c478bd9Sstevel@tonic-gate #endif
131*7c478bd9Sstevel@tonic-gate 
132*7c478bd9Sstevel@tonic-gate #endif	/* !__QUADINT_H */
133