gfortran.h (gfc_default_*_kind): Remove prototypes, add extern variable declaration...
[gcc.git] / gcc / hooks.c
1 /* General-purpose hooks.
2 Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
3
4 This program is free software; you can redistribute it and/or modify it
5 under the terms of the GNU General Public License as published by the
6 Free Software Foundation; either version 2, or (at your option) any
7 later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17
18 In other words, you are welcome to use, share and improve this program.
19 You are forbidden to forbid anyone else to use, share and improve
20 what you give them. Help stamp out software-hoarding! */
21
22 /* This file contains generic hooks that can be used as defaults for
23 target or language-dependent hook initializers. */
24
25 #include "config.h"
26 #include "system.h"
27 #include "coretypes.h"
28 #include "tm.h"
29 #include "hooks.h"
30
31 /* Generic hook that does absolutely zappo. */
32 void
33 hook_void_void (void)
34 {
35 }
36
37 /* Generic hook that takes no arguments and returns false. */
38 bool
39 hook_bool_void_false (void)
40 {
41 return false;
42 }
43
44 /* The same, but formally returning NO_REGS. */
45 int
46 hook_int_void_no_regs (void)
47 {
48 return NO_REGS;
49 }
50
51 /* Generic hook that returns 1. */
52 int
53 hook_int_void_1 (void)
54 {
55 return 1;
56 }
57
58 /* Generic hook that takes (bool) and returns false. */
59 bool
60 hook_bool_bool_false (bool a ATTRIBUTE_UNUSED)
61 {
62 return false;
63 }
64
65 /* Generic hook that takes (enum machine_mode) and returns false. */
66 bool
67 hook_bool_mode_false (enum machine_mode mode ATTRIBUTE_UNUSED)
68 {
69 return false;
70 }
71
72 /* Generic hook that takes (FILE *, const char *) and does nothing. */
73 void
74 hook_void_FILEptr_constcharptr (FILE *a ATTRIBUTE_UNUSED, const char *b ATTRIBUTE_UNUSED)
75 {
76 }
77
78 /* Used for the TARGET_ASM_CAN_OUTPUT_MI_THUNK hook. */
79 bool
80 hook_bool_tree_hwi_hwi_tree_false (tree a ATTRIBUTE_UNUSED,
81 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
82 HOST_WIDE_INT c ATTRIBUTE_UNUSED,
83 tree d ATTRIBUTE_UNUSED)
84 {
85 return false;
86 }
87
88 bool
89 hook_bool_tree_hwi_hwi_tree_true (tree a ATTRIBUTE_UNUSED,
90 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
91 HOST_WIDE_INT c ATTRIBUTE_UNUSED,
92 tree d ATTRIBUTE_UNUSED)
93 {
94 return true;
95 }
96
97 bool
98 hook_bool_constcharptr_size_t_false (const char *a ATTRIBUTE_UNUSED,
99 size_t b ATTRIBUTE_UNUSED)
100 {
101 return false;
102 }
103
104 bool
105 default_can_output_mi_thunk_no_vcall (tree a ATTRIBUTE_UNUSED,
106 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
107 HOST_WIDE_INT c,
108 tree d ATTRIBUTE_UNUSED)
109 {
110 return c == 0;
111 }
112
113 /* ??? Used for comp_type_attributes, which ought to return bool. */
114 int
115 hook_int_tree_tree_1 (tree a ATTRIBUTE_UNUSED, tree b ATTRIBUTE_UNUSED)
116 {
117 return 1;
118 }
119
120 int
121 hook_int_rtx_0 (rtx a ATTRIBUTE_UNUSED)
122 {
123 return 0;
124 }
125
126 int
127 hook_int_size_t_constcharptr_int_0 (size_t a ATTRIBUTE_UNUSED,
128 const char *b ATTRIBUTE_UNUSED,
129 int c ATTRIBUTE_UNUSED)
130 {
131 return 0;
132 }
133
134 unsigned int
135 hook_uint_uint_constcharptrptr_0 (unsigned int a ATTRIBUTE_UNUSED,
136 const char **b ATTRIBUTE_UNUSED)
137 {
138 return 0;
139 }
140
141 void
142 hook_void_int (int b ATTRIBUTE_UNUSED)
143 {
144 }
145
146 void
147 hook_void_tree (tree a ATTRIBUTE_UNUSED)
148 {
149 }
150
151 void
152 hook_void_constcharptr (const char *a ATTRIBUTE_UNUSED)
153 {
154 }
155
156 void
157 hook_void_tree_treeptr (tree a ATTRIBUTE_UNUSED, tree *b ATTRIBUTE_UNUSED)
158 {
159 }
160
161 bool
162 hook_bool_tree_false (tree a ATTRIBUTE_UNUSED)
163 {
164 return false;
165 }
166
167 bool
168 hook_bool_tree_true (tree a ATTRIBUTE_UNUSED)
169 {
170 return true;
171 }
172
173 bool
174 hook_bool_tree_tree_false (tree a ATTRIBUTE_UNUSED, tree b ATTRIBUTE_UNUSED)
175 {
176 return false;
177 }
178
179 bool
180 hook_bool_rtx_false (rtx a ATTRIBUTE_UNUSED)
181 {
182 return false;
183 }
184
185 bool
186 hook_bool_uintp_uintp_false (unsigned int *a ATTRIBUTE_UNUSED,
187 unsigned int *b ATTRIBUTE_UNUSED)
188 {
189 return false;
190 }
191
192 bool
193 hook_bool_rtx_int_int_intp_false (rtx a ATTRIBUTE_UNUSED,
194 int b ATTRIBUTE_UNUSED,
195 int c ATTRIBUTE_UNUSED,
196 int *d ATTRIBUTE_UNUSED)
197 {
198 return false;
199 }
200
201 /* Generic hook that takes an rtx and returns it. */
202 rtx
203 hook_rtx_rtx_identity (rtx x)
204 {
205 return x;
206 }
207
208 /* Generic hook that takes an rtx and returns NULL_RTX. */
209 rtx
210 hook_rtx_rtx_null (rtx x ATTRIBUTE_UNUSED)
211 {
212 return NULL;
213 }
214
215 /* Generic hook that takes a tree and an int and returns NULL_RTX. */
216 rtx
217 hook_rtx_tree_int_null (tree a ATTRIBUTE_UNUSED, int b ATTRIBUTE_UNUSED)
218 {
219 return NULL;
220 }
221
222 /* Generic hook that takes a tree and returns it as is. */
223 tree
224 hook_tree_tree_identity (tree a)
225 {
226 return a;
227 }
228
229 /* Generic hook that takes a tree and returns a NULL string. */
230 const char *
231 hook_constcharptr_tree_null (tree t ATTRIBUTE_UNUSED)
232 {
233 return NULL;
234 }