|
111
|
1 /* -----------------------------------------------------------------------
|
|
|
2 types.c - Copyright (c) 1996, 1998 Red Hat, Inc.
|
|
|
3
|
|
|
4 Predefined ffi_types needed by libffi.
|
|
|
5
|
|
|
6 Permission is hereby granted, free of charge, to any person obtaining
|
|
|
7 a copy of this software and associated documentation files (the
|
|
|
8 ``Software''), to deal in the Software without restriction, including
|
|
|
9 without limitation the rights to use, copy, modify, merge, publish,
|
|
|
10 distribute, sublicense, and/or sell copies of the Software, and to
|
|
|
11 permit persons to whom the Software is furnished to do so, subject to
|
|
|
12 the following conditions:
|
|
|
13
|
|
|
14 The above copyright notice and this permission notice shall be included
|
|
|
15 in all copies or substantial portions of the Software.
|
|
|
16
|
|
|
17 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
|
|
|
18 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
|
19 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
|
20 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|
|
21 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|
|
22 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
|
23 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
|
|
24 DEALINGS IN THE SOFTWARE.
|
|
|
25 ----------------------------------------------------------------------- */
|
|
|
26
|
|
|
27 /* Hide the basic type definitions from the header file, so that we
|
|
|
28 can redefine them here as "const". */
|
|
|
29 #define LIBFFI_HIDE_BASIC_TYPES
|
|
|
30
|
|
|
31 #include <ffi.h>
|
|
|
32 #include <ffi_common.h>
|
|
|
33
|
|
|
34 /* Type definitions */
|
|
|
35
|
|
|
36 #define FFI_TYPEDEF(name, type, id, maybe_const)\
|
|
|
37 struct struct_align_##name { \
|
|
|
38 char c; \
|
|
|
39 type x; \
|
|
|
40 }; \
|
|
|
41 maybe_const ffi_type ffi_type_##name = { \
|
|
|
42 sizeof(type), \
|
|
|
43 offsetof(struct struct_align_##name, x), \
|
|
|
44 id, NULL \
|
|
|
45 }
|
|
|
46
|
|
|
47 #define FFI_COMPLEX_TYPEDEF(name, type, maybe_const) \
|
|
|
48 static ffi_type *ffi_elements_complex_##name [2] = { \
|
|
|
49 (ffi_type *)(&ffi_type_##name), NULL \
|
|
|
50 }; \
|
|
|
51 struct struct_align_complex_##name { \
|
|
|
52 char c; \
|
|
|
53 _Complex type x; \
|
|
|
54 }; \
|
|
|
55 maybe_const ffi_type ffi_type_complex_##name = { \
|
|
|
56 sizeof(_Complex type), \
|
|
|
57 offsetof(struct struct_align_complex_##name, x), \
|
|
|
58 FFI_TYPE_COMPLEX, \
|
|
|
59 (ffi_type **)ffi_elements_complex_##name \
|
|
|
60 }
|
|
|
61
|
|
|
62 /* Size and alignment are fake here. They must not be 0. */
|
|
|
63 const ffi_type ffi_type_void = {
|
|
|
64 1, 1, FFI_TYPE_VOID, NULL
|
|
|
65 };
|
|
|
66
|
|
|
67 FFI_TYPEDEF(uint8, UINT8, FFI_TYPE_UINT8, const);
|
|
|
68 FFI_TYPEDEF(sint8, SINT8, FFI_TYPE_SINT8, const);
|
|
|
69 FFI_TYPEDEF(uint16, UINT16, FFI_TYPE_UINT16, const);
|
|
|
70 FFI_TYPEDEF(sint16, SINT16, FFI_TYPE_SINT16, const);
|
|
|
71 FFI_TYPEDEF(uint32, UINT32, FFI_TYPE_UINT32, const);
|
|
|
72 FFI_TYPEDEF(sint32, SINT32, FFI_TYPE_SINT32, const);
|
|
|
73 FFI_TYPEDEF(uint64, UINT64, FFI_TYPE_UINT64, const);
|
|
|
74 FFI_TYPEDEF(sint64, SINT64, FFI_TYPE_SINT64, const);
|
|
|
75
|
|
|
76 FFI_TYPEDEF(pointer, void*, FFI_TYPE_POINTER, const);
|
|
|
77
|
|
|
78 FFI_TYPEDEF(float, float, FFI_TYPE_FLOAT, const);
|
|
|
79 FFI_TYPEDEF(double, double, FFI_TYPE_DOUBLE, const);
|
|
|
80
|
|
|
81 #if !defined HAVE_LONG_DOUBLE_VARIANT || defined __alpha__
|
|
|
82 #define FFI_LDBL_CONST const
|
|
|
83 #else
|
|
|
84 #define FFI_LDBL_CONST
|
|
|
85 #endif
|
|
|
86
|
|
|
87 #ifdef __alpha__
|
|
|
88 /* Even if we're not configured to default to 128-bit long double,
|
|
|
89 maintain binary compatibility, as -mlong-double-128 can be used
|
|
|
90 at any time. */
|
|
|
91 /* Validate the hard-coded number below. */
|
|
|
92 # if defined(__LONG_DOUBLE_128__) && FFI_TYPE_LONGDOUBLE != 4
|
|
|
93 # error FFI_TYPE_LONGDOUBLE out of date
|
|
|
94 # endif
|
|
|
95 const ffi_type ffi_type_longdouble = { 16, 16, 4, NULL };
|
|
|
96 #elif FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
|
|
|
97 FFI_TYPEDEF(longdouble, long double, FFI_TYPE_LONGDOUBLE, FFI_LDBL_CONST);
|
|
|
98 #endif
|
|
|
99
|
|
|
100 #ifdef FFI_TARGET_HAS_COMPLEX_TYPE
|
|
|
101 FFI_COMPLEX_TYPEDEF(float, float, const);
|
|
|
102 FFI_COMPLEX_TYPEDEF(double, double, const);
|
|
|
103 #if FFI_TYPE_LONGDOUBLE != FFI_TYPE_DOUBLE
|
|
|
104 FFI_COMPLEX_TYPEDEF(longdouble, long double, FFI_LDBL_CONST);
|
|
|
105 #endif
|
|
|
106 #endif
|
