vaxfp.h revision 1.8 1 1.8 matt /* $NetBSD: vaxfp.h,v 1.8 2008/08/05 16:47:42 matt Exp $ */
2 1.1 kleink
3 1.1 kleink /*-
4 1.1 kleink * Copyright (c) 2003 The NetBSD Foundation, Inc.
5 1.1 kleink * All rights reserved.
6 1.1 kleink *
7 1.1 kleink * This code is derived from software contributed to The NetBSD Foundation
8 1.1 kleink * by Klaus Klein.
9 1.1 kleink *
10 1.1 kleink * Redistribution and use in source and binary forms, with or without
11 1.1 kleink * modification, are permitted provided that the following conditions
12 1.1 kleink * are met:
13 1.1 kleink * 1. Redistributions of source code must retain the above copyright
14 1.1 kleink * notice, this list of conditions and the following disclaimer.
15 1.1 kleink * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 kleink * notice, this list of conditions and the following disclaimer in the
17 1.1 kleink * documentation and/or other materials provided with the distribution.
18 1.1 kleink *
19 1.1 kleink * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1 kleink * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1 kleink * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.1 kleink * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.1 kleink * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1 kleink * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1 kleink * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1 kleink * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1 kleink * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1 kleink * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1 kleink * POSSIBILITY OF SUCH DAMAGE.
30 1.1 kleink */
31 1.1 kleink
32 1.1 kleink /*
33 1.1 kleink * vaxfp.h defines the layout of VAX Floating-Point data types.
34 1.1 kleink * Only F_floating and D_floating types are defined here;
35 1.1 kleink * G_floating and H_floating are not supported by NetBSD.
36 1.1 kleink */
37 1.4 kleink #ifndef _VAX_VAXFP_H_
38 1.4 kleink #define _VAX_VAXFP_H_
39 1.1 kleink
40 1.8 matt #include <sys/featuretest.h>
41 1.8 matt
42 1.8 matt #if defined(_NETBSD_SOURCE) || defined(_ISOC99_SOURCE)
43 1.8 matt
44 1.8 matt typedef int fenv_t;
45 1.8 matt typedef int fexcept_t;
46 1.8 matt
47 1.8 matt #define FE_UNDERFLOW 0x01 /* underflow exception */
48 1.8 matt
49 1.8 matt #define FE_ALL_EXCEPT 0x01
50 1.8 matt
51 1.8 matt #if !defined(_ISOC99_SOURCE)
52 1.1 kleink
53 1.6 christos #define FFLT_EXPBITS 8
54 1.6 christos #define FFLT_FRACHBITS 7
55 1.6 christos #define FFLT_FRACLBITS 16
56 1.6 christos #define FFLT_FRACBITS (FFLT_FRACLBITS + FFLT_FRACHBITS)
57 1.1 kleink
58 1.1 kleink struct vax_f_floating {
59 1.6 christos unsigned int fflt_frach:FFLT_FRACHBITS;
60 1.6 christos unsigned int fflt_exp:FFLT_EXPBITS;
61 1.3 matt unsigned int fflt_sign:1;
62 1.6 christos unsigned int fflt_fracl:FFLT_FRACLBITS;
63 1.1 kleink };
64 1.1 kleink
65 1.6 christos #define DFLT_EXPBITS 8
66 1.6 christos #define DFLT_FRACHBITS 7
67 1.6 christos #define DFLT_FRACMBITS 16
68 1.6 christos #define DFLT_FRACLBITS 32
69 1.6 christos #define DFLT_FRACBITS (DFLT_FRACLBITS + DFLT_FRACMBITS + DFLT_FRACHBITS)
70 1.6 christos
71 1.1 kleink struct vax_d_floating {
72 1.6 christos
73 1.6 christos unsigned int dflt_frach:DFLT_FRACHBITS;
74 1.6 christos unsigned int dflt_exp:DFLT_EXPBITS;
75 1.3 matt unsigned int dflt_sign:1;
76 1.6 christos unsigned int dflt_fracm:DFLT_FRACMBITS;
77 1.6 christos unsigned int dflt_fracl:DFLT_FRACLBITS;
78 1.1 kleink };
79 1.1 kleink
80 1.1 kleink /*
81 1.1 kleink * Exponent biases.
82 1.1 kleink */
83 1.1 kleink #define FFLT_EXP_BIAS 128
84 1.1 kleink #define DFLT_EXP_BIAS 128
85 1.1 kleink
86 1.1 kleink /*
87 1.1 kleink * Convenience data structures.
88 1.1 kleink */
89 1.1 kleink union vax_ffloating_u {
90 1.1 kleink float ffltu_f;
91 1.1 kleink struct vax_f_floating ffltu_fflt;
92 1.1 kleink };
93 1.1 kleink
94 1.1 kleink union vax_dfloating_u {
95 1.1 kleink double dfltu_d;
96 1.1 kleink struct vax_d_floating dfltu_dflt;
97 1.3 matt };
98 1.3 matt
99 1.8 matt #endif /* !_ISOC99_SOURCE */
100 1.8 matt
101 1.8 matt #endif /* _NETBSD_SOURCE || _ISOC99_SOURCE */
102 1.8 matt
103 1.4 kleink #endif /* _VAX_VAXFP_H_ */
104