diff options
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 5083c71..7bdb380 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -343,23 +343,6 @@ internal_error_function (diagnostic_context *context, const char *msgid, Compiler_Abort (sp, sp_loc, true); } -/* lang_hooks.tree_size: Determine the size of a tree with code C, - which is a language-specific tree code in category tcc_constant, - tcc_exceptional or tcc_type. The default expects never to be called. */ - -static size_t -gnat_tree_size (enum tree_code code) -{ - gcc_checking_assert (code >= NUM_TREE_CODES); - switch (code) - { - case UNCONSTRAINED_ARRAY_TYPE: - return sizeof (tree_type_non_common); - default: - gcc_unreachable (); - } -} - /* Perform all the initialization steps that are language-specific. */ static bool @@ -1387,6 +1370,23 @@ gnat_init_ts (void) MARK_TS_TYPED (EXIT_STMT); } +/* Return the size of a tree with CODE, which is a language-specific tree code + in category tcc_constant, tcc_exceptional or tcc_type. The default expects + never to be called. */ + +static size_t +gnat_tree_size (enum tree_code code) +{ + gcc_checking_assert (code >= NUM_TREE_CODES); + switch (code) + { + case UNCONSTRAINED_ARRAY_TYPE: + return sizeof (tree_type_non_common); + default: + gcc_unreachable (); + } +} + /* Return the lang specific structure attached to NODE. Allocate it (cleared) if needed. */ |