ieee.h revision 1.16 1 1.16 christos /* $NetBSD: ieee.h,v 1.16 2010/09/20 16:13:35 christos Exp $ */
2 1.1 ws
3 1.1 ws /*
4 1.1 ws * Copyright (c) 1992, 1993
5 1.1 ws * The Regents of the University of California. All rights reserved.
6 1.1 ws *
7 1.1 ws * This software was developed by the Computer Systems Engineering group
8 1.1 ws * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
9 1.1 ws * contributed to Berkeley.
10 1.1 ws *
11 1.1 ws * All advertising materials mentioning features or use of this software
12 1.1 ws * must display the following acknowledgement:
13 1.1 ws * This product includes software developed by the University of
14 1.1 ws * California, Lawrence Berkeley Laboratory.
15 1.1 ws *
16 1.1 ws * Redistribution and use in source and binary forms, with or without
17 1.1 ws * modification, are permitted provided that the following conditions
18 1.1 ws * are met:
19 1.1 ws * 1. Redistributions of source code must retain the above copyright
20 1.1 ws * notice, this list of conditions and the following disclaimer.
21 1.1 ws * 2. Redistributions in binary form must reproduce the above copyright
22 1.1 ws * notice, this list of conditions and the following disclaimer in the
23 1.1 ws * documentation and/or other materials provided with the distribution.
24 1.2 agc * 3. Neither the name of the University nor the names of its contributors
25 1.1 ws * may be used to endorse or promote products derived from this software
26 1.1 ws * without specific prior written permission.
27 1.1 ws *
28 1.1 ws * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
29 1.1 ws * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
30 1.1 ws * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
31 1.1 ws * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
32 1.1 ws * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
33 1.1 ws * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
34 1.1 ws * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
35 1.1 ws * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
36 1.1 ws * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
37 1.1 ws * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 1.1 ws * SUCH DAMAGE.
39 1.1 ws *
40 1.1 ws * @(#)ieee.h 8.1 (Berkeley) 6/11/93
41 1.1 ws */
42 1.1 ws
43 1.1 ws /*
44 1.1 ws * ieee.h defines the machine-dependent layout of the machine's IEEE
45 1.1 ws * floating point. It does *not* define (yet?) any of the rounding
46 1.1 ws * mode bits, exceptions, and so forth.
47 1.1 ws */
48 1.1 ws
49 1.6 kleink #include <sys/ieee754.h>
50 1.1 ws
51 1.10 kleink #if !defined(__mc68010__) || defined(_KERNEL)
52 1.1 ws #define EXT_EXPBITS 15
53 1.14 mhitch #define EXT_FRACHBITS 32
54 1.13 mhitch #define EXT_FRACLBITS 32
55 1.13 mhitch #define EXT_FRACBITS (EXT_FRACLBITS + EXT_FRACHBITS)
56 1.13 mhitch
57 1.13 mhitch #define EXT_TO_ARRAY32(u, a) do { \
58 1.15 mhitch (a)[0] = (uint32_t)(u).extu_ext.ext_fracl; \
59 1.15 mhitch (a)[1] = (uint32_t)(u).extu_ext.ext_frach; \
60 1.13 mhitch } while(/*CONSTCOND*/0)
61 1.1 ws
62 1.1 ws struct ieee_ext {
63 1.1 ws u_int ext_sign:1;
64 1.13 mhitch u_int ext_exp:EXT_EXPBITS;
65 1.3 kleink u_int ext_zero:16;
66 1.13 mhitch #if 0
67 1.4 kleink u_int ext_int:1;
68 1.13 mhitch #endif
69 1.13 mhitch u_int ext_frach;
70 1.1 ws u_int ext_fracl;
71 1.1 ws };
72 1.1 ws
73 1.1 ws /*
74 1.6 kleink * Extended floats whose exponent is in [0..INFNAN) and have their
75 1.6 kleink * explicit integer bit (the most significant bit of the fraction)
76 1.6 kleink * set are `normal'. Floats whose exponent is INFNAN are either Inf or NaN.
77 1.1 ws * Floats whose exponent is zero are either zero (iff all fraction
78 1.1 ws * bits are zero) or subnormal values.
79 1.1 ws *
80 1.1 ws * A NaN is a `signalling NaN' if its QUIETNAN bit is clear in its
81 1.1 ws * high fraction; if the bit is set, it is a `quiet NaN'.
82 1.1 ws */
83 1.16 christos #define EXT_EXP_INFNAN 0x7fff
84 1.16 christos #define EXT_EXP_INF 0x7fff
85 1.16 christos #define EXT_EXP_NAN 0x7fff
86 1.1 ws
87 1.1 ws #if 0
88 1.11 kleink #define SNG_QUIETNAN (1 << 22)
89 1.11 kleink #define DBL_QUIETNAN (1 << 19)
90 1.7 kleink #define EXT_QUIETNAN (1 << 30)
91 1.1 ws #endif
92 1.1 ws
93 1.1 ws /*
94 1.1 ws * Exponent biases.
95 1.1 ws */
96 1.1 ws #define EXT_EXP_BIAS 16383
97 1.8 kleink
98 1.8 kleink /*
99 1.8 kleink * Convenience data structures.
100 1.8 kleink */
101 1.8 kleink union ieee_ext_u {
102 1.8 kleink long double extu_ld;
103 1.9 kleink struct ieee_ext extu_ext;
104 1.8 kleink };
105 1.6 kleink
106 1.16 christos #define extu_exp extu_ext.ext_exp
107 1.16 christos #define extu_sign extu_ext.ext_sign
108 1.16 christos #define extu_fracl extu_ext.ext_fracl
109 1.16 christos #define extu_frach extu_ext.ext_frach
110 1.16 christos
111 1.16 christos #define LDBL_NBIT 0x80000000
112 1.16 christos #define mask_nbit_l(u) ((u).extu_frach &= ~LDBL_NBIT)
113 1.10 kleink #endif /* !__mc68010__ || _KERNEL */
114