+2019-10-29 Richard Sandiford <richard.sandiford@arm.com>
+
+ * coretypes.h (string_int_pair): New typedef.
+ * langhooks-def.h (LANG_HOOKS_SIMULATE_ENUM_DECL): Define.
+ (LANG_HOOKS_FOR_TYPES_INITIALIZER): Include it.
+ * langhooks.h (lang_hooks_for_types::simulate_enum_decl): New hook.
+
2019-10-29 Richard Sandiford <richard.sandiford@arm.com>
* langhooks.h (lang_hooks::simulate_builtin_function_decl): New hook.
+2019-10-29 Richard Sandiford <richard.sandiford@arm.com>
+
+ * c-tree.h (c_simulate_enum_decl): Declare.
+ * c-decl.c (c_simulate_enum_decl): New function.
+ * c-objc-common.h (LANG_HOOKS_SIMULATE_ENUM_DECL): Define to the above.
+
2019-10-29 Richard Sandiford <richard.sandiford@arm.com>
* c-tree.h (c_simulate_builtin_function_decl): Declare.
return tree_cons (decl, value, NULL_TREE);
}
+/* Implement LANG_HOOKS_SIMULATE_ENUM_DECL. */
+
+tree
+c_simulate_enum_decl (location_t loc, const char *name,
+ vec<string_int_pair> values)
+{
+ location_t saved_loc = input_location;
+ input_location = loc;
+
+ struct c_enum_contents the_enum;
+ tree enumtype = start_enum (loc, &the_enum, get_identifier (name));
+
+ tree value_chain = NULL_TREE;
+ string_int_pair *value;
+ unsigned int i;
+ FOR_EACH_VEC_ELT (values, i, value)
+ {
+ tree decl = build_enumerator (loc, loc, &the_enum,
+ get_identifier (value->first),
+ build_int_cst (integer_type_node,
+ value->second));
+ TREE_CHAIN (decl) = value_chain;
+ value_chain = decl;
+ }
+
+ finish_enum (enumtype, nreverse (value_chain), NULL_TREE);
+
+ input_location = saved_loc;
+ return enumtype;
+}
\f
/* Create the FUNCTION_DECL for a function definition.
DECLSPECS, DECLARATOR and ATTRIBUTES are the parts of
#undef LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN
#define LANG_HOOKS_TREE_DUMP_DUMP_TREE_FN c_dump_tree
+#undef LANG_HOOKS_SIMULATE_ENUM_DECL
+#define LANG_HOOKS_SIMULATE_ENUM_DECL c_simulate_enum_decl
#undef LANG_HOOKS_TYPE_FOR_MODE
#define LANG_HOOKS_TYPE_FOR_MODE c_common_type_for_mode
#undef LANG_HOOKS_TYPE_FOR_SIZE
extern void finish_function (void);
extern tree finish_struct (location_t, tree, tree, tree,
class c_struct_parse_info *);
+extern tree c_simulate_enum_decl (location_t, const char *,
+ vec<string_int_pair>);
extern struct c_arg_info *build_arg_info (void);
extern struct c_arg_info *get_parm_info (bool, tree);
extern tree grokfield (location_t, struct c_declarator *,
}
typedef std::pair <tree, tree> tree_pair;
+typedef std::pair <const char *, int> string_int_pair;
/* Define a name->value mapping. */
template <typename ValueType>
+2019-10-29 Richard Sandiford <richard.sandiford@arm.com>
+
+ * cp-objcp-common.h (cxx_simulate_enum_decl): Declare.
+ (LANG_HOOKS_SIMULATE_ENUM_DECL): Define to the above.
+ * decl.c (cxx_simulate_enum_decl): New function.
+
2019-10-29 Richard Sandiford <richard.sandiford@arm.com>
* cp-tree.h (cxx_simulate_builtin_function_decl): Declare.
extern tree cp_pushdecl (tree);
extern void cp_register_dumps (gcc::dump_manager *);
extern tree cxx_make_type_hook (tree_code);
+extern tree cxx_simulate_enum_decl (location_t, const char *,
+ vec<string_int_pair>);
/* Lang hooks that are shared between C++ and ObjC++ are defined here. Hooks
specific to C++ or ObjC++ go in cp/cp-lang.c and objcp/objcp-lang.c,
#undef LANG_HOOKS_MAKE_TYPE
#define LANG_HOOKS_MAKE_TYPE cxx_make_type_hook
+#undef LANG_HOOKS_SIMULATE_ENUM_DECL
+#define LANG_HOOKS_SIMULATE_ENUM_DECL cxx_simulate_enum_decl
#undef LANG_HOOKS_TYPE_FOR_MODE
#define LANG_HOOKS_TYPE_FOR_MODE c_common_type_for_mode
#undef LANG_HOOKS_TYPE_FOR_SIZE
return e? TREE_VALUE (e) : NULL_TREE;
}
+/* Implement LANG_HOOKS_SIMULATE_ENUM_DECL. */
+
+tree
+cxx_simulate_enum_decl (location_t loc, const char *name,
+ vec<string_int_pair> values)
+{
+ location_t saved_loc = input_location;
+ input_location = loc;
+
+ tree enumtype = start_enum (get_identifier (name), NULL_TREE, NULL_TREE,
+ NULL_TREE, false, NULL);
+ if (!OPAQUE_ENUM_P (enumtype))
+ {
+ error_at (loc, "multiple definition of %q#T", enumtype);
+ inform (DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (enumtype)),
+ "previous definition here");
+ return enumtype;
+ }
+ SET_OPAQUE_ENUM_P (enumtype, false);
+ DECL_SOURCE_LOCATION (TYPE_NAME (enumtype)) = loc;
+
+ string_int_pair *value;
+ unsigned int i;
+ FOR_EACH_VEC_ELT (values, i, value)
+ build_enumerator (get_identifier (value->first),
+ build_int_cst (integer_type_node, value->second),
+ enumtype, NULL_TREE, loc);
+
+ finish_enum_value_list (enumtype);
+ finish_enum (enumtype);
+
+ input_location = saved_loc;
+ return enumtype;
+}
\f
/* We're defining DECL. Make sure that its type is OK. */
extern tree lhd_unit_size_without_reusable_padding (tree);
#define LANG_HOOKS_MAKE_TYPE lhd_make_node
+#define LANG_HOOKS_SIMULATE_ENUM_DECL NULL
#define LANG_HOOKS_CLASSIFY_RECORD NULL
#define LANG_HOOKS_TYPE_FOR_SIZE lhd_type_for_size
#define LANG_HOOKS_INCOMPLETE_TYPE_ERROR lhd_incomplete_type_error
#define LANG_HOOKS_FOR_TYPES_INITIALIZER { \
LANG_HOOKS_MAKE_TYPE, \
+ LANG_HOOKS_SIMULATE_ENUM_DECL, \
LANG_HOOKS_CLASSIFY_RECORD, \
LANG_HOOKS_TYPE_FOR_MODE, \
LANG_HOOKS_TYPE_FOR_SIZE, \
language-specific processing is required. */
tree (*make_type) (enum tree_code);
+ /* Make an enum type with the given name and values, associating
+ them all with the given source location. */
+ tree (*simulate_enum_decl) (location_t, const char *, vec<string_int_pair>);
+
/* Return what kind of RECORD_TYPE this is, mainly for purposes of
debug information. If not defined, record types are assumed to
be structures. */