]>
Commit | Line | Data |
---|---|---|
c0f940ef | 1 | /* Language-specific hook definitions for C front end. |
e9a25f70 | 2 | Copyright (C) 1991, 1995, 1997 Free Software Foundation, Inc. |
c0f940ef RS |
3 | |
4 | This file is part of GNU CC. | |
5 | ||
6 | GNU CC is free software; you can redistribute it and/or modify | |
7 | it under the terms of the GNU General Public License as published by | |
8 | the Free Software Foundation; either version 2, or (at your option) | |
9 | any later version. | |
10 | ||
11 | GNU CC is distributed in the hope that it will be useful, | |
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | GNU General Public License for more details. | |
15 | ||
16 | You should have received a copy of the GNU General Public License | |
17 | along with GNU CC; see the file COPYING. If not, write to | |
940d9d63 RK |
18 | the Free Software Foundation, 59 Temple Place - Suite 330, |
19 | Boston, MA 02111-1307, USA. */ | |
c0f940ef RS |
20 | |
21 | ||
22 | #include "config.h" | |
23 | #include "tree.h" | |
24 | #include <stdio.h> | |
25 | #include "input.h" | |
26 | ||
27 | /* Each of the functions defined here | |
28 | is an alternative to a function in objc-actions.c. */ | |
29 | ||
30 | int | |
31 | lang_decode_option (p) | |
32 | char *p; | |
33 | { | |
34 | return c_decode_option (p); | |
35 | } | |
36 | ||
37 | void | |
38 | lang_init () | |
39 | { | |
40365c92 | 40 | #if !USE_CPPLIB |
c0f940ef RS |
41 | /* the beginning of the file is a new line; check for # */ |
42 | /* With luck, we discover the real source file's name from that | |
43 | and put it in input_filename. */ | |
44 | ungetc (check_newline (), finput); | |
40365c92 | 45 | #endif |
c0f940ef RS |
46 | } |
47 | ||
48 | void | |
49 | lang_finish () | |
50 | { | |
51 | } | |
52 | ||
d0d4af87 MS |
53 | char * |
54 | lang_identify () | |
55 | { | |
56 | return "c"; | |
57 | } | |
58 | ||
a604ca26 TW |
59 | void |
60 | print_lang_statistics () | |
61 | { | |
62 | } | |
63 | ||
c0f940ef | 64 | /* Used by c-lex.c, but only for objc. */ |
a604ca26 | 65 | |
c0f940ef RS |
66 | tree |
67 | lookup_interface (arg) | |
68 | tree arg; | |
69 | { | |
70 | return 0; | |
71 | } | |
72 | ||
a604ca26 TW |
73 | tree |
74 | is_class_name (arg) | |
75 | tree arg; | |
76 | { | |
77 | return 0; | |
78 | } | |
79 | ||
c0f940ef RS |
80 | void |
81 | maybe_objc_check_decl (decl) | |
82 | tree decl; | |
83 | { | |
84 | } | |
85 | ||
86 | int | |
a604ca26 | 87 | maybe_objc_comptypes (lhs, rhs, reflexive) |
c0f940ef | 88 | tree lhs, rhs; |
a604ca26 TW |
89 | int reflexive; |
90 | { | |
a0825a7f | 91 | return -1; |
a604ca26 TW |
92 | } |
93 | ||
94 | tree | |
95 | maybe_objc_method_name (decl) | |
96 | tree decl; | |
c0f940ef RS |
97 | { |
98 | return 0; | |
99 | } | |
100 | ||
101 | tree | |
102 | maybe_building_objc_message_expr () | |
103 | { | |
104 | return 0; | |
105 | } | |
106 | ||
107 | int | |
108 | recognize_objc_keyword () | |
109 | { | |
110 | return 0; | |
111 | } | |
112 | ||
a604ca26 TW |
113 | tree |
114 | build_objc_string (len, str) | |
115 | int len; | |
116 | char *str; | |
c0f940ef | 117 | { |
a604ca26 TW |
118 | abort (); |
119 | return NULL_TREE; | |
c0f940ef RS |
120 | } |
121 | ||
122 | void | |
123 | GNU_xref_begin () | |
124 | { | |
125 | fatal ("GCC does not yet support XREF"); | |
126 | } | |
127 | ||
128 | void | |
129 | GNU_xref_end () | |
130 | { | |
131 | fatal ("GCC does not yet support XREF"); | |
132 | } | |
2c5f4139 | 133 | |
0f41302f MS |
134 | /* Called at end of parsing, but before end-of-file processing. */ |
135 | ||
2c5f4139 JM |
136 | void |
137 | finish_file () | |
138 | { | |
69d4ca36 RL |
139 | #ifndef ASM_OUTPUT_CONSTRUCTOR |
140 | extern tree static_ctors; | |
141 | #endif | |
142 | #ifndef ASM_OUTPUT_DESTRUCTOR | |
143 | extern tree static_dtors; | |
144 | #endif | |
2c5f4139 JM |
145 | extern tree build_function_call PROTO((tree, tree)); |
146 | tree void_list_node = build_tree_list (NULL_TREE, void_type_node); | |
147 | #ifndef ASM_OUTPUT_CONSTRUCTOR | |
148 | if (static_ctors) | |
149 | { | |
150 | tree fnname = get_file_function_name ('I'); | |
151 | start_function (void_list_node, | |
152 | build_parse_node (CALL_EXPR, fnname, void_list_node, | |
153 | NULL_TREE), | |
79d101f8 | 154 | NULL_TREE, NULL_TREE, 0); |
2c5f4139 JM |
155 | fnname = DECL_ASSEMBLER_NAME (current_function_decl); |
156 | store_parm_decls (); | |
157 | ||
158 | for (; static_ctors; static_ctors = TREE_CHAIN (static_ctors)) | |
159 | expand_expr_stmt (build_function_call (TREE_VALUE (static_ctors), | |
160 | NULL_TREE)); | |
161 | ||
162 | finish_function (0); | |
163 | ||
164 | assemble_constructor (IDENTIFIER_POINTER (fnname)); | |
165 | } | |
166 | #endif | |
167 | #ifndef ASM_OUTPUT_DESTRUCTOR | |
168 | if (static_dtors) | |
169 | { | |
170 | tree fnname = get_file_function_name ('D'); | |
171 | start_function (void_list_node, | |
172 | build_parse_node (CALL_EXPR, fnname, void_list_node, | |
173 | NULL_TREE), | |
b7e043ad | 174 | NULL_TREE, NULL_TREE, 0); |
2c5f4139 JM |
175 | fnname = DECL_ASSEMBLER_NAME (current_function_decl); |
176 | store_parm_decls (); | |
177 | ||
178 | for (; static_dtors; static_dtors = TREE_CHAIN (static_dtors)) | |
179 | expand_expr_stmt (build_function_call (TREE_VALUE (static_dtors), | |
180 | NULL_TREE)); | |
181 | ||
182 | finish_function (0); | |
183 | ||
184 | assemble_destructor (IDENTIFIER_POINTER (fnname)); | |
185 | } | |
186 | #endif | |
187 | } |