]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/fold-const.h
Fortran: fix issues with class(*) assignment [PR114827]
[thirdparty/gcc.git] / gcc / fold-const.h
1 /* Fold a constant sub-tree into a single node for C-compiler
2 Copyright (C) 1987-2019 Free Software Foundation, Inc.
3
4 This file is part of GCC.
5
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
10
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
19
20 #ifndef GCC_FOLD_CONST_H
21 #define GCC_FOLD_CONST_H
22
23 /* Non-zero if we are folding constants inside an initializer; zero
24 otherwise. */
25 extern int folding_initializer;
26
27 /* Convert between trees and native memory representation. */
28 extern int native_encode_expr (const_tree, unsigned char *, int, int off = -1);
29 extern tree native_interpret_expr (tree, const unsigned char *, int);
30
31 /* Fold constants as much as possible in an expression.
32 Returns the simplified expression.
33 Acts only on the top level of the expression;
34 if the argument itself cannot be simplified, its
35 subexpressions are not changed. */
36
37 extern tree fold (tree);
38 #define fold_unary(CODE,T1,T2)\
39 fold_unary_loc (UNKNOWN_LOCATION, CODE, T1, T2)
40 extern tree fold_unary_loc (location_t, enum tree_code, tree, tree);
41 #define fold_unary_ignore_overflow(CODE,T1,T2)\
42 fold_unary_ignore_overflow_loc (UNKNOWN_LOCATION, CODE, T1, T2)
43 extern tree fold_unary_ignore_overflow_loc (location_t, enum tree_code, tree, tree);
44 #define fold_binary(CODE,T1,T2,T3)\
45 fold_binary_loc (UNKNOWN_LOCATION, CODE, T1, T2, T3)
46 extern tree fold_binary_loc (location_t, enum tree_code, tree, tree, tree);
47 #define fold_ternary(CODE,T1,T2,T3,T4)\
48 fold_ternary_loc (UNKNOWN_LOCATION, CODE, T1, T2, T3, T4)
49 extern tree fold_ternary_loc (location_t, enum tree_code, tree, tree, tree, tree);
50 #define fold_build1(c,t1,t2)\
51 fold_build1_loc (UNKNOWN_LOCATION, c, t1, t2 MEM_STAT_INFO)
52 extern tree fold_build1_loc (location_t, enum tree_code, tree,
53 tree CXX_MEM_STAT_INFO);
54 #define fold_build2(c,t1,t2,t3)\
55 fold_build2_loc (UNKNOWN_LOCATION, c, t1, t2, t3 MEM_STAT_INFO)
56 extern tree fold_build2_loc (location_t, enum tree_code, tree, tree,
57 tree CXX_MEM_STAT_INFO);
58 #define fold_build3(c,t1,t2,t3,t4)\
59 fold_build3_loc (UNKNOWN_LOCATION, c, t1, t2, t3, t4 MEM_STAT_INFO)
60 extern tree fold_build3_loc (location_t, enum tree_code, tree, tree, tree,
61 tree CXX_MEM_STAT_INFO);
62 extern tree fold_build1_initializer_loc (location_t, enum tree_code, tree, tree);
63 extern tree fold_build2_initializer_loc (location_t, enum tree_code, tree, tree, tree);
64 #define fold_build_call_array(T1,T2,N,T4)\
65 fold_build_call_array_loc (UNKNOWN_LOCATION, T1, T2, N, T4)
66 extern tree fold_build_call_array_loc (location_t, tree, tree, int, tree *);
67 #define fold_build_call_array_initializer(T1,T2,N,T4)\
68 fold_build_call_array_initializer_loc (UNKNOWN_LOCATION, T1, T2, N, T4)
69 extern tree fold_build_call_array_initializer_loc (location_t, tree, tree, int, tree *);
70 extern tree get_array_ctor_element_at_index (tree, offset_int);
71 extern bool fold_convertible_p (const_tree, const_tree);
72 #define fold_convert(T1,T2)\
73 fold_convert_loc (UNKNOWN_LOCATION, T1, T2)
74 extern tree fold_convert_loc (location_t, tree, tree);
75 extern tree fold_single_bit_test (location_t, enum tree_code, tree, tree, tree);
76 extern tree fold_ignored_result (tree);
77 extern tree fold_abs_const (tree, tree);
78 extern tree fold_indirect_ref_1 (location_t, tree, tree);
79 extern void fold_defer_overflow_warnings (void);
80 extern void fold_undefer_overflow_warnings (bool, const gimple *, int);
81 extern void fold_undefer_and_ignore_overflow_warnings (void);
82 extern bool fold_deferring_overflow_warnings_p (void);
83 extern void fold_overflow_warning (const char*, enum warn_strict_overflow_code);
84 extern enum tree_code fold_div_compare (enum tree_code, tree, tree,
85 tree *, tree *, bool *);
86 extern int operand_equal_p (const_tree, const_tree, unsigned int);
87 extern int multiple_of_p (tree, const_tree, const_tree);
88 #define omit_one_operand(T1,T2,T3)\
89 omit_one_operand_loc (UNKNOWN_LOCATION, T1, T2, T3)
90 extern tree omit_one_operand_loc (location_t, tree, tree, tree);
91 #define omit_two_operands(T1,T2,T3,T4)\
92 omit_two_operands_loc (UNKNOWN_LOCATION, T1, T2, T3, T4)
93 extern tree omit_two_operands_loc (location_t, tree, tree, tree, tree);
94 #define invert_truthvalue(T)\
95 invert_truthvalue_loc (UNKNOWN_LOCATION, T)
96 extern tree invert_truthvalue_loc (location_t, tree);
97 extern tree fold_unary_to_constant (enum tree_code, tree, tree);
98 extern tree fold_binary_to_constant (enum tree_code, tree, tree, tree);
99 extern tree fold_bit_and_mask (tree, tree, enum tree_code,
100 tree, enum tree_code, tree, tree,
101 tree, enum tree_code, tree, tree, tree *);
102 extern tree fold_read_from_constant_string (tree);
103 extern tree fold_read_from_vector (tree, poly_uint64);
104 #if GCC_VEC_PERN_INDICES_H
105 extern tree fold_vec_perm (tree, tree, tree, const vec_perm_indices &);
106 #endif
107 extern bool wide_int_binop (wide_int &res, enum tree_code,
108 const wide_int &arg1, const wide_int &arg2,
109 signop, wi::overflow_type *);
110 extern tree int_const_binop (enum tree_code, const_tree, const_tree, int = 1);
111 #define build_fold_addr_expr(T)\
112 build_fold_addr_expr_loc (UNKNOWN_LOCATION, (T))
113 extern tree build_fold_addr_expr_loc (location_t, tree);
114 #define build_fold_addr_expr_with_type(T,TYPE)\
115 build_fold_addr_expr_with_type_loc (UNKNOWN_LOCATION, (T), TYPE)
116 extern tree build_fold_addr_expr_with_type_loc (location_t, tree, tree);
117 extern tree fold_build_cleanup_point_expr (tree type, tree expr);
118 #define build_fold_indirect_ref(T)\
119 build_fold_indirect_ref_loc (UNKNOWN_LOCATION, T)
120 extern tree build_fold_indirect_ref_loc (location_t, tree);
121 #define fold_indirect_ref(T)\
122 fold_indirect_ref_loc (UNKNOWN_LOCATION, T)
123 extern tree fold_indirect_ref_loc (location_t, tree);
124 extern tree build_simple_mem_ref_loc (location_t, tree);
125 #define build_simple_mem_ref(T)\
126 build_simple_mem_ref_loc (UNKNOWN_LOCATION, T)
127 extern poly_offset_int mem_ref_offset (const_tree);
128 extern tree build_invariant_address (tree, tree, poly_int64);
129 extern tree constant_boolean_node (bool, tree);
130 extern tree div_if_zero_remainder (const_tree, const_tree);
131
132 extern bool tree_swap_operands_p (const_tree, const_tree);
133 extern enum tree_code swap_tree_comparison (enum tree_code);
134
135 extern bool ptr_difference_const (tree, tree, poly_int64_pod *);
136 extern enum tree_code invert_tree_comparison (enum tree_code, bool);
137 extern bool inverse_conditions_p (const_tree, const_tree);
138
139 extern bool tree_unary_nonzero_warnv_p (enum tree_code, tree, tree, bool *);
140 extern bool tree_binary_nonzero_warnv_p (enum tree_code, tree, tree, tree op1,
141 bool *);
142 extern bool tree_single_nonzero_warnv_p (tree, bool *);
143 extern bool tree_unary_nonnegative_warnv_p (enum tree_code, tree, tree,
144 bool *, int);
145 extern bool tree_binary_nonnegative_warnv_p (enum tree_code, tree, tree, tree,
146 bool *, int);
147 extern bool tree_single_nonnegative_warnv_p (tree, bool *, int);
148 extern bool tree_call_nonnegative_warnv_p (tree, combined_fn, tree, tree,
149 bool *, int);
150
151 extern bool integer_valued_real_unary_p (tree_code, tree, int);
152 extern bool integer_valued_real_binary_p (tree_code, tree, tree, int);
153 extern bool integer_valued_real_call_p (combined_fn, tree, tree, int);
154 extern bool integer_valued_real_single_p (tree, int);
155 extern bool integer_valued_real_p (tree, int = 0);
156
157 extern bool fold_real_zero_addition_p (const_tree, const_tree, int);
158 extern tree combine_comparisons (location_t, enum tree_code, enum tree_code,
159 enum tree_code, tree, tree, tree);
160 extern void debug_fold_checksum (const_tree);
161 extern bool may_negate_without_overflow_p (const_tree);
162 #define round_up(T,N) round_up_loc (UNKNOWN_LOCATION, T, N)
163 extern tree round_up_loc (location_t, tree, unsigned int);
164 #define round_down(T,N) round_down_loc (UNKNOWN_LOCATION, T, N)
165 extern tree round_down_loc (location_t, tree, int);
166 extern tree size_int_kind (poly_int64, enum size_type_kind);
167 #define size_binop(CODE,T1,T2)\
168 size_binop_loc (UNKNOWN_LOCATION, CODE, T1, T2)
169 extern tree size_binop_loc (location_t, enum tree_code, tree, tree);
170 #define size_diffop(T1,T2)\
171 size_diffop_loc (UNKNOWN_LOCATION, T1, T2)
172 extern tree size_diffop_loc (location_t, tree, tree);
173
174 /* Return an expr equal to X but certainly not valid as an lvalue. */
175 #define non_lvalue(T) non_lvalue_loc (UNKNOWN_LOCATION, T)
176 extern tree non_lvalue_loc (location_t, tree);
177
178 extern bool tree_expr_nonzero_p (tree);
179 extern bool tree_expr_nonnegative_p (tree);
180 extern bool tree_expr_nonnegative_warnv_p (tree, bool *, int = 0);
181 extern tree make_range (tree, int *, tree *, tree *, bool *);
182 extern tree make_range_step (location_t, enum tree_code, tree, tree, tree,
183 tree *, tree *, int *, bool *);
184 extern tree range_check_type (tree);
185 extern tree build_range_check (location_t, tree, tree, int, tree, tree);
186 extern bool merge_ranges (int *, tree *, tree *, int, tree, tree, int,
187 tree, tree);
188 extern tree sign_bit_p (tree, const_tree);
189 extern tree exact_inverse (tree, tree);
190 extern bool expr_not_equal_to (tree t, const wide_int &);
191 extern tree const_unop (enum tree_code, tree, tree);
192 extern tree const_binop (enum tree_code, tree, tree, tree);
193 extern bool negate_mathfn_p (combined_fn);
194 extern const char *c_getstr (tree, unsigned HOST_WIDE_INT * = NULL);
195 extern wide_int tree_nonzero_bits (const_tree);
196
197 /* Return OFF converted to a pointer offset type suitable as offset for
198 POINTER_PLUS_EXPR. Use location LOC for this conversion. */
199 extern tree convert_to_ptrofftype_loc (location_t loc, tree off);
200
201 #define convert_to_ptrofftype(t) convert_to_ptrofftype_loc (UNKNOWN_LOCATION, t)
202
203 /* Build and fold a POINTER_PLUS_EXPR at LOC offsetting PTR by OFF. */
204 extern tree fold_build_pointer_plus_loc (location_t loc, tree ptr, tree off);
205
206 #define fold_build_pointer_plus(p,o) \
207 fold_build_pointer_plus_loc (UNKNOWN_LOCATION, p, o)
208
209 /* Build and fold a POINTER_PLUS_EXPR at LOC offsetting PTR by OFF. */
210 extern tree fold_build_pointer_plus_hwi_loc (location_t loc, tree ptr, HOST_WIDE_INT off);
211
212 #define fold_build_pointer_plus_hwi(p,o) \
213 fold_build_pointer_plus_hwi_loc (UNKNOWN_LOCATION, p, o)
214 #endif // GCC_FOLD_CONST_H