1 /* jit.c -- Dummy "frontend" for use during JIT-compilation.
2 Copyright (C) 2013-2015 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
22 #include "coretypes.h"
27 #include "tree-core.h"
28 #include "stor-layout.h"
32 #include "langhooks.h"
33 #include "langhooks-def.h"
35 #include "plugin-api.h"
39 #include "hard-reg-set.h"
45 #include "jit-common.h"
46 #include "jit-logging.h"
47 #include "jit-playback.h"
51 /* Language-dependent contents of a type. */
53 struct GTY(()) lang_type
58 /* Language-dependent contents of a decl. */
60 struct GTY((variable_size
)) lang_decl
65 /* Language-dependent contents of an identifier. This must include a
68 struct GTY(()) lang_identifier
70 struct tree_identifier common
;
73 /* The resulting tree type. */
75 union GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
76 chain_next ("CODE_CONTAINS_STRUCT (TREE_CODE (&%h.generic), TS_COMMON) ? ((union lang_tree_node *) TREE_CHAIN (&%h.generic)) : NULL")))
79 union tree_node
GTY((tag ("0"),
80 desc ("tree_node_structure (&%h)"))) generic
;
81 struct lang_identifier
GTY((tag ("1"))) identifier
;
84 /* We don't use language_function. */
86 struct GTY(()) language_function
91 /* GC-marking callback for use from jit_root_tab.
93 If there's an active playback context, call its marking method
94 so that it can mark any pointers it references. */
96 static void my_ggc_walker (void *)
98 if (gcc::jit::active_playback_ctxt
)
99 gcc::jit::active_playback_ctxt
->gt_ggc_mx ();
104 struct ggc_root_tab jit_root_tab
[] =
107 &dummy
, 1, 0, my_ggc_walker
, NULL
112 /* Language hooks. */
115 jit_langhook_init (void)
117 gcc_assert (gcc::jit::active_playback_ctxt
);
118 JIT_LOG_SCOPE (gcc::jit::active_playback_ctxt
->get_logger ());
120 static bool registered_root_tab
= false;
121 if (!registered_root_tab
)
123 ggc_register_root_tab (jit_root_tab
);
124 registered_root_tab
= true;
127 build_common_tree_nodes (false, false);
129 /* I don't know why this has to be done explicitly. */
130 void_list_node
= build_tree_list (NULL_TREE
, void_type_node
);
132 build_common_builtin_nodes ();
134 /* The default precision for floating point numbers. This is used
135 for floating point constants with abstract type. This may
136 eventually be controllable by a command line option. */
137 mpfr_set_default_prec (256);
143 jit_langhook_parse_file (void)
145 /* Replay the activity by the client, recorded on the context. */
146 gcc_assert (gcc::jit::active_playback_ctxt
);
147 gcc::jit::active_playback_ctxt
->replay ();
151 jit_langhook_type_for_mode (enum machine_mode mode
, int unsignedp
)
153 if (mode
== TYPE_MODE (float_type_node
))
154 return float_type_node
;
156 if (mode
== TYPE_MODE (double_type_node
))
157 return double_type_node
;
159 if (mode
== TYPE_MODE (integer_type_node
))
160 return unsignedp
? unsigned_type_node
: integer_type_node
;
162 if (mode
== TYPE_MODE (long_integer_type_node
))
163 return unsignedp
? long_unsigned_type_node
: long_integer_type_node
;
165 if (mode
== TYPE_MODE (long_long_integer_type_node
))
166 return unsignedp
? long_long_unsigned_type_node
: long_long_integer_type_node
;
168 if (COMPLEX_MODE_P (mode
))
170 if (mode
== TYPE_MODE (complex_float_type_node
))
171 return complex_float_type_node
;
172 if (mode
== TYPE_MODE (complex_double_type_node
))
173 return complex_double_type_node
;
174 if (mode
== TYPE_MODE (complex_long_double_type_node
))
175 return complex_long_double_type_node
;
176 if (mode
== TYPE_MODE (complex_integer_type_node
) && !unsignedp
)
177 return complex_integer_type_node
;
180 /* gcc_unreachable */
185 jit_langhook_type_for_size (unsigned int bits ATTRIBUTE_UNUSED
,
186 int unsignedp ATTRIBUTE_UNUSED
)
192 /* Record a builtin function. We just ignore builtin functions. */
195 jit_langhook_builtin_function (tree decl
)
201 jit_langhook_global_bindings_p (void)
208 jit_langhook_pushdecl (tree decl ATTRIBUTE_UNUSED
)
214 jit_langhook_getdecls (void)
219 #undef LANG_HOOKS_NAME
220 #define LANG_HOOKS_NAME "libgccjit"
222 #undef LANG_HOOKS_INIT
223 #define LANG_HOOKS_INIT jit_langhook_init
225 #undef LANG_HOOKS_PARSE_FILE
226 #define LANG_HOOKS_PARSE_FILE jit_langhook_parse_file
228 #undef LANG_HOOKS_TYPE_FOR_MODE
229 #define LANG_HOOKS_TYPE_FOR_MODE jit_langhook_type_for_mode
231 #undef LANG_HOOKS_TYPE_FOR_SIZE
232 #define LANG_HOOKS_TYPE_FOR_SIZE jit_langhook_type_for_size
234 #undef LANG_HOOKS_BUILTIN_FUNCTION
235 #define LANG_HOOKS_BUILTIN_FUNCTION jit_langhook_builtin_function
237 #undef LANG_HOOKS_GLOBAL_BINDINGS_P
238 #define LANG_HOOKS_GLOBAL_BINDINGS_P jit_langhook_global_bindings_p
240 #undef LANG_HOOKS_PUSHDECL
241 #define LANG_HOOKS_PUSHDECL jit_langhook_pushdecl
243 #undef LANG_HOOKS_GETDECLS
244 #define LANG_HOOKS_GETDECLS jit_langhook_getdecls
246 struct lang_hooks lang_hooks
= LANG_HOOKS_INITIALIZER
;
248 #include "gt-jit-dummy-frontend.h"
249 #include "gtype-jit.h"