]> gcc.gnu.org Git - gcc.git/blob - gcc/is-a.h
fortran: Expand ieee_arithmetic module's ieee_value inline [PR106579]
[gcc.git] / gcc / is-a.h
1 /* Dynamic testing for abstract is-a relationships.
2 Copyright (C) 2012-2022 Free Software Foundation, Inc.
3 Contributed by Lawrence Crowl.
4
5 This file is part of GCC.
6
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
10 version.
11
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
20
21
22 /* This header generic type query and conversion functions.
23
24
25 USING THE GENERIC TYPE FACILITY
26
27
28 The user functions are:
29
30 bool is_a <TYPE> (pointer)
31
32 Tests whether the pointer actually points to a more derived TYPE.
33
34 Suppose you have a symtab_node *ptr, AKA symtab_node *ptr. You can test
35 whether it points to a 'derived' cgraph_node as follows.
36
37 if (is_a <cgraph_node *> (ptr))
38 ....
39
40
41 TYPE as_a <TYPE> (pointer)
42
43 Converts pointer to a TYPE.
44
45 You can just assume that it is such a node.
46
47 do_something_with (as_a <cgraph_node *> *ptr);
48
49 TYPE safe_as_a <TYPE> (pointer)
50
51 Like as_a <TYPE> (pointer), but where pointer could be NULL. This
52 adds a check against NULL where the regular is_a_helper hook for TYPE
53 assumes non-NULL.
54
55 do_something_with (safe_as_a <cgraph_node *> *ptr);
56
57 TYPE dyn_cast <TYPE> (pointer)
58
59 Converts pointer to TYPE if and only if "is_a <TYPE> pointer". Otherwise,
60 returns NULL. This function is essentially a checked down cast.
61
62 This functions reduce compile time and increase type safety when treating a
63 generic item as a more specific item.
64
65 You can test and obtain a pointer to the 'derived' type in one indivisible
66 operation.
67
68 if (cgraph_node *cptr = dyn_cast <cgraph_node *> (ptr))
69 ....
70
71 As an example, the code change is from
72
73 if (symtab_function_p (node))
74 {
75 struct cgraph_node *cnode = cgraph (node);
76 ....
77 }
78
79 to
80
81 if (cgraph_node *cnode = dyn_cast <cgraph_node *> (node))
82 {
83 ....
84 }
85
86 The necessary conditional test defines a variable that holds a known good
87 pointer to the specific item and avoids subsequent conversion calls and
88 the assertion checks that may come with them.
89
90 When, the property test is embedded within a larger condition, the
91 variable declaration gets pulled out of the condition. (This approach
92 leaves some room for using the variable inappropriately.)
93
94 if (symtab_variable_p (node) && varpool (node)->finalized)
95 varpool_analyze_node (varpool (node));
96
97 becomes
98
99 varpool_node *vnode = dyn_cast <varpool_node *> (node);
100 if (vnode && vnode->finalized)
101 varpool_analyze_node (vnode);
102
103 Note that we have converted two sets of assertions in the calls to varpool
104 into safe and efficient use of a variable.
105
106 TYPE safe_dyn_cast <TYPE> (pointer)
107
108 Like dyn_cast <TYPE> (pointer), except that it accepts null pointers
109 and returns null results for them.
110
111
112 If you use these functions and get a 'inline function not defined' or a
113 'missing symbol' error message for 'is_a_helper<....>::test', it means that
114 the connection between the types has not been made. See below.
115
116
117 EXTENDING THE GENERIC TYPE FACILITY
118
119 Method 1
120 --------
121
122 If DERIVED is derived from BASE, and if BASE contains enough information
123 to determine whether an object is actually an instance of DERIVED,
124 then you can make the above routines work for DERIVED by defining
125 a specialization of is_a_helper such as:
126
127 template<>
128 struct is_a_helper<DERIVED *> : static_is_a_helper<DERIVED *>
129 {
130 static inline bool test (const BASE *p) { return ...; }
131 };
132
133 This test function should return true if P is an instanced of DERIVED.
134 This on its own is enough; the comments below for method 2 do not apply.
135
136 Method 2
137 --------
138
139 Alternatively, if two types are connected in ways other than C++
140 inheritance, each connection between them must be made by defining a
141 specialization of the template member function 'test' of the template
142 class 'is_a_helper'. For example,
143
144 template <>
145 template <>
146 inline bool
147 is_a_helper <cgraph_node *>::test (symtab_node *p)
148 {
149 return p->type == SYMTAB_FUNCTION;
150 }
151
152 If a simple reinterpret_cast between the pointer types is incorrect, then you
153 must also specialize the template member function 'cast'. Failure to do so
154 when needed may result in a crash. For example,
155
156 template <>
157 template <>
158 inline bool
159 is_a_helper <cgraph_node *>::cast (symtab_node *p)
160 {
161 return &p->x_function;
162 }
163
164 */
165
166 #ifndef GCC_IS_A_H
167 #define GCC_IS_A_H
168
169 /* A base class that specializations of is_a_helper can use if casting
170 U * to T is simply a reinterpret_cast. */
171
172 template <typename T>
173 struct reinterpret_is_a_helper
174 {
175 template <typename U>
176 static inline T cast (U *p) { return reinterpret_cast <T> (p); }
177 };
178
179 /* A base class that specializations of is_a_helper can use if casting
180 U * to T is simply a static_cast. This is more type-safe than
181 reinterpret_is_a_helper. */
182
183 template <typename T>
184 struct static_is_a_helper
185 {
186 template <typename U>
187 static inline T cast (U *p) { return static_cast <T> (p); }
188 };
189
190 /* A generic type conversion internal helper class. */
191
192 template <typename T>
193 struct is_a_helper : reinterpret_is_a_helper<T>
194 {
195 template <typename U>
196 static inline bool test (U *p);
197 };
198
199 /* Reuse the definition of is_a_helper<T *> to implement
200 is_a_helper<const T *>. */
201
202 template <typename T>
203 struct is_a_helper<const T *>
204 {
205 template <typename U>
206 static inline const T *cast (const U *p)
207 {
208 return is_a_helper<T *>::cast (const_cast <U *> (p));
209 }
210 template <typename U>
211 static inline bool test (const U *p)
212 {
213 return is_a_helper<T *>::test (p);
214 }
215 };
216
217 /* Note that we deliberately do not define the 'test' member template. Not
218 doing so will result in a build-time error for type relationships that have
219 not been defined, rather than a run-time error. See the discussion above
220 for when to define this member. */
221
222 /* The public interface. */
223
224 /* A generic test for a type relationship. See the discussion above for when
225 to use this function. The question answered is "Is type T a derived type of
226 type U?". */
227
228 template <typename T, typename U>
229 inline bool
230 is_a (U *p)
231 {
232 return is_a_helper<T>::test (p);
233 }
234
235 /* A generic conversion from a base type U to a derived type T. See the
236 discussion above for when to use this function. */
237
238 template <typename T, typename U>
239 inline T
240 as_a (U *p)
241 {
242 gcc_checking_assert (is_a <T> (p));
243 return is_a_helper <T>::cast (p);
244 }
245
246 /* Similar to as_a<>, but where the pointer can be NULL, even if
247 is_a_helper<T> doesn't check for NULL. */
248
249 template <typename T, typename U>
250 inline T
251 safe_as_a (U *p)
252 {
253 if (p)
254 {
255 gcc_checking_assert (is_a <T> (p));
256 return is_a_helper <T>::cast (p);
257 }
258 else
259 return NULL;
260 }
261
262 /* A generic checked conversion from a base type U to a derived type T. See
263 the discussion above for when to use this function. */
264
265 template <typename T, typename U>
266 inline T
267 dyn_cast (U *p)
268 {
269 if (is_a <T> (p))
270 return is_a_helper <T>::cast (p);
271 else
272 return static_cast <T> (0);
273 }
274
275 /* Similar to dyn_cast, except that the pointer may be null. */
276
277 template <typename T, typename U>
278 inline T
279 safe_dyn_cast (U *p)
280 {
281 return p ? dyn_cast <T> (p) : 0;
282 }
283
284 #endif /* GCC_IS_A_H */
This page took 0.047926 seconds and 5 git commands to generate.