X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fc-lang.c;h=af4932a83ced2fb5de7364d087fb7c2ad9a1b16f;hb=417eae69747e6171adb932960d3a6c6bd2c3b3df;hp=22c98100ee14b91c70f93f009e83aec656c7eb5d;hpb=8bd4fed29b3563af9a2d7fe4db7882cabbfecb15;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/c-lang.c b/gcc/c-lang.c index 22c98100ee1..af4932a83ce 100644 --- a/gcc/c-lang.c +++ b/gcc/c-lang.c @@ -1,299 +1,101 @@ /* Language-specific hook definitions for C front end. Copyright (C) 1991, 1995, 1997, 1998, - 1999, 2000, 2001 Free Software Foundation, Inc. + 1999, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC 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 2, or (at your option) -any later version. +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 2, or (at your option) any later +version. -GNU CC 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. +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 GNU CC; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ +along with GCC; see the file COPYING. If not, write to the Free +Software Foundation, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. */ #include "config.h" #include "system.h" +#include "coretypes.h" +#include "tm.h" #include "tree.h" -#include "function.h" -#include "input.h" -#include "toplev.h" -#include "diagnostic.h" -#include "output.h" -#include "flags.h" -#include "ggc.h" -#include "rtl.h" -#include "expr.h" #include "c-tree.h" -#include "c-lex.h" -#include "cpplib.h" - -static int c_tree_printer PARAMS ((output_buffer *)); -static int c_missing_noreturn_ok_p PARAMS ((tree)); -static void c_init PARAMS ((void)); -static void c_init_options PARAMS ((void)); -static void c_post_options PARAMS ((void)); - -/* Each front end provides its own. */ -struct lang_hooks lang_hooks = {c_init, - NULL, /* c_finish */ - c_init_options, - c_decode_option, - c_post_options}; - -/* Post-switch processing. */ -static void -c_post_options () -{ - cpp_post_options (parse_in); -} - -static void -c_init_options () -{ - parse_in = cpp_create_reader (CLK_GNUC89); +#include "c-common.h" +#include "ggc.h" +#include "langhooks.h" +#include "langhooks-def.h" +#include "tree-inline.h" +#include "diagnostic.h" +#include "c-pretty-print.h" +#include "c-objc-common.h" - /* Mark as "unspecified". */ - flag_bounds_check = -1; -} +enum c_language_kind c_language = clk_c; -static void -c_init () -{ - c_common_lang_init (); +/* Lang hooks common to C and ObjC are declared in c-objc-common.h; + consequently, there should be very few hooks below. */ - /* If still unspecified, make it match -std=c99 - (allowing for -pedantic-errors). */ - if (mesg_implicit_function_declaration < 0) - { - if (flag_isoc99) - mesg_implicit_function_declaration = flag_pedantic_errors ? 2 : 1; - else - mesg_implicit_function_declaration = 0; - } +#undef LANG_HOOKS_NAME +#define LANG_HOOKS_NAME "GNU C" +#undef LANG_HOOKS_INIT +#define LANG_HOOKS_INIT c_objc_common_init +#undef LANG_HOOKS_TYPES_COMPATIBLE_P +#define LANG_HOOKS_TYPES_COMPATIBLE_P c_types_compatible_p - save_lang_status = &push_c_function_context; - restore_lang_status = &pop_c_function_context; - mark_lang_status = &mark_c_function_context; - lang_expand_expr = &c_expand_expr; - lang_safe_from_p = &c_safe_from_p; - lang_printer = &c_tree_printer; - lang_expand_decl_stmt = &c_expand_decl_stmt; - lang_missing_noreturn_ok_p = &c_missing_noreturn_ok_p; +/* Each front end provides its own lang hook initializer. */ +const struct lang_hooks lang_hooks = LANG_HOOKS_INITIALIZER; - c_parse_init (); -} +/* Tree code classes. */ -const char * -lang_identify () -{ - return "c"; -} +#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) TYPE, -void -print_lang_statistics () -{ -} +const char tree_code_type[] = { +#include "tree.def" + 'x', +#include "c-common.def" +}; +#undef DEFTREECODE -/* used by print-tree.c */ +/* Table indexed by tree code giving number of expression + operands beyond the fixed part of the node structure. + Not used for types or decls. */ -void -lang_print_xnode (file, node, indent) - FILE *file ATTRIBUTE_UNUSED; - tree node ATTRIBUTE_UNUSED; - int indent ATTRIBUTE_UNUSED; -{ -} +#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) LENGTH, -/* Used by c-lex.c, but only for objc. */ +const unsigned char tree_code_length[] = { +#include "tree.def" + 0, +#include "c-common.def" +}; +#undef DEFTREECODE -tree -lookup_interface (arg) - tree arg ATTRIBUTE_UNUSED; -{ - return 0; -} +/* Names of tree components. + Used for printing out the tree and error messages. */ +#define DEFTREECODE(SYM, NAME, TYPE, LEN) NAME, -tree -is_class_name (arg) - tree arg ATTRIBUTE_UNUSED; -{ - return 0; -} +const char *const tree_code_name[] = { +#include "tree.def" + "@@dummy", +#include "c-common.def" +}; +#undef DEFTREECODE +/* Final processing of file-scope data. The Objective-C version of + this function still does something. */ void -maybe_objc_check_decl (decl) - tree decl ATTRIBUTE_UNUSED; -{ -} - -int -maybe_objc_comptypes (lhs, rhs, reflexive) - tree lhs ATTRIBUTE_UNUSED; - tree rhs ATTRIBUTE_UNUSED; - int reflexive ATTRIBUTE_UNUSED; +finish_file (void) { - return -1; -} - -tree -maybe_building_objc_message_expr () -{ - return 0; } int -recognize_objc_keyword () -{ - return 0; -} - -/* Used by c-typeck.c (build_external_ref), but only for objc. */ - -tree -lookup_objc_ivar (id) - tree id ATTRIBUTE_UNUSED; -{ - return 0; -} - -#if !defined(ASM_OUTPUT_CONSTRUCTOR) || !defined(ASM_OUTPUT_DESTRUCTOR) -extern tree static_ctors; -extern tree static_dtors; - -static tree start_cdtor PARAMS ((int)); -static void finish_cdtor PARAMS ((tree)); - -static tree -start_cdtor (method_type) - int method_type; -{ - tree fnname = get_file_function_name (method_type); - tree void_list_node_1 = build_tree_list (NULL_TREE, void_type_node); - tree body; - - start_function (void_list_node_1, - build_nt (CALL_EXPR, fnname, - tree_cons (NULL_TREE, NULL_TREE, void_list_node_1), - NULL_TREE), - NULL_TREE, NULL_TREE); - store_parm_decls (); - - current_function_cannot_inline - = "static constructors and destructors cannot be inlined"; - - body = c_begin_compound_stmt (); - - pushlevel (0); - clear_last_expr (); - add_scope_stmt (/*begin_p=*/1, /*partial_p=*/0); - - return body; -} - -static void -finish_cdtor (body) - tree body; -{ - tree scope; - tree block; - - scope = add_scope_stmt (/*begin_p=*/0, /*partial_p=*/0); - block = poplevel (0, 0, 0); - SCOPE_STMT_BLOCK (TREE_PURPOSE (scope)) = block; - SCOPE_STMT_BLOCK (TREE_VALUE (scope)) = block; - - RECHAIN_STMTS (body, COMPOUND_BODY (body)); - - finish_function (0); -} -#endif - -/* Called at end of parsing, but before end-of-file processing. */ - -void -finish_file () -{ -#ifndef ASM_OUTPUT_CONSTRUCTOR - if (static_ctors) - { - tree body = start_cdtor ('I'); - - for (; static_ctors; static_ctors = TREE_CHAIN (static_ctors)) - c_expand_expr_stmt (build_function_call (TREE_VALUE (static_ctors), - NULL_TREE)); - - finish_cdtor (body); - } -#endif -#ifndef ASM_OUTPUT_DESTRUCTOR - if (static_dtors) - { - tree body = start_cdtor ('D'); - - for (; static_dtors; static_dtors = TREE_CHAIN (static_dtors)) - c_expand_expr_stmt (build_function_call (TREE_VALUE (static_dtors), - NULL_TREE)); - - finish_cdtor (body); - } -#endif - - if (back_end_hook) - (*back_end_hook) (getdecls ()); - - if (flag_dump_translation_unit) - dump_node_to_file (getdecls (), flag_dump_translation_unit); -} - -/* Called during diagnostic message formatting process to print a - source-level entity onto BUFFER. The meaning of the format specifiers - is as follows: - %D: a general decl, - %F: a function declaration, - %T: a type. - - These format specifiers form a subset of the format specifiers set used - by the C++ front-end. - Please notice when called, the `%' part was already skipped by the - diagnostic machinery. */ -static int -c_tree_printer (buffer) - output_buffer *buffer; +c_types_compatible_p (tree x, tree y) { - tree t = va_arg (output_buffer_format_args (buffer), tree); - - switch (*output_buffer_text_cursor (buffer)) - { - case 'D': - case 'F': - case 'T': - { - const char *n = DECL_NAME (t) - ? (*decl_printable_name) (t, 2) - : "({anonymous})"; - output_add_string (buffer, n); - } - return 1; - - default: - return 0; - } + return comptypes (TYPE_MAIN_VARIANT (x), TYPE_MAIN_VARIANT (y)); } -static int -c_missing_noreturn_ok_p (decl) - tree decl; -{ - /* A missing noreturn is not ok for freestanding implementations and - ok for the `main' function in hosted implementations. */ - return flag_hosted && MAIN_NAME_P (DECL_ASSEMBLER_NAME (decl)); -} +#include "gtype-c.h"