PR fortran/17631
[official-gcc.git] / gcc / hooks.c
blob9470a4d84c6130953fa5072afb6c607edccfd364
1 /* General-purpose hooks.
2 Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
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.
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.
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.
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! */
22 /* This file contains generic hooks that can be used as defaults for
23 target or language-dependent hook initializers. */
25 #include "config.h"
26 #include "system.h"
27 #include "coretypes.h"
28 #include "tm.h"
29 #include "hooks.h"
31 /* Generic hook that does absolutely zappo. */
32 void
33 hook_void_void (void)
37 /* Generic hook that takes no arguments and returns false. */
38 bool
39 hook_bool_void_false (void)
41 return false;
44 /* Generic hook that takes no arguments and returns true. */
45 bool
46 hook_bool_void_true (void)
48 return true;
51 /* Generic hook that takes no arguments and returns NO_REGS. */
52 int
53 hook_int_void_no_regs (void)
55 return NO_REGS;
58 /* Generic hook that returns 1. */
59 int
60 hook_int_void_1 (void)
62 return 1;
65 /* Generic hook that takes (bool) and returns false. */
66 bool
67 hook_bool_bool_false (bool a ATTRIBUTE_UNUSED)
69 return false;
72 /* Generic hook that takes (enum machine_mode) and returns false. */
73 bool
74 hook_bool_mode_false (enum machine_mode mode ATTRIBUTE_UNUSED)
76 return false;
79 /* Generic hook that takes (FILE *, const char *) and does nothing. */
80 void
81 hook_void_FILEptr_constcharptr (FILE *a ATTRIBUTE_UNUSED, const char *b ATTRIBUTE_UNUSED)
85 /* Used for the TARGET_ASM_CAN_OUTPUT_MI_THUNK hook. */
86 bool
87 hook_bool_tree_hwi_hwi_tree_false (tree a ATTRIBUTE_UNUSED,
88 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
89 HOST_WIDE_INT c ATTRIBUTE_UNUSED,
90 tree d ATTRIBUTE_UNUSED)
92 return false;
95 bool
96 hook_bool_tree_hwi_hwi_tree_true (tree a ATTRIBUTE_UNUSED,
97 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
98 HOST_WIDE_INT c ATTRIBUTE_UNUSED,
99 tree d ATTRIBUTE_UNUSED)
101 return true;
104 bool
105 hook_bool_constcharptr_size_t_false (const char *a ATTRIBUTE_UNUSED,
106 size_t b ATTRIBUTE_UNUSED)
108 return false;
111 bool
112 default_can_output_mi_thunk_no_vcall (tree a ATTRIBUTE_UNUSED,
113 HOST_WIDE_INT b ATTRIBUTE_UNUSED,
114 HOST_WIDE_INT c,
115 tree d ATTRIBUTE_UNUSED)
117 return c == 0;
121 hook_int_tree_0 (tree a ATTRIBUTE_UNUSED)
123 return 0;
126 /* ??? Used for comp_type_attributes, which ought to return bool. */
128 hook_int_tree_tree_1 (tree a ATTRIBUTE_UNUSED, tree b ATTRIBUTE_UNUSED)
130 return 1;
134 hook_int_rtx_0 (rtx a ATTRIBUTE_UNUSED)
136 return 0;
140 hook_int_size_t_constcharptr_int_0 (size_t a ATTRIBUTE_UNUSED,
141 const char *b ATTRIBUTE_UNUSED,
142 int c ATTRIBUTE_UNUSED)
144 return 0;
147 unsigned int
148 hook_uint_uint_constcharptrptr_0 (unsigned int a ATTRIBUTE_UNUSED,
149 const char **b ATTRIBUTE_UNUSED)
151 return 0;
154 void
155 hook_void_int (int b ATTRIBUTE_UNUSED)
159 void
160 hook_void_tree (tree a ATTRIBUTE_UNUSED)
164 void
165 hook_void_constcharptr (const char *a ATTRIBUTE_UNUSED)
169 void
170 hook_void_tree_treeptr (tree a ATTRIBUTE_UNUSED, tree *b ATTRIBUTE_UNUSED)
174 bool
175 hook_bool_tree_false (tree a ATTRIBUTE_UNUSED)
177 return false;
180 bool
181 hook_bool_tree_true (tree a ATTRIBUTE_UNUSED)
183 return true;
186 bool
187 hook_bool_tree_tree_false (tree a ATTRIBUTE_UNUSED, tree b ATTRIBUTE_UNUSED)
189 return false;
192 bool
193 hook_bool_rtx_false (rtx a ATTRIBUTE_UNUSED)
195 return false;
198 bool
199 hook_bool_uintp_uintp_false (unsigned int *a ATTRIBUTE_UNUSED,
200 unsigned int *b ATTRIBUTE_UNUSED)
202 return false;
205 bool
206 hook_bool_rtx_int_int_intp_false (rtx a ATTRIBUTE_UNUSED,
207 int b ATTRIBUTE_UNUSED,
208 int c ATTRIBUTE_UNUSED,
209 int *d ATTRIBUTE_UNUSED)
211 return false;
214 /* Generic hook that takes an rtx and returns it. */
216 hook_rtx_rtx_identity (rtx x)
218 return x;
221 /* Generic hook that takes an rtx and returns NULL_RTX. */
223 hook_rtx_rtx_null (rtx x ATTRIBUTE_UNUSED)
225 return NULL;
228 /* Generic hook that takes a tree and an int and returns NULL_RTX. */
230 hook_rtx_tree_int_null (tree a ATTRIBUTE_UNUSED, int b ATTRIBUTE_UNUSED)
232 return NULL;
235 /* Generic hook that takes a tree and returns it as is. */
236 tree
237 hook_tree_tree_identity (tree a)
239 return a;
242 /* Generic hook that takes a tree and returns a NULL string. */
243 const char *
244 hook_constcharptr_tree_null (tree t ATTRIBUTE_UNUSED)
246 return NULL;
249 tree
250 hook_tree_tree_bool_null (tree t ATTRIBUTE_UNUSED, bool ignore ATTRIBUTE_UNUSED)
252 return NULL;