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"
38 #include "hard-reg-set.h"
43 #include "jit-common.h"
44 #include "jit-logging.h"
45 #include "jit-playback.h"
49 /* Language-dependent contents of a type. */
51 struct GTY(()) lang_type
56 /* Language-dependent contents of a decl. */
58 struct GTY((variable_size
)) lang_decl
63 /* Language-dependent contents of an identifier. This must include a
66 struct GTY(()) lang_identifier
68 struct tree_identifier common
;
71 /* The resulting tree type. */
73 union GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
74 chain_next ("CODE_CONTAINS_STRUCT (TREE_CODE (&%h.generic), TS_COMMON) ? ((union lang_tree_node *) TREE_CHAIN (&%h.generic)) : NULL")))
77 union tree_node
GTY((tag ("0"),
78 desc ("tree_node_structure (&%h)"))) generic
;
79 struct lang_identifier
GTY((tag ("1"))) identifier
;
82 /* We don't use language_function. */
84 struct GTY(()) language_function
89 /* GC-marking callback for use from jit_root_tab.
91 If there's an active playback context, call its marking method
92 so that it can mark any pointers it references. */
94 static void my_ggc_walker (void *)
96 if (gcc::jit::active_playback_ctxt
)
97 gcc::jit::active_playback_ctxt
->gt_ggc_mx ();
102 struct ggc_root_tab jit_root_tab
[] =
105 &dummy
, 1, 0, my_ggc_walker
, NULL
110 /* Language hooks. */
113 jit_langhook_init (void)
115 gcc_assert (gcc::jit::active_playback_ctxt
);
116 JIT_LOG_SCOPE (gcc::jit::active_playback_ctxt
->get_logger ());
118 static bool registered_root_tab
= false;
119 if (!registered_root_tab
)
121 ggc_register_root_tab (jit_root_tab
);
122 registered_root_tab
= true;
125 build_common_tree_nodes (false, false);
127 /* I don't know why this has to be done explicitly. */
128 void_list_node
= build_tree_list (NULL_TREE
, void_type_node
);
130 build_common_builtin_nodes ();
132 /* The default precision for floating point numbers. This is used
133 for floating point constants with abstract type. This may
134 eventually be controllable by a command line option. */
135 mpfr_set_default_prec (256);
141 jit_langhook_parse_file (void)
143 /* Replay the activity by the client, recorded on the context. */
144 gcc_assert (gcc::jit::active_playback_ctxt
);
145 gcc::jit::active_playback_ctxt
->replay ();
149 jit_langhook_type_for_mode (enum machine_mode mode
, int unsignedp
)
151 if (mode
== TYPE_MODE (float_type_node
))
152 return float_type_node
;
154 if (mode
== TYPE_MODE (double_type_node
))
155 return double_type_node
;
157 if (mode
== TYPE_MODE (integer_type_node
))
158 return unsignedp
? unsigned_type_node
: integer_type_node
;
160 if (mode
== TYPE_MODE (long_integer_type_node
))
161 return unsignedp
? long_unsigned_type_node
: long_integer_type_node
;
163 if (mode
== TYPE_MODE (long_long_integer_type_node
))
164 return unsignedp
? long_long_unsigned_type_node
: long_long_integer_type_node
;
166 if (COMPLEX_MODE_P (mode
))
168 if (mode
== TYPE_MODE (complex_float_type_node
))
169 return complex_float_type_node
;
170 if (mode
== TYPE_MODE (complex_double_type_node
))
171 return complex_double_type_node
;
172 if (mode
== TYPE_MODE (complex_long_double_type_node
))
173 return complex_long_double_type_node
;
174 if (mode
== TYPE_MODE (complex_integer_type_node
) && !unsignedp
)
175 return complex_integer_type_node
;
178 /* gcc_unreachable */
183 jit_langhook_type_for_size (unsigned int bits ATTRIBUTE_UNUSED
,
184 int unsignedp ATTRIBUTE_UNUSED
)
190 /* Record a builtin function. We just ignore builtin functions. */
193 jit_langhook_builtin_function (tree decl
)
199 jit_langhook_global_bindings_p (void)
206 jit_langhook_pushdecl (tree decl ATTRIBUTE_UNUSED
)
212 jit_langhook_getdecls (void)
217 #undef LANG_HOOKS_NAME
218 #define LANG_HOOKS_NAME "libgccjit"
220 #undef LANG_HOOKS_INIT
221 #define LANG_HOOKS_INIT jit_langhook_init
223 #undef LANG_HOOKS_PARSE_FILE
224 #define LANG_HOOKS_PARSE_FILE jit_langhook_parse_file
226 #undef LANG_HOOKS_TYPE_FOR_MODE
227 #define LANG_HOOKS_TYPE_FOR_MODE jit_langhook_type_for_mode
229 #undef LANG_HOOKS_TYPE_FOR_SIZE
230 #define LANG_HOOKS_TYPE_FOR_SIZE jit_langhook_type_for_size
232 #undef LANG_HOOKS_BUILTIN_FUNCTION
233 #define LANG_HOOKS_BUILTIN_FUNCTION jit_langhook_builtin_function
235 #undef LANG_HOOKS_GLOBAL_BINDINGS_P
236 #define LANG_HOOKS_GLOBAL_BINDINGS_P jit_langhook_global_bindings_p
238 #undef LANG_HOOKS_PUSHDECL
239 #define LANG_HOOKS_PUSHDECL jit_langhook_pushdecl
241 #undef LANG_HOOKS_GETDECLS
242 #define LANG_HOOKS_GETDECLS jit_langhook_getdecls
244 struct lang_hooks lang_hooks
= LANG_HOOKS_INITIALIZER
;
246 #include "gt-jit-dummy-frontend.h"
247 #include "gtype-jit.h"