]>
Commit | Line | Data |
---|---|---|
f1717362 | 1 | /* Copyright (C) 2006-2016 Free Software Foundation, Inc. |
c5d33754 | 2 | |
3 | This file is part of GCC. | |
4 | ||
5 | GCC is free software; you can redistribute it and/or modify it under | |
6 | the terms of the GNU General Public License as published by the Free | |
bdabe786 | 7 | Software Foundation; either version 3, or (at your option) any later |
c5d33754 | 8 | version. |
9 | ||
10 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
11 | WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
12 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
13 | for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
bdabe786 | 16 | along with GCC; see the file COPYING3. If not see |
17 | <http://www.gnu.org/licenses/>. */ | |
c5d33754 | 18 | |
19 | /* This file contains the definition of the types provided by the | |
20 | Fortran 2003 ISO_C_BINDING intrinsic module. */ | |
21 | ||
22 | #ifndef NAMED_INTCST | |
777e0373 | 23 | # define NAMED_INTCST(a,b,c,d) |
c5d33754 | 24 | #endif |
25 | ||
26 | #ifndef NAMED_REALCST | |
6387f861 | 27 | # define NAMED_REALCST(a,b,c,d) |
c5d33754 | 28 | #endif |
29 | ||
30 | #ifndef NAMED_CMPXCST | |
6387f861 | 31 | # define NAMED_CMPXCST(a,b,c,d) |
c5d33754 | 32 | #endif |
33 | ||
34 | #ifndef NAMED_LOGCST | |
35 | # define NAMED_LOGCST(a,b,c) | |
36 | #endif | |
37 | ||
38 | #ifndef NAMED_CHARKNDCST | |
39 | # define NAMED_CHARKNDCST(a,b,c) | |
40 | #endif | |
41 | ||
75471ad0 | 42 | #ifndef NAMED_FUNCTION |
43 | # define NAMED_FUNCTION(a,b,c,d) | |
44 | #endif | |
45 | ||
07f0c434 | 46 | #ifndef NAMED_SUBROUTINE |
47 | # define NAMED_SUBROUTINE(a,b,c,d) | |
48 | #endif | |
49 | ||
c5d33754 | 50 | /* The arguments to NAMED_*CST are: |
51 | -- an internal name | |
52 | -- the symbol name in the module, as seen by Fortran code | |
777e0373 | 53 | -- the value it has, for use in trans-types.c |
54 | -- the standard that supports this type */ | |
c5d33754 | 55 | |
777e0373 | 56 | NAMED_INTCST (ISOCBINDING_INT, "c_int", gfc_c_int_kind, GFC_STD_F2003) |
c5d33754 | 57 | NAMED_INTCST (ISOCBINDING_SHORT, "c_short", \ |
777e0373 | 58 | get_int_kind_from_node (short_integer_type_node), GFC_STD_F2003) |
c5d33754 | 59 | NAMED_INTCST (ISOCBINDING_LONG, "c_long", \ |
777e0373 | 60 | get_int_kind_from_node (long_integer_type_node), GFC_STD_F2003) |
c5d33754 | 61 | NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \ |
777e0373 | 62 | get_int_kind_from_node (long_long_integer_type_node), GFC_STD_F2003) |
c5d33754 | 63 | |
64 | NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \ | |
8f843aad | 65 | get_int_kind_from_name (INTMAX_TYPE), GFC_STD_F2003) |
c5d33754 | 66 | NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \ |
db3eb703 | 67 | get_int_kind_from_name (INTPTR_TYPE), GFC_STD_F2003) |
6f88d0ff | 68 | NAMED_INTCST (ISOCBINDING_PTRDIFF_T, "c_ptrdiff_t", \ |
69 | get_int_kind_from_name (PTRDIFF_TYPE), GFC_STD_F2008_TS) | |
c5d33754 | 70 | NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \ |
777e0373 | 71 | gfc_index_integer_kind, GFC_STD_F2003) |
c5d33754 | 72 | NAMED_INTCST (ISOCBINDING_SIGNED_CHAR, "c_signed_char", \ |
777e0373 | 73 | get_int_kind_from_node (signed_char_type_node), GFC_STD_F2003) |
74 | ||
db3eb703 | 75 | NAMED_INTCST (ISOCBINDING_INT8_T, "c_int8_t", \ |
76 | get_int_kind_from_name (INT8_TYPE), GFC_STD_F2003) | |
77 | NAMED_INTCST (ISOCBINDING_INT16_T, "c_int16_t", \ | |
78 | get_int_kind_from_name (INT16_TYPE), GFC_STD_F2003) | |
79 | NAMED_INTCST (ISOCBINDING_INT32_T, "c_int32_t", \ | |
80 | get_int_kind_from_name (INT32_TYPE), GFC_STD_F2003) | |
81 | NAMED_INTCST (ISOCBINDING_INT64_T, "c_int64_t", \ | |
82 | get_int_kind_from_name (INT64_TYPE), GFC_STD_F2003) | |
777e0373 | 83 | /* GNU Extension. */ |
db3eb703 | 84 | NAMED_INTCST (ISOCBINDING_INT128_T, "c_int128_t", \ |
85 | get_int_kind_from_width (128), GFC_STD_GNU) | |
c5d33754 | 86 | |
87 | NAMED_INTCST (ISOCBINDING_INT_LEAST8_T, "c_int_least8_t", \ | |
db3eb703 | 88 | get_int_kind_from_name (INT_LEAST8_TYPE), GFC_STD_F2003) |
c5d33754 | 89 | NAMED_INTCST (ISOCBINDING_INT_LEAST16_T, "c_int_least16_t", \ |
db3eb703 | 90 | get_int_kind_from_name (INT_LEAST16_TYPE), GFC_STD_F2003) |
c5d33754 | 91 | NAMED_INTCST (ISOCBINDING_INT_LEAST32_T, "c_int_least32_t", \ |
db3eb703 | 92 | get_int_kind_from_name (INT_LEAST32_TYPE), GFC_STD_F2003) |
c5d33754 | 93 | NAMED_INTCST (ISOCBINDING_INT_LEAST64_T, "c_int_least64_t", \ |
db3eb703 | 94 | get_int_kind_from_name (INT_LEAST64_TYPE), GFC_STD_F2003) |
777e0373 | 95 | /* GNU Extension. */ |
96 | NAMED_INTCST (ISOCBINDING_INT_LEAST128_T, "c_int_least128_t", \ | |
97 | get_int_kind_from_minimal_width (128), GFC_STD_GNU) | |
c5d33754 | 98 | |
db3eb703 | 99 | NAMED_INTCST (ISOCBINDING_INT_FAST8_T, "c_int_fast8_t", \ |
100 | get_int_kind_from_name (INT_FAST8_TYPE), GFC_STD_F2003) | |
101 | NAMED_INTCST (ISOCBINDING_INT_FAST16_T, "c_int_fast16_t", \ | |
102 | get_int_kind_from_name (INT_FAST16_TYPE), GFC_STD_F2003) | |
103 | NAMED_INTCST (ISOCBINDING_INT_FAST32_T, "c_int_fast32_t", \ | |
104 | get_int_kind_from_name (INT_FAST32_TYPE), GFC_STD_F2003) | |
105 | NAMED_INTCST (ISOCBINDING_INT_FAST64_T, "c_int_fast64_t", \ | |
106 | get_int_kind_from_name (INT_FAST64_TYPE), GFC_STD_F2003) | |
777e0373 | 107 | /* GNU Extension. */ |
0c7efac1 | 108 | NAMED_INTCST (ISOCBINDING_INT_FAST128_T, "c_int_fast128_t", |
109 | get_int_kind_from_width (128), GFC_STD_GNU) | |
c5d33754 | 110 | |
111 | NAMED_REALCST (ISOCBINDING_FLOAT, "c_float", \ | |
6387f861 | 112 | get_real_kind_from_node (float_type_node), GFC_STD_F2003) |
c5d33754 | 113 | NAMED_REALCST (ISOCBINDING_DOUBLE, "c_double", \ |
6387f861 | 114 | get_real_kind_from_node (double_type_node), GFC_STD_F2003) |
c5d33754 | 115 | NAMED_REALCST (ISOCBINDING_LONG_DOUBLE, "c_long_double", \ |
6387f861 | 116 | get_real_kind_from_node (long_double_type_node), GFC_STD_F2003) |
117 | NAMED_REALCST (ISOCBINDING_FLOAT128, "c_float128", \ | |
118 | float128_type_node == NULL_TREE \ | |
119 | ? -4 : get_real_kind_from_node (float128_type_node), \ | |
120 | GFC_STD_GNU) | |
c5d33754 | 121 | NAMED_CMPXCST (ISOCBINDING_FLOAT_COMPLEX, "c_float_complex", \ |
6387f861 | 122 | get_real_kind_from_node (float_type_node), GFC_STD_F2003) |
c5d33754 | 123 | NAMED_CMPXCST (ISOCBINDING_DOUBLE_COMPLEX, "c_double_complex", \ |
6387f861 | 124 | get_real_kind_from_node (double_type_node), GFC_STD_F2003) |
c5d33754 | 125 | NAMED_CMPXCST (ISOCBINDING_LONG_DOUBLE_COMPLEX, "c_long_double_complex", \ |
6387f861 | 126 | get_real_kind_from_node (long_double_type_node), GFC_STD_F2003) |
127 | NAMED_CMPXCST (ISOCBINDING_FLOAT128_COMPLEX, "c_float128_complex", \ | |
128 | float128_type_node == NULL_TREE \ | |
129 | ? -4 : get_real_kind_from_node (float128_type_node), \ | |
130 | GFC_STD_GNU) | |
c5d33754 | 131 | |
132 | NAMED_LOGCST (ISOCBINDING_BOOL, "c_bool", \ | |
133 | get_int_kind_from_width (BOOL_TYPE_SIZE)) | |
134 | ||
135 | NAMED_CHARKNDCST (ISOCBINDING_CHAR, "c_char", gfc_default_character_kind) | |
136 | ||
137 | #ifndef NAMED_CHARCST | |
138 | # define NAMED_CHARCST(a,b,c) | |
139 | #endif | |
140 | ||
141 | /* Use langhooks to deal with host to target translations. */ | |
142 | NAMED_CHARCST (ISOCBINDING_NULL_CHAR, "c_null_char", \ | |
143 | lang_hooks.to_target_charset ('\0')) | |
144 | NAMED_CHARCST (ISOCBINDING_ALERT, "c_alert", \ | |
145 | lang_hooks.to_target_charset ('\a')) | |
146 | NAMED_CHARCST (ISOCBINDING_BACKSPACE, "c_backspace", \ | |
147 | lang_hooks.to_target_charset ('\b')) | |
148 | NAMED_CHARCST (ISOCBINDING_FORM_FEED, "c_form_feed", \ | |
149 | lang_hooks.to_target_charset ('\f')) | |
150 | NAMED_CHARCST (ISOCBINDING_NEW_LINE, "c_new_line", \ | |
151 | lang_hooks.to_target_charset ('\n')) | |
152 | NAMED_CHARCST (ISOCBINDING_CARRIAGE_RETURN, "c_carriage_return", \ | |
153 | lang_hooks.to_target_charset ('\r')) | |
154 | NAMED_CHARCST (ISOCBINDING_HORIZONTAL_TAB, "c_horizontal_tab", \ | |
155 | lang_hooks.to_target_charset ('\t')) | |
156 | NAMED_CHARCST (ISOCBINDING_VERTICAL_TAB, "c_vertical_tab", \ | |
157 | lang_hooks.to_target_charset ('\v')) | |
158 | ||
159 | #ifndef DERIVED_TYPE | |
160 | # define DERIVED_TYPE(a,b,c) | |
161 | #endif | |
162 | ||
163 | DERIVED_TYPE (ISOCBINDING_PTR, "c_ptr", \ | |
164 | get_int_kind_from_node (ptr_type_node)) | |
165 | DERIVED_TYPE (ISOCBINDING_NULL_PTR, "c_null_ptr", \ | |
166 | get_int_kind_from_node (ptr_type_node)) | |
167 | DERIVED_TYPE (ISOCBINDING_FUNPTR, "c_funptr", \ | |
168 | get_int_kind_from_node (ptr_type_node)) | |
169 | DERIVED_TYPE (ISOCBINDING_NULL_FUNPTR, "c_null_funptr", \ | |
170 | get_int_kind_from_node (ptr_type_node)) | |
171 | ||
07f0c434 | 172 | /* The arguments to NAMED_FUNCTIONS and NAMED_SUBROUTINES are: |
75471ad0 | 173 | -- the ISYM |
174 | -- the symbol name in the module, as seen by Fortran code | |
175 | -- the Fortran standard */ | |
176 | ||
07f0c434 | 177 | NAMED_SUBROUTINE (ISOCBINDING_F_POINTER, "c_f_pointer", |
178 | GFC_ISYM_C_F_POINTER, GFC_STD_F2003) | |
179 | NAMED_SUBROUTINE (ISOCBINDING_F_PROCPOINTER, "c_f_procpointer", | |
180 | GFC_ISYM_C_F_PROCPOINTER, GFC_STD_F2003) | |
181 | ||
182 | NAMED_FUNCTION (ISOCBINDING_ASSOCIATED, "c_associated", | |
183 | GFC_ISYM_C_ASSOCIATED, GFC_STD_F2003) | |
184 | NAMED_FUNCTION (ISOCBINDING_FUNLOC, "c_funloc", | |
185 | GFC_ISYM_C_FUNLOC, GFC_STD_F2003) | |
186 | NAMED_FUNCTION (ISOCBINDING_LOC, "c_loc", | |
187 | GFC_ISYM_C_LOC, GFC_STD_F2003) | |
188 | ||
75471ad0 | 189 | NAMED_FUNCTION (ISOCBINDING_C_SIZEOF, "c_sizeof", \ |
190 | GFC_ISYM_C_SIZEOF, GFC_STD_F2008) | |
191 | ||
c5d33754 | 192 | #undef NAMED_INTCST |
193 | #undef NAMED_REALCST | |
194 | #undef NAMED_CMPXCST | |
195 | #undef NAMED_LOGCST | |
196 | #undef NAMED_CHARCST | |
197 | #undef NAMED_CHARKNDCST | |
198 | #undef DERIVED_TYPE | |
75471ad0 | 199 | #undef NAMED_FUNCTION |
07f0c434 | 200 | #undef NAMED_SUBROUTINE |