93 lines
2.9 KiB
C
93 lines
2.9 KiB
C
/* Language-dependent hooks for Elna.
|
|
Copyright (C) 2025 Free Software Foundation, Inc.
|
|
|
|
GCC is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3, or (at your option)
|
|
any later version.
|
|
|
|
GCC is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GCC; see the file COPYING3. If not see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
enum elna_tree_index
|
|
{
|
|
ELNA_TI_INT_TYPE,
|
|
ELNA_TI_WORD_TYPE,
|
|
ELNA_TI_CHAR_TYPE,
|
|
ELNA_TI_BOOL_TYPE,
|
|
ELNA_TI_BYTE_TYPE,
|
|
ELNA_TI_FLOAT_TYPE,
|
|
ELNA_TI_STRING_TYPE,
|
|
ELNA_TI_BOOL_TRUE,
|
|
ELNA_TI_BOOL_FALSE,
|
|
ELNA_TI_POINTER_NIL,
|
|
ELNA_TI_STRING_PTR_FIELD,
|
|
ELNA_TI_STRING_LENGTH_FIELD,
|
|
ELNA_TI_MAX
|
|
};
|
|
|
|
extern GTY(()) tree elna_global_trees[ELNA_TI_MAX];
|
|
extern GTY(()) hash_map<nofree_string_hash, tree> *elna_global_decls;
|
|
|
|
#define elna_int_type_node elna_global_trees[ELNA_TI_INT_TYPE]
|
|
#define elna_word_type_node elna_global_trees[ELNA_TI_WORD_TYPE]
|
|
#define elna_char_type_node elna_global_trees[ELNA_TI_CHAR_TYPE]
|
|
#define elna_bool_type_node elna_global_trees[ELNA_TI_BOOL_TYPE]
|
|
#define elna_byte_type_node elna_global_trees[ELNA_TI_BYTE_TYPE]
|
|
#define elna_float_type_node elna_global_trees[ELNA_TI_FLOAT_TYPE]
|
|
#define elna_string_type_node elna_global_trees[ELNA_TI_STRING_TYPE]
|
|
#define elna_bool_true_node elna_global_trees[ELNA_TI_BOOL_TRUE]
|
|
#define elna_bool_false_node elna_global_trees[ELNA_TI_BOOL_FALSE]
|
|
#define elna_pointer_nil_node elna_global_trees[ELNA_TI_POINTER_NIL]
|
|
#define elna_string_ptr_field_node elna_global_trees[ELNA_TI_STRING_PTR_FIELD]
|
|
#define elna_string_length_field_node elna_global_trees[ELNA_TI_STRING_LENGTH_FIELD]
|
|
|
|
/* Language-dependent contents of a type. */
|
|
struct GTY (()) lang_type
|
|
{
|
|
};
|
|
|
|
/* Language-dependent contents of a decl. */
|
|
struct GTY (()) lang_decl
|
|
{
|
|
};
|
|
|
|
struct GTY (()) defer_scope
|
|
{
|
|
tree defer_block;
|
|
tree try_statements;
|
|
};
|
|
|
|
struct GTY ((chain_next ("%h.level_chain"))) binding_level
|
|
{
|
|
// A block chain is needed to call defer statements beloning to each block.
|
|
tree blocks;
|
|
|
|
// Parent level.
|
|
struct binding_level *level_chain;
|
|
|
|
// Statements before the first defer has been seen.
|
|
tree statement_list;
|
|
|
|
// Defer statement coupled with statements following it.
|
|
vec<defer_scope, va_gc> *defers;
|
|
};
|
|
|
|
struct GTY (()) language_function
|
|
{
|
|
// Local variables and constants.
|
|
tree names;
|
|
|
|
// Lexical scope.
|
|
struct binding_level *binding_level;
|
|
};
|
|
|
|
#define f_binding_level DECL_STRUCT_FUNCTION(current_function_decl)->language->binding_level
|
|
#define f_names DECL_STRUCT_FUNCTION(current_function_decl)->language->names
|