PR fortran/38830
[official-gcc.git] / gcc / hooks.c
blob796d915e1c6eef75873c8886a1c31f41d88bb328
1 /* General-purpose hooks.
2 Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008, 2009
3 Free Software Foundation, Inc.
5 This program is free software; you can redistribute it and/or modify it
6 under the terms of the GNU General Public License as published by the
7 Free Software Foundation; either version 3, or (at your option) any
8 later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; see the file COPYING3. If not see
17 <http://www.gnu.org/licenses/>.
19 In other words, you are welcome to use, share and improve this program.
20 You are forbidden to forbid anyone else to use, share and improve
21 what you give them. Help stamp out software-hoarding! */
23 /* This file contains generic hooks that can be used as defaults for
24 target or language-dependent hook initializers. */
26 #include "config.h"
27 #include "system.h"
28 #include "coretypes.h"
29 #include "tm.h"
30 #include "hooks.h"
32 /* Generic hook that does absolutely zappo. */
33 void
34 hook_void_void (void)
38 /* Generic hook that takes no arguments and returns false. */
39 bool
40 hook_bool_void_false (void)
42 return false;
45 /* Generic hook that takes no arguments and returns true. */
46 bool
47 hook_bool_void_true (void)
49 return true;
52 /* Generic hook that takes (bool) and returns false. */
53 bool
54 hook_bool_bool_false (bool a ATTRIBUTE_UNUSED)
56 return false;
59 /* Generic hook that takes (enum machine_mode) and returns false. */
60 bool
61 hook_bool_mode_false (enum machine_mode mode ATTRIBUTE_UNUSED)
63 return false;
66 /* Generic hook that takes (enum machine_mode, rtx) and returns false. */
67 bool
68 hook_bool_mode_const_rtx_false (enum machine_mode mode ATTRIBUTE_UNUSED,
69 const_rtx value ATTRIBUTE_UNUSED)
71 return false;
74 /* Generic hook that takes (enum machine_mode, rtx) and returns true. */
75 bool
76 hook_bool_mode_const_rtx_true (enum machine_mode mode ATTRIBUTE_UNUSED,
77 const_rtx value ATTRIBUTE_UNUSED)
79 return true;
82 /* Generic hook that takes (FILE *, const char *) and does nothing. */
83 void
84 hook_void_FILEptr_constcharptr (FILE *a ATTRIBUTE_UNUSED, const char *b ATTRIBUTE_UNUSED)
88 /* Used for the TARGET_ASM_CAN_OUTPUT_MI_THUNK hook. */
89 bool
90 hook_bool_const_tree_hwi_hwi_const_tree_false (const_tree a ATTRIBUTE_UNUSED,
91 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
92 HOST_WIDE_INT c ATTRIBUTE_UNUSED,
93 const_tree d ATTRIBUTE_UNUSED)
95 return false;
98 bool
99 hook_bool_const_tree_hwi_hwi_const_tree_true (const_tree a ATTRIBUTE_UNUSED,
100 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
101 HOST_WIDE_INT c ATTRIBUTE_UNUSED,
102 const_tree d ATTRIBUTE_UNUSED)
104 return true;
107 bool
108 hook_bool_constcharptr_size_t_false (const char *a ATTRIBUTE_UNUSED,
109 size_t b ATTRIBUTE_UNUSED)
111 return false;
114 bool
115 hook_bool_size_t_constcharptr_int_true (size_t a ATTRIBUTE_UNUSED,
116 const char *b ATTRIBUTE_UNUSED,
117 int c ATTRIBUTE_UNUSED)
119 return true;
122 bool
123 default_can_output_mi_thunk_no_vcall (const_tree a ATTRIBUTE_UNUSED,
124 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
125 HOST_WIDE_INT c,
126 const_tree d ATTRIBUTE_UNUSED)
128 return c == 0;
132 hook_int_const_tree_0 (const_tree a ATTRIBUTE_UNUSED)
134 return 0;
137 /* ??? Used for comp_type_attributes, which ought to return bool. */
139 hook_int_const_tree_const_tree_1 (const_tree a ATTRIBUTE_UNUSED, const_tree b ATTRIBUTE_UNUSED)
141 return 1;
145 hook_int_rtx_0 (rtx a ATTRIBUTE_UNUSED)
147 return 0;
151 hook_int_rtx_bool_0 (rtx a ATTRIBUTE_UNUSED, bool b ATTRIBUTE_UNUSED)
153 return 0;
157 hook_int_size_t_constcharptr_int_0 (size_t a ATTRIBUTE_UNUSED,
158 const char *b ATTRIBUTE_UNUSED,
159 int c ATTRIBUTE_UNUSED)
161 return 0;
164 unsigned int
165 hook_uint_uint_constcharptrptr_0 (unsigned int a ATTRIBUTE_UNUSED,
166 const char **b ATTRIBUTE_UNUSED)
168 return 0;
171 void
172 hook_void_tree (tree a ATTRIBUTE_UNUSED)
176 void
177 hook_void_constcharptr (const char *a ATTRIBUTE_UNUSED)
181 void
182 hook_void_tree_treeptr (tree a ATTRIBUTE_UNUSED, tree *b ATTRIBUTE_UNUSED)
186 bool
187 hook_bool_tree_false (tree a ATTRIBUTE_UNUSED)
189 return false;
192 bool
193 hook_bool_const_tree_false (const_tree a ATTRIBUTE_UNUSED)
195 return false;
198 bool
199 hook_bool_tree_true (tree a ATTRIBUTE_UNUSED)
201 return true;
204 bool
205 hook_bool_const_tree_true (const_tree a ATTRIBUTE_UNUSED)
207 return true;
210 bool
211 hook_bool_tree_tree_false (tree a ATTRIBUTE_UNUSED, tree b ATTRIBUTE_UNUSED)
213 return false;
216 bool
217 hook_bool_tree_bool_false (tree a ATTRIBUTE_UNUSED, bool b ATTRIBUTE_UNUSED)
219 return false;
222 bool
223 hook_bool_rtx_false (rtx a ATTRIBUTE_UNUSED)
225 return false;
228 bool
229 hook_bool_uintp_uintp_false (unsigned int *a ATTRIBUTE_UNUSED,
230 unsigned int *b ATTRIBUTE_UNUSED)
232 return false;
235 bool
236 hook_bool_rtx_int_int_intp_bool_false (rtx a ATTRIBUTE_UNUSED,
237 int b ATTRIBUTE_UNUSED,
238 int c ATTRIBUTE_UNUSED,
239 int *d ATTRIBUTE_UNUSED,
240 bool speed_p ATTRIBUTE_UNUSED)
242 return false;
245 /* Generic hook that takes an rtx and returns it. */
247 hook_rtx_rtx_identity (rtx x)
249 return x;
252 /* Generic hook that takes an rtx and returns NULL_RTX. */
254 hook_rtx_rtx_null (rtx x ATTRIBUTE_UNUSED)
256 return NULL;
259 /* Generic hook that takes a tree and an int and returns NULL_RTX. */
261 hook_rtx_tree_int_null (tree a ATTRIBUTE_UNUSED, int b ATTRIBUTE_UNUSED)
263 return NULL;
266 /* Generic hook that takes three trees and returns the last one as is. */
267 tree
268 hook_tree_tree_tree_tree_3rd_identity (tree a ATTRIBUTE_UNUSED,
269 tree b ATTRIBUTE_UNUSED, tree c)
271 return c;
274 /* Generic hook that takes a tree and returns a NULL string. */
275 const char *
276 hook_constcharptr_const_tree_null (const_tree t ATTRIBUTE_UNUSED)
278 return NULL;
281 tree
282 hook_tree_tree_tree_bool_null (tree t0 ATTRIBUTE_UNUSED,
283 tree t1 ATTRIBUTE_UNUSED,
284 bool ignore ATTRIBUTE_UNUSED)
286 return NULL;
289 tree
290 hook_tree_tree_tree_null (tree t0 ATTRIBUTE_UNUSED, tree t1 ATTRIBUTE_UNUSED)
292 return NULL;
295 tree
296 hook_tree_tree_tree_tree_null (tree t0 ATTRIBUTE_UNUSED,
297 tree t1 ATTRIBUTE_UNUSED,
298 tree t2 ATTRIBUTE_UNUSED)
300 return NULL;
303 /* Generic hook that takes a rtx and returns a NULL string. */
304 const char *
305 hook_constcharptr_const_rtx_null (const_rtx r ATTRIBUTE_UNUSED)
307 return NULL;
310 const char *
311 hook_constcharptr_const_tree_const_tree_null (const_tree t0 ATTRIBUTE_UNUSED,
312 const_tree t1 ATTRIBUTE_UNUSED)
314 return NULL;
317 const char *
318 hook_constcharptr_int_const_tree_null (int i ATTRIBUTE_UNUSED,
319 const_tree t0 ATTRIBUTE_UNUSED)
321 return NULL;
324 const char *
325 hook_constcharptr_int_const_tree_const_tree_null (int i ATTRIBUTE_UNUSED,
326 const_tree t0 ATTRIBUTE_UNUSED,
327 const_tree t1 ATTRIBUTE_UNUSED)
329 return NULL;