ira-int.h revision 1.1.1.1.8.2 1 1.1.1.1.8.2 tls /* Integrated Register Allocator (IRA) intercommunication header file.
2 1.1.1.1.8.2 tls Copyright (C) 2006, 2007, 2008, 2009
3 1.1.1.1.8.2 tls Free Software Foundation, Inc.
4 1.1.1.1.8.2 tls Contributed by Vladimir Makarov <vmakarov (at) redhat.com>.
5 1.1.1.1.8.2 tls
6 1.1.1.1.8.2 tls This file is part of GCC.
7 1.1.1.1.8.2 tls
8 1.1.1.1.8.2 tls GCC is free software; you can redistribute it and/or modify it under
9 1.1.1.1.8.2 tls the terms of the GNU General Public License as published by the Free
10 1.1.1.1.8.2 tls Software Foundation; either version 3, or (at your option) any later
11 1.1.1.1.8.2 tls version.
12 1.1.1.1.8.2 tls
13 1.1.1.1.8.2 tls GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 1.1.1.1.8.2 tls WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 1.1.1.1.8.2 tls FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 1.1.1.1.8.2 tls for more details.
17 1.1.1.1.8.2 tls
18 1.1.1.1.8.2 tls You should have received a copy of the GNU General Public License
19 1.1.1.1.8.2 tls along with GCC; see the file COPYING3. If not see
20 1.1.1.1.8.2 tls <http://www.gnu.org/licenses/>. */
21 1.1.1.1.8.2 tls
22 1.1.1.1.8.2 tls #include "cfgloop.h"
23 1.1.1.1.8.2 tls #include "ira.h"
24 1.1.1.1.8.2 tls #include "alloc-pool.h"
25 1.1.1.1.8.2 tls
26 1.1.1.1.8.2 tls /* To provide consistency in naming, all IRA external variables,
27 1.1.1.1.8.2 tls functions, common typedefs start with prefix ira_. */
28 1.1.1.1.8.2 tls
29 1.1.1.1.8.2 tls #ifdef ENABLE_CHECKING
30 1.1.1.1.8.2 tls #define ENABLE_IRA_CHECKING
31 1.1.1.1.8.2 tls #endif
32 1.1.1.1.8.2 tls
33 1.1.1.1.8.2 tls #ifdef ENABLE_IRA_CHECKING
34 1.1.1.1.8.2 tls #define ira_assert(c) gcc_assert (c)
35 1.1.1.1.8.2 tls #else
36 1.1.1.1.8.2 tls /* Always define and include C, so that warnings for empty body in an
37 1.1.1.1.8.2 tls if statement and unused variable do not occur. */
38 1.1.1.1.8.2 tls #define ira_assert(c) ((void)(0 && (c)))
39 1.1.1.1.8.2 tls #endif
40 1.1.1.1.8.2 tls
41 1.1.1.1.8.2 tls /* Compute register frequency from edge frequency FREQ. It is
42 1.1.1.1.8.2 tls analogous to REG_FREQ_FROM_BB. When optimizing for size, or
43 1.1.1.1.8.2 tls profile driven feedback is available and the function is never
44 1.1.1.1.8.2 tls executed, frequency is always equivalent. Otherwise rescale the
45 1.1.1.1.8.2 tls edge frequency. */
46 1.1.1.1.8.2 tls #define REG_FREQ_FROM_EDGE_FREQ(freq) \
47 1.1.1.1.8.2 tls (optimize_size || (flag_branch_probabilities && !ENTRY_BLOCK_PTR->count) \
48 1.1.1.1.8.2 tls ? REG_FREQ_MAX : (freq * REG_FREQ_MAX / BB_FREQ_MAX) \
49 1.1.1.1.8.2 tls ? (freq * REG_FREQ_MAX / BB_FREQ_MAX) : 1)
50 1.1.1.1.8.2 tls
51 1.1.1.1.8.2 tls /* All natural loops. */
52 1.1.1.1.8.2 tls extern struct loops ira_loops;
53 1.1.1.1.8.2 tls
54 1.1.1.1.8.2 tls /* A modified value of flag `-fira-verbose' used internally. */
55 1.1.1.1.8.2 tls extern int internal_flag_ira_verbose;
56 1.1.1.1.8.2 tls
57 1.1.1.1.8.2 tls /* Dump file of the allocator if it is not NULL. */
58 1.1.1.1.8.2 tls extern FILE *ira_dump_file;
59 1.1.1.1.8.2 tls
60 1.1.1.1.8.2 tls /* Typedefs for pointers to allocno live range, allocno, and copy of
61 1.1.1.1.8.2 tls allocnos. */
62 1.1.1.1.8.2 tls typedef struct ira_allocno_live_range *allocno_live_range_t;
63 1.1.1.1.8.2 tls typedef struct ira_allocno *ira_allocno_t;
64 1.1.1.1.8.2 tls typedef struct ira_allocno_copy *ira_copy_t;
65 1.1.1.1.8.2 tls
66 1.1.1.1.8.2 tls /* Definition of vector of allocnos and copies. */
67 1.1.1.1.8.2 tls DEF_VEC_P(ira_allocno_t);
68 1.1.1.1.8.2 tls DEF_VEC_ALLOC_P(ira_allocno_t, heap);
69 1.1.1.1.8.2 tls DEF_VEC_P(ira_copy_t);
70 1.1.1.1.8.2 tls DEF_VEC_ALLOC_P(ira_copy_t, heap);
71 1.1.1.1.8.2 tls
72 1.1.1.1.8.2 tls /* Typedef for pointer to the subsequent structure. */
73 1.1.1.1.8.2 tls typedef struct ira_loop_tree_node *ira_loop_tree_node_t;
74 1.1.1.1.8.2 tls
75 1.1.1.1.8.2 tls /* In general case, IRA is a regional allocator. The regions are
76 1.1.1.1.8.2 tls nested and form a tree. Currently regions are natural loops. The
77 1.1.1.1.8.2 tls following structure describes loop tree node (representing basic
78 1.1.1.1.8.2 tls block or loop). We need such tree because the loop tree from
79 1.1.1.1.8.2 tls cfgloop.h is not convenient for the optimization: basic blocks are
80 1.1.1.1.8.2 tls not a part of the tree from cfgloop.h. We also use the nodes for
81 1.1.1.1.8.2 tls storing additional information about basic blocks/loops for the
82 1.1.1.1.8.2 tls register allocation purposes. */
83 1.1.1.1.8.2 tls struct ira_loop_tree_node
84 1.1.1.1.8.2 tls {
85 1.1.1.1.8.2 tls /* The node represents basic block if children == NULL. */
86 1.1.1.1.8.2 tls basic_block bb; /* NULL for loop. */
87 1.1.1.1.8.2 tls struct loop *loop; /* NULL for BB. */
88 1.1.1.1.8.2 tls /* NEXT/SUBLOOP_NEXT is the next node/loop-node of the same parent.
89 1.1.1.1.8.2 tls SUBLOOP_NEXT is always NULL for BBs. */
90 1.1.1.1.8.2 tls ira_loop_tree_node_t subloop_next, next;
91 1.1.1.1.8.2 tls /* CHILDREN/SUBLOOPS is the first node/loop-node immediately inside
92 1.1.1.1.8.2 tls the node. They are NULL for BBs. */
93 1.1.1.1.8.2 tls ira_loop_tree_node_t subloops, children;
94 1.1.1.1.8.2 tls /* The node immediately containing given node. */
95 1.1.1.1.8.2 tls ira_loop_tree_node_t parent;
96 1.1.1.1.8.2 tls
97 1.1.1.1.8.2 tls /* Loop level in range [0, ira_loop_tree_height). */
98 1.1.1.1.8.2 tls int level;
99 1.1.1.1.8.2 tls
100 1.1.1.1.8.2 tls /* All the following members are defined only for nodes representing
101 1.1.1.1.8.2 tls loops. */
102 1.1.1.1.8.2 tls
103 1.1.1.1.8.2 tls /* True if the loop was marked for removal from the register
104 1.1.1.1.8.2 tls allocation. */
105 1.1.1.1.8.2 tls bool to_remove_p;
106 1.1.1.1.8.2 tls
107 1.1.1.1.8.2 tls /* Allocnos in the loop corresponding to their regnos. If it is
108 1.1.1.1.8.2 tls NULL the loop does not form a separate register allocation region
109 1.1.1.1.8.2 tls (e.g. because it has abnormal enter/exit edges and we can not put
110 1.1.1.1.8.2 tls code for register shuffling on the edges if a different
111 1.1.1.1.8.2 tls allocation is used for a pseudo-register on different sides of
112 1.1.1.1.8.2 tls the edges). Caps are not in the map (remember we can have more
113 1.1.1.1.8.2 tls one cap with the same regno in a region). */
114 1.1.1.1.8.2 tls ira_allocno_t *regno_allocno_map;
115 1.1.1.1.8.2 tls
116 1.1.1.1.8.2 tls /* True if there is an entry to given loop not from its parent (or
117 1.1.1.1.8.2 tls grandparent) basic block. For example, it is possible for two
118 1.1.1.1.8.2 tls adjacent loops inside another loop. */
119 1.1.1.1.8.2 tls bool entered_from_non_parent_p;
120 1.1.1.1.8.2 tls
121 1.1.1.1.8.2 tls /* Maximal register pressure inside loop for given register class
122 1.1.1.1.8.2 tls (defined only for the cover classes). */
123 1.1.1.1.8.2 tls int reg_pressure[N_REG_CLASSES];
124 1.1.1.1.8.2 tls
125 1.1.1.1.8.2 tls /* Numbers of allocnos referred or living in the loop node (except
126 1.1.1.1.8.2 tls for its subloops). */
127 1.1.1.1.8.2 tls bitmap all_allocnos;
128 1.1.1.1.8.2 tls
129 1.1.1.1.8.2 tls /* Numbers of allocnos living at the loop borders. */
130 1.1.1.1.8.2 tls bitmap border_allocnos;
131 1.1.1.1.8.2 tls
132 1.1.1.1.8.2 tls /* Regnos of pseudos modified in the loop node (including its
133 1.1.1.1.8.2 tls subloops). */
134 1.1.1.1.8.2 tls bitmap modified_regnos;
135 1.1.1.1.8.2 tls
136 1.1.1.1.8.2 tls /* Numbers of copies referred in the corresponding loop. */
137 1.1.1.1.8.2 tls bitmap local_copies;
138 1.1.1.1.8.2 tls };
139 1.1.1.1.8.2 tls
140 1.1.1.1.8.2 tls /* The root of the loop tree corresponding to the all function. */
141 1.1.1.1.8.2 tls extern ira_loop_tree_node_t ira_loop_tree_root;
142 1.1.1.1.8.2 tls
143 1.1.1.1.8.2 tls /* Height of the loop tree. */
144 1.1.1.1.8.2 tls extern int ira_loop_tree_height;
145 1.1.1.1.8.2 tls
146 1.1.1.1.8.2 tls /* All nodes representing basic blocks are referred through the
147 1.1.1.1.8.2 tls following array. We can not use basic block member `aux' for this
148 1.1.1.1.8.2 tls because it is used for insertion of insns on edges. */
149 1.1.1.1.8.2 tls extern ira_loop_tree_node_t ira_bb_nodes;
150 1.1.1.1.8.2 tls
151 1.1.1.1.8.2 tls /* Two access macros to the nodes representing basic blocks. */
152 1.1.1.1.8.2 tls #if defined ENABLE_IRA_CHECKING && (GCC_VERSION >= 2007)
153 1.1.1.1.8.2 tls #define IRA_BB_NODE_BY_INDEX(index) __extension__ \
154 1.1.1.1.8.2 tls (({ ira_loop_tree_node_t _node = (&ira_bb_nodes[index]); \
155 1.1.1.1.8.2 tls if (_node->children != NULL || _node->loop != NULL || _node->bb == NULL)\
156 1.1.1.1.8.2 tls { \
157 1.1.1.1.8.2 tls fprintf (stderr, \
158 1.1.1.1.8.2 tls "\n%s: %d: error in %s: it is not a block node\n", \
159 1.1.1.1.8.2 tls __FILE__, __LINE__, __FUNCTION__); \
160 1.1.1.1.8.2 tls gcc_unreachable (); \
161 1.1.1.1.8.2 tls } \
162 1.1.1.1.8.2 tls _node; }))
163 1.1.1.1.8.2 tls #else
164 1.1.1.1.8.2 tls #define IRA_BB_NODE_BY_INDEX(index) (&ira_bb_nodes[index])
165 1.1.1.1.8.2 tls #endif
166 1.1.1.1.8.2 tls
167 1.1.1.1.8.2 tls #define IRA_BB_NODE(bb) IRA_BB_NODE_BY_INDEX ((bb)->index)
168 1.1.1.1.8.2 tls
169 1.1.1.1.8.2 tls /* All nodes representing loops are referred through the following
170 1.1.1.1.8.2 tls array. */
171 1.1.1.1.8.2 tls extern ira_loop_tree_node_t ira_loop_nodes;
172 1.1.1.1.8.2 tls
173 1.1.1.1.8.2 tls /* Two access macros to the nodes representing loops. */
174 1.1.1.1.8.2 tls #if defined ENABLE_IRA_CHECKING && (GCC_VERSION >= 2007)
175 1.1.1.1.8.2 tls #define IRA_LOOP_NODE_BY_INDEX(index) __extension__ \
176 1.1.1.1.8.2 tls (({ ira_loop_tree_node_t const _node = (&ira_loop_nodes[index]);\
177 1.1.1.1.8.2 tls if (_node->children == NULL || _node->bb != NULL || _node->loop == NULL)\
178 1.1.1.1.8.2 tls { \
179 1.1.1.1.8.2 tls fprintf (stderr, \
180 1.1.1.1.8.2 tls "\n%s: %d: error in %s: it is not a loop node\n", \
181 1.1.1.1.8.2 tls __FILE__, __LINE__, __FUNCTION__); \
182 1.1.1.1.8.2 tls gcc_unreachable (); \
183 1.1.1.1.8.2 tls } \
184 1.1.1.1.8.2 tls _node; }))
185 1.1.1.1.8.2 tls #else
186 1.1.1.1.8.2 tls #define IRA_LOOP_NODE_BY_INDEX(index) (&ira_loop_nodes[index])
187 1.1.1.1.8.2 tls #endif
188 1.1.1.1.8.2 tls
189 1.1.1.1.8.2 tls #define IRA_LOOP_NODE(loop) IRA_LOOP_NODE_BY_INDEX ((loop)->num)
190 1.1.1.1.8.2 tls
191 1.1.1.1.8.2 tls
192 1.1.1.1.8.2 tls
194 1.1.1.1.8.2 tls /* The structure describes program points where a given allocno lives.
195 1.1.1.1.8.2 tls To save memory we store allocno conflicts only for the same cover
196 1.1.1.1.8.2 tls class allocnos which is enough to assign hard registers. To find
197 1.1.1.1.8.2 tls conflicts for other allocnos (e.g. to assign stack memory slot) we
198 1.1.1.1.8.2 tls use the live ranges. If the live ranges of two allocnos are
199 1.1.1.1.8.2 tls intersected, the allocnos are in conflict. */
200 1.1.1.1.8.2 tls struct ira_allocno_live_range
201 1.1.1.1.8.2 tls {
202 1.1.1.1.8.2 tls /* Allocno whose live range is described by given structure. */
203 1.1.1.1.8.2 tls ira_allocno_t allocno;
204 1.1.1.1.8.2 tls /* Program point range. */
205 1.1.1.1.8.2 tls int start, finish;
206 1.1.1.1.8.2 tls /* Next structure describing program points where the allocno
207 1.1.1.1.8.2 tls lives. */
208 1.1.1.1.8.2 tls allocno_live_range_t next;
209 1.1.1.1.8.2 tls /* Pointer to structures with the same start/finish. */
210 1.1.1.1.8.2 tls allocno_live_range_t start_next, finish_next;
211 1.1.1.1.8.2 tls };
212 1.1.1.1.8.2 tls
213 1.1.1.1.8.2 tls /* Program points are enumerated by numbers from range
214 1.1.1.1.8.2 tls 0..IRA_MAX_POINT-1. There are approximately two times more program
215 1.1.1.1.8.2 tls points than insns. Program points are places in the program where
216 1.1.1.1.8.2 tls liveness info can be changed. In most general case (there are more
217 1.1.1.1.8.2 tls complicated cases too) some program points correspond to places
218 1.1.1.1.8.2 tls where input operand dies and other ones correspond to places where
219 1.1.1.1.8.2 tls output operands are born. */
220 1.1.1.1.8.2 tls extern int ira_max_point;
221 1.1.1.1.8.2 tls
222 1.1.1.1.8.2 tls /* Arrays of size IRA_MAX_POINT mapping a program point to the allocno
223 1.1.1.1.8.2 tls live ranges with given start/finish point. */
224 1.1.1.1.8.2 tls extern allocno_live_range_t *ira_start_point_ranges, *ira_finish_point_ranges;
225 1.1.1.1.8.2 tls
226 1.1.1.1.8.2 tls /* A structure representing an allocno (allocation entity). Allocno
227 1.1.1.1.8.2 tls represents a pseudo-register in an allocation region. If
228 1.1.1.1.8.2 tls pseudo-register does not live in a region but it lives in the
229 1.1.1.1.8.2 tls nested regions, it is represented in the region by special allocno
230 1.1.1.1.8.2 tls called *cap*. There may be more one cap representing the same
231 1.1.1.1.8.2 tls pseudo-register in region. It means that the corresponding
232 1.1.1.1.8.2 tls pseudo-register lives in more one non-intersected subregion. */
233 1.1.1.1.8.2 tls struct ira_allocno
234 1.1.1.1.8.2 tls {
235 1.1.1.1.8.2 tls /* The allocno order number starting with 0. Each allocno has an
236 1.1.1.1.8.2 tls unique number and the number is never changed for the
237 1.1.1.1.8.2 tls allocno. */
238 1.1.1.1.8.2 tls int num;
239 1.1.1.1.8.2 tls /* Regno for allocno or cap. */
240 1.1.1.1.8.2 tls int regno;
241 1.1.1.1.8.2 tls /* Mode of the allocno which is the mode of the corresponding
242 1.1.1.1.8.2 tls pseudo-register. */
243 1.1.1.1.8.2 tls enum machine_mode mode;
244 1.1.1.1.8.2 tls /* Hard register assigned to given allocno. Negative value means
245 1.1.1.1.8.2 tls that memory was allocated to the allocno. During the reload,
246 1.1.1.1.8.2 tls spilled allocno has value equal to the corresponding stack slot
247 1.1.1.1.8.2 tls number (0, ...) - 2. Value -1 is used for allocnos spilled by the
248 1.1.1.1.8.2 tls reload (at this point pseudo-register has only one allocno) which
249 1.1.1.1.8.2 tls did not get stack slot yet. */
250 1.1.1.1.8.2 tls int hard_regno;
251 1.1.1.1.8.2 tls /* Final rtx representation of the allocno. */
252 1.1.1.1.8.2 tls rtx reg;
253 1.1.1.1.8.2 tls /* Allocnos with the same regno are linked by the following member.
254 1.1.1.1.8.2 tls Allocnos corresponding to inner loops are first in the list (it
255 1.1.1.1.8.2 tls corresponds to depth-first traverse of the loops). */
256 1.1.1.1.8.2 tls ira_allocno_t next_regno_allocno;
257 1.1.1.1.8.2 tls /* There may be different allocnos with the same regno in different
258 1.1.1.1.8.2 tls regions. Allocnos are bound to the corresponding loop tree node.
259 1.1.1.1.8.2 tls Pseudo-register may have only one regular allocno with given loop
260 1.1.1.1.8.2 tls tree node but more than one cap (see comments above). */
261 1.1.1.1.8.2 tls ira_loop_tree_node_t loop_tree_node;
262 1.1.1.1.8.2 tls /* Accumulated usage references of the allocno. Here and below,
263 1.1.1.1.8.2 tls word 'accumulated' means info for given region and all nested
264 1.1.1.1.8.2 tls subregions. In this case, 'accumulated' means sum of references
265 1.1.1.1.8.2 tls of the corresponding pseudo-register in this region and in all
266 1.1.1.1.8.2 tls nested subregions recursively. */
267 1.1.1.1.8.2 tls int nrefs;
268 1.1.1.1.8.2 tls /* Accumulated frequency of usage of the allocno. */
269 1.1.1.1.8.2 tls int freq;
270 1.1.1.1.8.2 tls /* Register class which should be used for allocation for given
271 1.1.1.1.8.2 tls allocno. NO_REGS means that we should use memory. */
272 1.1.1.1.8.2 tls enum reg_class cover_class;
273 1.1.1.1.8.2 tls /* Minimal accumulated and updated costs of usage register of the
274 1.1.1.1.8.2 tls cover class for the allocno. */
275 1.1.1.1.8.2 tls int cover_class_cost, updated_cover_class_cost;
276 1.1.1.1.8.2 tls /* Minimal accumulated, and updated costs of memory for the allocno.
277 1.1.1.1.8.2 tls At the allocation start, the original and updated costs are
278 1.1.1.1.8.2 tls equal. The updated cost may be changed after finishing
279 1.1.1.1.8.2 tls allocation in a region and starting allocation in a subregion.
280 1.1.1.1.8.2 tls The change reflects the cost of spill/restore code on the
281 1.1.1.1.8.2 tls subregion border if we assign memory to the pseudo in the
282 1.1.1.1.8.2 tls subregion. */
283 1.1.1.1.8.2 tls int memory_cost, updated_memory_cost;
284 1.1.1.1.8.2 tls /* Accumulated number of points where the allocno lives and there is
285 1.1.1.1.8.2 tls excess pressure for its class. Excess pressure for a register
286 1.1.1.1.8.2 tls class at some point means that there are more allocnos of given
287 1.1.1.1.8.2 tls register class living at the point than number of hard-registers
288 1.1.1.1.8.2 tls of the class available for the allocation. */
289 1.1.1.1.8.2 tls int excess_pressure_points_num;
290 1.1.1.1.8.2 tls /* Copies to other non-conflicting allocnos. The copies can
291 1.1.1.1.8.2 tls represent move insn or potential move insn usually because of two
292 1.1.1.1.8.2 tls operand insn constraints. */
293 1.1.1.1.8.2 tls ira_copy_t allocno_copies;
294 1.1.1.1.8.2 tls /* It is a allocno (cap) representing given allocno on upper loop tree
295 1.1.1.1.8.2 tls level. */
296 1.1.1.1.8.2 tls ira_allocno_t cap;
297 1.1.1.1.8.2 tls /* It is a link to allocno (cap) on lower loop level represented by
298 1.1.1.1.8.2 tls given cap. Null if given allocno is not a cap. */
299 1.1.1.1.8.2 tls ira_allocno_t cap_member;
300 1.1.1.1.8.2 tls /* Coalesced allocnos form a cyclic list. One allocno given by
301 1.1.1.1.8.2 tls FIRST_COALESCED_ALLOCNO represents all coalesced allocnos. The
302 1.1.1.1.8.2 tls list is chained by NEXT_COALESCED_ALLOCNO. */
303 1.1.1.1.8.2 tls ira_allocno_t first_coalesced_allocno;
304 1.1.1.1.8.2 tls ira_allocno_t next_coalesced_allocno;
305 1.1.1.1.8.2 tls /* Pointer to structures describing at what program point the
306 1.1.1.1.8.2 tls allocno lives. We always maintain the list in such way that *the
307 1.1.1.1.8.2 tls ranges in the list are not intersected and ordered by decreasing
308 1.1.1.1.8.2 tls their program points*. */
309 1.1.1.1.8.2 tls allocno_live_range_t live_ranges;
310 1.1.1.1.8.2 tls /* Before building conflicts the two member values are
311 1.1.1.1.8.2 tls correspondingly minimal and maximal points of the accumulated
312 1.1.1.1.8.2 tls allocno live ranges. After building conflicts the values are
313 1.1.1.1.8.2 tls correspondingly minimal and maximal conflict ids of allocnos with
314 1.1.1.1.8.2 tls which given allocno can conflict. */
315 1.1.1.1.8.2 tls int min, max;
316 1.1.1.1.8.2 tls /* Vector of accumulated conflicting allocnos with NULL end marker
317 1.1.1.1.8.2 tls (if CONFLICT_VEC_P is true) or conflict bit vector otherwise.
318 1.1.1.1.8.2 tls Only allocnos with the same cover class are in the vector or in
319 1.1.1.1.8.2 tls the bit vector. */
320 1.1.1.1.8.2 tls void *conflict_allocno_array;
321 1.1.1.1.8.2 tls /* The unique member value represents given allocno in conflict bit
322 1.1.1.1.8.2 tls vectors. */
323 1.1.1.1.8.2 tls int conflict_id;
324 1.1.1.1.8.2 tls /* Allocated size of the previous array. */
325 1.1.1.1.8.2 tls unsigned int conflict_allocno_array_size;
326 1.1.1.1.8.2 tls /* Initial and accumulated hard registers conflicting with this
327 1.1.1.1.8.2 tls allocno and as a consequences can not be assigned to the allocno.
328 1.1.1.1.8.2 tls All non-allocatable hard regs and hard regs of cover classes
329 1.1.1.1.8.2 tls different from given allocno one are included in the sets. */
330 1.1.1.1.8.2 tls HARD_REG_SET conflict_hard_regs, total_conflict_hard_regs;
331 1.1.1.1.8.2 tls /* Number of accumulated conflicts in the vector of conflicting
332 1.1.1.1.8.2 tls allocnos. */
333 1.1.1.1.8.2 tls int conflict_allocnos_num;
334 1.1.1.1.8.2 tls /* Accumulated frequency of calls which given allocno
335 1.1.1.1.8.2 tls intersects. */
336 1.1.1.1.8.2 tls int call_freq;
337 1.1.1.1.8.2 tls /* Accumulated number of the intersected calls. */
338 1.1.1.1.8.2 tls int calls_crossed_num;
339 1.1.1.1.8.2 tls /* TRUE if the allocno assigned to memory was a destination of
340 1.1.1.1.8.2 tls removed move (see ira-emit.c) at loop exit because the value of
341 1.1.1.1.8.2 tls the corresponding pseudo-register is not changed inside the
342 1.1.1.1.8.2 tls loop. */
343 1.1.1.1.8.2 tls unsigned int mem_optimized_dest_p : 1;
344 1.1.1.1.8.2 tls /* TRUE if the corresponding pseudo-register has disjoint live
345 1.1.1.1.8.2 tls ranges and the other allocnos of the pseudo-register except this
346 1.1.1.1.8.2 tls one changed REG. */
347 1.1.1.1.8.2 tls unsigned int somewhere_renamed_p : 1;
348 1.1.1.1.8.2 tls /* TRUE if allocno with the same REGNO in a subregion has been
349 1.1.1.1.8.2 tls renamed, in other words, got a new pseudo-register. */
350 1.1.1.1.8.2 tls unsigned int child_renamed_p : 1;
351 1.1.1.1.8.2 tls /* During the reload, value TRUE means that we should not reassign a
352 1.1.1.1.8.2 tls hard register to the allocno got memory earlier. It is set up
353 1.1.1.1.8.2 tls when we removed memory-memory move insn before each iteration of
354 1.1.1.1.8.2 tls the reload. */
355 1.1.1.1.8.2 tls unsigned int dont_reassign_p : 1;
356 1.1.1.1.8.2 tls #ifdef STACK_REGS
357 1.1.1.1.8.2 tls /* Set to TRUE if allocno can't be assigned to the stack hard
358 1.1.1.1.8.2 tls register correspondingly in this region and area including the
359 1.1.1.1.8.2 tls region and all its subregions recursively. */
360 1.1.1.1.8.2 tls unsigned int no_stack_reg_p : 1, total_no_stack_reg_p : 1;
361 1.1.1.1.8.2 tls #endif
362 1.1.1.1.8.2 tls /* TRUE value means that there is no sense to spill the allocno
363 1.1.1.1.8.2 tls during coloring because the spill will result in additional
364 1.1.1.1.8.2 tls reloads in reload pass. */
365 1.1.1.1.8.2 tls unsigned int bad_spill_p : 1;
366 1.1.1.1.8.2 tls /* TRUE value means that the allocno was not removed yet from the
367 1.1.1.1.8.2 tls conflicting graph during colouring. */
368 1.1.1.1.8.2 tls unsigned int in_graph_p : 1;
369 1.1.1.1.8.2 tls /* TRUE if a hard register or memory has been assigned to the
370 1.1.1.1.8.2 tls allocno. */
371 1.1.1.1.8.2 tls unsigned int assigned_p : 1;
372 1.1.1.1.8.2 tls /* TRUE if it is put on the stack to make other allocnos
373 1.1.1.1.8.2 tls colorable. */
374 1.1.1.1.8.2 tls unsigned int may_be_spilled_p : 1;
375 1.1.1.1.8.2 tls /* TRUE if the allocno was removed from the splay tree used to
376 1.1.1.1.8.2 tls choose allocn for spilling (see ira-color.c::. */
377 1.1.1.1.8.2 tls unsigned int splay_removed_p : 1;
378 1.1.1.1.8.2 tls /* TRUE if conflicts for given allocno are represented by vector of
379 1.1.1.1.8.2 tls pointers to the conflicting allocnos. Otherwise, we use a bit
380 1.1.1.1.8.2 tls vector where a bit with given index represents allocno with the
381 1.1.1.1.8.2 tls same number. */
382 1.1.1.1.8.2 tls unsigned int conflict_vec_p : 1;
383 1.1.1.1.8.2 tls /* Non NULL if we remove restoring value from given allocno to
384 1.1.1.1.8.2 tls MEM_OPTIMIZED_DEST at loop exit (see ira-emit.c) because the
385 1.1.1.1.8.2 tls allocno value is not changed inside the loop. */
386 1.1.1.1.8.2 tls ira_allocno_t mem_optimized_dest;
387 1.1.1.1.8.2 tls /* Array of usage costs (accumulated and the one updated during
388 1.1.1.1.8.2 tls coloring) for each hard register of the allocno cover class. The
389 1.1.1.1.8.2 tls member value can be NULL if all costs are the same and equal to
390 1.1.1.1.8.2 tls COVER_CLASS_COST. For example, the costs of two different hard
391 1.1.1.1.8.2 tls registers can be different if one hard register is callee-saved
392 1.1.1.1.8.2 tls and another one is callee-used and the allocno lives through
393 1.1.1.1.8.2 tls calls. Another example can be case when for some insn the
394 1.1.1.1.8.2 tls corresponding pseudo-register value should be put in specific
395 1.1.1.1.8.2 tls register class (e.g. AREG for x86) which is a strict subset of
396 1.1.1.1.8.2 tls the allocno cover class (GENERAL_REGS for x86). We have updated
397 1.1.1.1.8.2 tls costs to reflect the situation when the usage cost of a hard
398 1.1.1.1.8.2 tls register is decreased because the allocno is connected to another
399 1.1.1.1.8.2 tls allocno by a copy and the another allocno has been assigned to
400 1.1.1.1.8.2 tls the hard register. */
401 1.1.1.1.8.2 tls int *hard_reg_costs, *updated_hard_reg_costs;
402 1.1.1.1.8.2 tls /* Array of decreasing costs (accumulated and the one updated during
403 1.1.1.1.8.2 tls coloring) for allocnos conflicting with given allocno for hard
404 1.1.1.1.8.2 tls regno of the allocno cover class. The member value can be NULL
405 1.1.1.1.8.2 tls if all costs are the same. These costs are used to reflect
406 1.1.1.1.8.2 tls preferences of other allocnos not assigned yet during assigning
407 1.1.1.1.8.2 tls to given allocno. */
408 1.1.1.1.8.2 tls int *conflict_hard_reg_costs, *updated_conflict_hard_reg_costs;
409 1.1.1.1.8.2 tls /* Size (in hard registers) of the same cover class allocnos with
410 1.1.1.1.8.2 tls TRUE in_graph_p value and conflicting with given allocno during
411 1.1.1.1.8.2 tls each point of graph coloring. */
412 1.1.1.1.8.2 tls int left_conflicts_size;
413 1.1.1.1.8.2 tls /* Number of hard registers of the allocno cover class really
414 1.1.1.1.8.2 tls available for the allocno allocation. */
415 1.1.1.1.8.2 tls int available_regs_num;
416 1.1.1.1.8.2 tls /* Allocnos in a bucket (used in coloring) chained by the following
417 1.1.1.1.8.2 tls two members. */
418 1.1.1.1.8.2 tls ira_allocno_t next_bucket_allocno;
419 1.1.1.1.8.2 tls ira_allocno_t prev_bucket_allocno;
420 1.1.1.1.8.2 tls /* Used for temporary purposes. */
421 1.1.1.1.8.2 tls int temp;
422 1.1.1.1.8.2 tls };
423 1.1.1.1.8.2 tls
424 1.1.1.1.8.2 tls /* All members of the allocno structures should be accessed only
425 1.1.1.1.8.2 tls through the following macros. */
426 1.1.1.1.8.2 tls #define ALLOCNO_NUM(A) ((A)->num)
427 1.1.1.1.8.2 tls #define ALLOCNO_REGNO(A) ((A)->regno)
428 1.1.1.1.8.2 tls #define ALLOCNO_REG(A) ((A)->reg)
429 1.1.1.1.8.2 tls #define ALLOCNO_NEXT_REGNO_ALLOCNO(A) ((A)->next_regno_allocno)
430 1.1.1.1.8.2 tls #define ALLOCNO_LOOP_TREE_NODE(A) ((A)->loop_tree_node)
431 1.1.1.1.8.2 tls #define ALLOCNO_CAP(A) ((A)->cap)
432 1.1.1.1.8.2 tls #define ALLOCNO_CAP_MEMBER(A) ((A)->cap_member)
433 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_ALLOCNO_ARRAY(A) ((A)->conflict_allocno_array)
434 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_ALLOCNO_ARRAY_SIZE(A) \
435 1.1.1.1.8.2 tls ((A)->conflict_allocno_array_size)
436 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_ALLOCNOS_NUM(A) \
437 1.1.1.1.8.2 tls ((A)->conflict_allocnos_num)
438 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_HARD_REGS(A) ((A)->conflict_hard_regs)
439 1.1.1.1.8.2 tls #define ALLOCNO_TOTAL_CONFLICT_HARD_REGS(A) ((A)->total_conflict_hard_regs)
440 1.1.1.1.8.2 tls #define ALLOCNO_NREFS(A) ((A)->nrefs)
441 1.1.1.1.8.2 tls #define ALLOCNO_FREQ(A) ((A)->freq)
442 1.1.1.1.8.2 tls #define ALLOCNO_HARD_REGNO(A) ((A)->hard_regno)
443 1.1.1.1.8.2 tls #define ALLOCNO_CALL_FREQ(A) ((A)->call_freq)
444 1.1.1.1.8.2 tls #define ALLOCNO_CALLS_CROSSED_NUM(A) ((A)->calls_crossed_num)
445 1.1.1.1.8.2 tls #define ALLOCNO_MEM_OPTIMIZED_DEST(A) ((A)->mem_optimized_dest)
446 1.1.1.1.8.2 tls #define ALLOCNO_MEM_OPTIMIZED_DEST_P(A) ((A)->mem_optimized_dest_p)
447 1.1.1.1.8.2 tls #define ALLOCNO_SOMEWHERE_RENAMED_P(A) ((A)->somewhere_renamed_p)
448 1.1.1.1.8.2 tls #define ALLOCNO_CHILD_RENAMED_P(A) ((A)->child_renamed_p)
449 1.1.1.1.8.2 tls #define ALLOCNO_DONT_REASSIGN_P(A) ((A)->dont_reassign_p)
450 1.1.1.1.8.2 tls #ifdef STACK_REGS
451 1.1.1.1.8.2 tls #define ALLOCNO_NO_STACK_REG_P(A) ((A)->no_stack_reg_p)
452 1.1.1.1.8.2 tls #define ALLOCNO_TOTAL_NO_STACK_REG_P(A) ((A)->total_no_stack_reg_p)
453 1.1.1.1.8.2 tls #endif
454 1.1.1.1.8.2 tls #define ALLOCNO_BAD_SPILL_P(A) ((A)->bad_spill_p)
455 1.1.1.1.8.2 tls #define ALLOCNO_IN_GRAPH_P(A) ((A)->in_graph_p)
456 1.1.1.1.8.2 tls #define ALLOCNO_ASSIGNED_P(A) ((A)->assigned_p)
457 1.1.1.1.8.2 tls #define ALLOCNO_MAY_BE_SPILLED_P(A) ((A)->may_be_spilled_p)
458 1.1.1.1.8.2 tls #define ALLOCNO_SPLAY_REMOVED_P(A) ((A)->splay_removed_p)
459 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_VEC_P(A) ((A)->conflict_vec_p)
460 1.1.1.1.8.2 tls #define ALLOCNO_MODE(A) ((A)->mode)
461 1.1.1.1.8.2 tls #define ALLOCNO_COPIES(A) ((A)->allocno_copies)
462 1.1.1.1.8.2 tls #define ALLOCNO_HARD_REG_COSTS(A) ((A)->hard_reg_costs)
463 1.1.1.1.8.2 tls #define ALLOCNO_UPDATED_HARD_REG_COSTS(A) ((A)->updated_hard_reg_costs)
464 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_HARD_REG_COSTS(A) \
465 1.1.1.1.8.2 tls ((A)->conflict_hard_reg_costs)
466 1.1.1.1.8.2 tls #define ALLOCNO_UPDATED_CONFLICT_HARD_REG_COSTS(A) \
467 1.1.1.1.8.2 tls ((A)->updated_conflict_hard_reg_costs)
468 1.1.1.1.8.2 tls #define ALLOCNO_LEFT_CONFLICTS_SIZE(A) ((A)->left_conflicts_size)
469 1.1.1.1.8.2 tls #define ALLOCNO_COVER_CLASS(A) ((A)->cover_class)
470 1.1.1.1.8.2 tls #define ALLOCNO_COVER_CLASS_COST(A) ((A)->cover_class_cost)
471 1.1.1.1.8.2 tls #define ALLOCNO_UPDATED_COVER_CLASS_COST(A) ((A)->updated_cover_class_cost)
472 1.1.1.1.8.2 tls #define ALLOCNO_MEMORY_COST(A) ((A)->memory_cost)
473 1.1.1.1.8.2 tls #define ALLOCNO_UPDATED_MEMORY_COST(A) ((A)->updated_memory_cost)
474 1.1.1.1.8.2 tls #define ALLOCNO_EXCESS_PRESSURE_POINTS_NUM(A) ((A)->excess_pressure_points_num)
475 1.1.1.1.8.2 tls #define ALLOCNO_AVAILABLE_REGS_NUM(A) ((A)->available_regs_num)
476 1.1.1.1.8.2 tls #define ALLOCNO_NEXT_BUCKET_ALLOCNO(A) ((A)->next_bucket_allocno)
477 1.1.1.1.8.2 tls #define ALLOCNO_PREV_BUCKET_ALLOCNO(A) ((A)->prev_bucket_allocno)
478 1.1.1.1.8.2 tls #define ALLOCNO_TEMP(A) ((A)->temp)
479 1.1.1.1.8.2 tls #define ALLOCNO_FIRST_COALESCED_ALLOCNO(A) ((A)->first_coalesced_allocno)
480 1.1.1.1.8.2 tls #define ALLOCNO_NEXT_COALESCED_ALLOCNO(A) ((A)->next_coalesced_allocno)
481 1.1.1.1.8.2 tls #define ALLOCNO_LIVE_RANGES(A) ((A)->live_ranges)
482 1.1.1.1.8.2 tls #define ALLOCNO_MIN(A) ((A)->min)
483 1.1.1.1.8.2 tls #define ALLOCNO_MAX(A) ((A)->max)
484 1.1.1.1.8.2 tls #define ALLOCNO_CONFLICT_ID(A) ((A)->conflict_id)
485 1.1.1.1.8.2 tls
486 1.1.1.1.8.2 tls /* Map regno -> allocnos with given regno (see comments for
487 1.1.1.1.8.2 tls allocno member `next_regno_allocno'). */
488 1.1.1.1.8.2 tls extern ira_allocno_t *ira_regno_allocno_map;
489 1.1.1.1.8.2 tls
490 1.1.1.1.8.2 tls /* Array of references to all allocnos. The order number of the
491 1.1.1.1.8.2 tls allocno corresponds to the index in the array. Removed allocnos
492 1.1.1.1.8.2 tls have NULL element value. */
493 1.1.1.1.8.2 tls extern ira_allocno_t *ira_allocnos;
494 1.1.1.1.8.2 tls
495 1.1.1.1.8.2 tls /* Sizes of the previous array. */
496 1.1.1.1.8.2 tls extern int ira_allocnos_num;
497 1.1.1.1.8.2 tls
498 1.1.1.1.8.2 tls /* Map conflict id -> allocno with given conflict id (see comments for
499 1.1.1.1.8.2 tls allocno member `conflict_id'). */
500 1.1.1.1.8.2 tls extern ira_allocno_t *ira_conflict_id_allocno_map;
501 1.1.1.1.8.2 tls
502 1.1.1.1.8.2 tls /* The following structure represents a copy of two allocnos. The
503 1.1.1.1.8.2 tls copies represent move insns or potential move insns usually because
504 1.1.1.1.8.2 tls of two operand insn constraints. To remove register shuffle, we
505 1.1.1.1.8.2 tls also create copies between allocno which is output of an insn and
506 1.1.1.1.8.2 tls allocno becoming dead in the insn. */
507 1.1.1.1.8.2 tls struct ira_allocno_copy
508 1.1.1.1.8.2 tls {
509 1.1.1.1.8.2 tls /* The unique order number of the copy node starting with 0. */
510 1.1.1.1.8.2 tls int num;
511 1.1.1.1.8.2 tls /* Allocnos connected by the copy. The first allocno should have
512 1.1.1.1.8.2 tls smaller order number than the second one. */
513 1.1.1.1.8.2 tls ira_allocno_t first, second;
514 1.1.1.1.8.2 tls /* Execution frequency of the copy. */
515 1.1.1.1.8.2 tls int freq;
516 1.1.1.1.8.2 tls bool constraint_p;
517 1.1.1.1.8.2 tls /* It is a move insn which is an origin of the copy. The member
518 1.1.1.1.8.2 tls value for the copy representing two operand insn constraints or
519 1.1.1.1.8.2 tls for the copy created to remove register shuffle is NULL. In last
520 1.1.1.1.8.2 tls case the copy frequency is smaller than the corresponding insn
521 1.1.1.1.8.2 tls execution frequency. */
522 1.1.1.1.8.2 tls rtx insn;
523 1.1.1.1.8.2 tls /* All copies with the same allocno as FIRST are linked by the two
524 1.1.1.1.8.2 tls following members. */
525 1.1.1.1.8.2 tls ira_copy_t prev_first_allocno_copy, next_first_allocno_copy;
526 1.1.1.1.8.2 tls /* All copies with the same allocno as SECOND are linked by the two
527 1.1.1.1.8.2 tls following members. */
528 1.1.1.1.8.2 tls ira_copy_t prev_second_allocno_copy, next_second_allocno_copy;
529 1.1.1.1.8.2 tls /* Region from which given copy is originated. */
530 1.1.1.1.8.2 tls ira_loop_tree_node_t loop_tree_node;
531 1.1.1.1.8.2 tls };
532 1.1.1.1.8.2 tls
533 1.1.1.1.8.2 tls /* Array of references to all copies. The order number of the copy
534 1.1.1.1.8.2 tls corresponds to the index in the array. Removed copies have NULL
535 1.1.1.1.8.2 tls element value. */
536 1.1.1.1.8.2 tls extern ira_copy_t *ira_copies;
537 1.1.1.1.8.2 tls
538 1.1.1.1.8.2 tls /* Size of the previous array. */
539 1.1.1.1.8.2 tls extern int ira_copies_num;
540 1.1.1.1.8.2 tls
541 1.1.1.1.8.2 tls /* The following structure describes a stack slot used for spilled
542 1.1.1.1.8.2 tls pseudo-registers. */
543 1.1.1.1.8.2 tls struct ira_spilled_reg_stack_slot
544 1.1.1.1.8.2 tls {
545 1.1.1.1.8.2 tls /* pseudo-registers assigned to the stack slot. */
546 1.1.1.1.8.2 tls regset_head spilled_regs;
547 1.1.1.1.8.2 tls /* RTL representation of the stack slot. */
548 1.1.1.1.8.2 tls rtx mem;
549 1.1.1.1.8.2 tls /* Size of the stack slot. */
550 1.1.1.1.8.2 tls unsigned int width;
551 1.1.1.1.8.2 tls };
552 1.1.1.1.8.2 tls
553 1.1.1.1.8.2 tls /* The number of elements in the following array. */
554 1.1.1.1.8.2 tls extern int ira_spilled_reg_stack_slots_num;
555 1.1.1.1.8.2 tls
556 1.1.1.1.8.2 tls /* The following array contains info about spilled pseudo-registers
557 1.1.1.1.8.2 tls stack slots used in current function so far. */
558 1.1.1.1.8.2 tls extern struct ira_spilled_reg_stack_slot *ira_spilled_reg_stack_slots;
559 1.1.1.1.8.2 tls
560 1.1.1.1.8.2 tls /* Correspondingly overall cost of the allocation, cost of the
561 1.1.1.1.8.2 tls allocnos assigned to hard-registers, cost of the allocnos assigned
562 1.1.1.1.8.2 tls to memory, cost of loads, stores and register move insns generated
563 1.1.1.1.8.2 tls for pseudo-register live range splitting (see ira-emit.c). */
564 1.1.1.1.8.2 tls extern int ira_overall_cost;
565 1.1.1.1.8.2 tls extern int ira_reg_cost, ira_mem_cost;
566 1.1.1.1.8.2 tls extern int ira_load_cost, ira_store_cost, ira_shuffle_cost;
567 1.1.1.1.8.2 tls extern int ira_move_loops_num, ira_additional_jumps_num;
568 1.1.1.1.8.2 tls
569 1.1.1.1.8.2 tls /* Maximal value of element of array ira_reg_class_nregs. */
570 1.1.1.1.8.2 tls extern int ira_max_nregs;
571 1.1.1.1.8.2 tls
572 1.1.1.1.8.2 tls /* The number of bits in each element of array used to implement a bit
573 1.1.1.1.8.2 tls vector of allocnos and what type that element has. We use the
574 1.1.1.1.8.2 tls largest integer format on the host machine. */
575 1.1.1.1.8.2 tls #define IRA_INT_BITS HOST_BITS_PER_WIDE_INT
576 1.1.1.1.8.2 tls #define IRA_INT_TYPE HOST_WIDE_INT
577 1.1.1.1.8.2 tls
578 1.1.1.1.8.2 tls /* Set, clear or test bit number I in R, a bit vector of elements with
579 1.1.1.1.8.2 tls minimal index and maximal index equal correspondingly to MIN and
580 1.1.1.1.8.2 tls MAX. */
581 1.1.1.1.8.2 tls #if defined ENABLE_IRA_CHECKING && (GCC_VERSION >= 2007)
582 1.1.1.1.8.2 tls
583 1.1.1.1.8.2 tls #define SET_ALLOCNO_SET_BIT(R, I, MIN, MAX) __extension__ \
584 1.1.1.1.8.2 tls (({ int _min = (MIN), _max = (MAX), _i = (I); \
585 1.1.1.1.8.2 tls if (_i < _min || _i > _max) \
586 1.1.1.1.8.2 tls { \
587 1.1.1.1.8.2 tls fprintf (stderr, \
588 1.1.1.1.8.2 tls "\n%s: %d: error in %s: %d not in range [%d,%d]\n", \
589 1.1.1.1.8.2 tls __FILE__, __LINE__, __FUNCTION__, _i, _min, _max); \
590 1.1.1.1.8.2 tls gcc_unreachable (); \
591 1.1.1.1.8.2 tls } \
592 1.1.1.1.8.2 tls ((R)[(unsigned) (_i - _min) / IRA_INT_BITS] \
593 1.1.1.1.8.2 tls |= ((IRA_INT_TYPE) 1 << ((unsigned) (_i - _min) % IRA_INT_BITS))); }))
594 1.1.1.1.8.2 tls
595 1.1.1.1.8.2 tls
596 1.1.1.1.8.2 tls #define CLEAR_ALLOCNO_SET_BIT(R, I, MIN, MAX) __extension__ \
597 1.1.1.1.8.2 tls (({ int _min = (MIN), _max = (MAX), _i = (I); \
598 1.1.1.1.8.2 tls if (_i < _min || _i > _max) \
599 1.1.1.1.8.2 tls { \
600 1.1.1.1.8.2 tls fprintf (stderr, \
601 1.1.1.1.8.2 tls "\n%s: %d: error in %s: %d not in range [%d,%d]\n", \
602 1.1.1.1.8.2 tls __FILE__, __LINE__, __FUNCTION__, _i, _min, _max); \
603 1.1.1.1.8.2 tls gcc_unreachable (); \
604 1.1.1.1.8.2 tls } \
605 1.1.1.1.8.2 tls ((R)[(unsigned) (_i - _min) / IRA_INT_BITS] \
606 1.1.1.1.8.2 tls &= ~((IRA_INT_TYPE) 1 << ((unsigned) (_i - _min) % IRA_INT_BITS))); }))
607 1.1.1.1.8.2 tls
608 1.1.1.1.8.2 tls #define TEST_ALLOCNO_SET_BIT(R, I, MIN, MAX) __extension__ \
609 1.1.1.1.8.2 tls (({ int _min = (MIN), _max = (MAX), _i = (I); \
610 1.1.1.1.8.2 tls if (_i < _min || _i > _max) \
611 1.1.1.1.8.2 tls { \
612 1.1.1.1.8.2 tls fprintf (stderr, \
613 1.1.1.1.8.2 tls "\n%s: %d: error in %s: %d not in range [%d,%d]\n", \
614 1.1.1.1.8.2 tls __FILE__, __LINE__, __FUNCTION__, _i, _min, _max); \
615 1.1.1.1.8.2 tls gcc_unreachable (); \
616 1.1.1.1.8.2 tls } \
617 1.1.1.1.8.2 tls ((R)[(unsigned) (_i - _min) / IRA_INT_BITS] \
618 1.1.1.1.8.2 tls & ((IRA_INT_TYPE) 1 << ((unsigned) (_i - _min) % IRA_INT_BITS))); }))
619 1.1.1.1.8.2 tls
620 1.1.1.1.8.2 tls #else
621 1.1.1.1.8.2 tls
622 1.1.1.1.8.2 tls #define SET_ALLOCNO_SET_BIT(R, I, MIN, MAX) \
623 1.1.1.1.8.2 tls ((R)[(unsigned) ((I) - (MIN)) / IRA_INT_BITS] \
624 1.1.1.1.8.2 tls |= ((IRA_INT_TYPE) 1 << ((unsigned) ((I) - (MIN)) % IRA_INT_BITS)))
625 1.1.1.1.8.2 tls
626 1.1.1.1.8.2 tls #define CLEAR_ALLOCNO_SET_BIT(R, I, MIN, MAX) \
627 1.1.1.1.8.2 tls ((R)[(unsigned) ((I) - (MIN)) / IRA_INT_BITS] \
628 1.1.1.1.8.2 tls &= ~((IRA_INT_TYPE) 1 << ((unsigned) ((I) - (MIN)) % IRA_INT_BITS)))
629 1.1.1.1.8.2 tls
630 1.1.1.1.8.2 tls #define TEST_ALLOCNO_SET_BIT(R, I, MIN, MAX) \
631 1.1.1.1.8.2 tls ((R)[(unsigned) ((I) - (MIN)) / IRA_INT_BITS] \
632 1.1.1.1.8.2 tls & ((IRA_INT_TYPE) 1 << ((unsigned) ((I) - (MIN)) % IRA_INT_BITS)))
633 1.1.1.1.8.2 tls
634 1.1.1.1.8.2 tls #endif
635 1.1.1.1.8.2 tls
636 1.1.1.1.8.2 tls /* The iterator for allocno set implemented ed as allocno bit
637 1.1.1.1.8.2 tls vector. */
638 1.1.1.1.8.2 tls typedef struct {
639 1.1.1.1.8.2 tls
640 1.1.1.1.8.2 tls /* Array containing the allocno bit vector. */
641 1.1.1.1.8.2 tls IRA_INT_TYPE *vec;
642 1.1.1.1.8.2 tls
643 1.1.1.1.8.2 tls /* The number of the current element in the vector. */
644 1.1.1.1.8.2 tls unsigned int word_num;
645 1.1.1.1.8.2 tls
646 1.1.1.1.8.2 tls /* The number of bits in the bit vector. */
647 1.1.1.1.8.2 tls unsigned int nel;
648 1.1.1.1.8.2 tls
649 1.1.1.1.8.2 tls /* The current bit index of the bit vector. */
650 1.1.1.1.8.2 tls unsigned int bit_num;
651 1.1.1.1.8.2 tls
652 1.1.1.1.8.2 tls /* Index corresponding to the 1st bit of the bit vector. */
653 1.1.1.1.8.2 tls int start_val;
654 1.1.1.1.8.2 tls
655 1.1.1.1.8.2 tls /* The word of the bit vector currently visited. */
656 1.1.1.1.8.2 tls unsigned IRA_INT_TYPE word;
657 1.1.1.1.8.2 tls } ira_allocno_set_iterator;
658 1.1.1.1.8.2 tls
659 1.1.1.1.8.2 tls /* Initialize the iterator I for allocnos bit vector VEC containing
660 1.1.1.1.8.2 tls minimal and maximal values MIN and MAX. */
661 1.1.1.1.8.2 tls static inline void
662 1.1.1.1.8.2 tls ira_allocno_set_iter_init (ira_allocno_set_iterator *i,
663 1.1.1.1.8.2 tls IRA_INT_TYPE *vec, int min, int max)
664 1.1.1.1.8.2 tls {
665 1.1.1.1.8.2 tls i->vec = vec;
666 1.1.1.1.8.2 tls i->word_num = 0;
667 1.1.1.1.8.2 tls i->nel = max < min ? 0 : max - min + 1;
668 1.1.1.1.8.2 tls i->start_val = min;
669 1.1.1.1.8.2 tls i->bit_num = 0;
670 1.1.1.1.8.2 tls i->word = i->nel == 0 ? 0 : vec[0];
671 1.1.1.1.8.2 tls }
672 1.1.1.1.8.2 tls
673 1.1.1.1.8.2 tls /* Return TRUE if we have more allocnos to visit, in which case *N is
674 1.1.1.1.8.2 tls set to the allocno number to be visited. Otherwise, return
675 1.1.1.1.8.2 tls FALSE. */
676 1.1.1.1.8.2 tls static inline bool
677 1.1.1.1.8.2 tls ira_allocno_set_iter_cond (ira_allocno_set_iterator *i, int *n)
678 1.1.1.1.8.2 tls {
679 1.1.1.1.8.2 tls /* Skip words that are zeros. */
680 1.1.1.1.8.2 tls for (; i->word == 0; i->word = i->vec[i->word_num])
681 1.1.1.1.8.2 tls {
682 1.1.1.1.8.2 tls i->word_num++;
683 1.1.1.1.8.2 tls i->bit_num = i->word_num * IRA_INT_BITS;
684 1.1.1.1.8.2 tls
685 1.1.1.1.8.2 tls /* If we have reached the end, break. */
686 1.1.1.1.8.2 tls if (i->bit_num >= i->nel)
687 1.1.1.1.8.2 tls return false;
688 1.1.1.1.8.2 tls }
689 1.1.1.1.8.2 tls
690 1.1.1.1.8.2 tls /* Skip bits that are zero. */
691 1.1.1.1.8.2 tls for (; (i->word & 1) == 0; i->word >>= 1)
692 1.1.1.1.8.2 tls i->bit_num++;
693 1.1.1.1.8.2 tls
694 1.1.1.1.8.2 tls *n = (int) i->bit_num + i->start_val;
695 1.1.1.1.8.2 tls
696 1.1.1.1.8.2 tls return true;
697 1.1.1.1.8.2 tls }
698 1.1.1.1.8.2 tls
699 1.1.1.1.8.2 tls /* Advance to the next allocno in the set. */
700 1.1.1.1.8.2 tls static inline void
701 1.1.1.1.8.2 tls ira_allocno_set_iter_next (ira_allocno_set_iterator *i)
702 1.1.1.1.8.2 tls {
703 1.1.1.1.8.2 tls i->word >>= 1;
704 1.1.1.1.8.2 tls i->bit_num++;
705 1.1.1.1.8.2 tls }
706 1.1.1.1.8.2 tls
707 1.1.1.1.8.2 tls /* Loop over all elements of allocno set given by bit vector VEC and
708 1.1.1.1.8.2 tls their minimal and maximal values MIN and MAX. In each iteration, N
709 1.1.1.1.8.2 tls is set to the number of next allocno. ITER is an instance of
710 1.1.1.1.8.2 tls ira_allocno_set_iterator used to iterate the allocnos in the set. */
711 1.1.1.1.8.2 tls #define FOR_EACH_ALLOCNO_IN_SET(VEC, MIN, MAX, N, ITER) \
712 1.1.1.1.8.2 tls for (ira_allocno_set_iter_init (&(ITER), (VEC), (MIN), (MAX)); \
713 1.1.1.1.8.2 tls ira_allocno_set_iter_cond (&(ITER), &(N)); \
714 1.1.1.1.8.2 tls ira_allocno_set_iter_next (&(ITER)))
715 1.1.1.1.8.2 tls
716 1.1.1.1.8.2 tls /* ira.c: */
717 1.1.1.1.8.2 tls
718 1.1.1.1.8.2 tls /* Map: hard regs X modes -> set of hard registers for storing value
719 1.1.1.1.8.2 tls of given mode starting with given hard register. */
720 1.1.1.1.8.2 tls extern HARD_REG_SET ira_reg_mode_hard_regset
721 1.1.1.1.8.2 tls [FIRST_PSEUDO_REGISTER][NUM_MACHINE_MODES];
722 1.1.1.1.8.2 tls
723 1.1.1.1.8.2 tls /* Array analogous to macro REGISTER_MOVE_COST. Don't use
724 1.1.1.1.8.2 tls ira_register_move_cost directly. Use function of
725 1.1.1.1.8.2 tls ira_get_may_move_cost instead. */
726 1.1.1.1.8.2 tls extern move_table *ira_register_move_cost[MAX_MACHINE_MODE];
727 1.1.1.1.8.2 tls
728 1.1.1.1.8.2 tls /* Similar to may_move_in_cost but it is calculated in IRA instead of
729 1.1.1.1.8.2 tls regclass. Another difference we take only available hard registers
730 1.1.1.1.8.2 tls into account to figure out that one register class is a subset of
731 1.1.1.1.8.2 tls the another one. Don't use it directly. Use function of
732 1.1.1.1.8.2 tls ira_get_may_move_cost instead. */
733 1.1.1.1.8.2 tls extern move_table *ira_may_move_in_cost[MAX_MACHINE_MODE];
734 1.1.1.1.8.2 tls
735 1.1.1.1.8.2 tls /* Similar to may_move_out_cost but it is calculated in IRA instead of
736 1.1.1.1.8.2 tls regclass. Another difference we take only available hard registers
737 1.1.1.1.8.2 tls into account to figure out that one register class is a subset of
738 1.1.1.1.8.2 tls the another one. Don't use it directly. Use function of
739 1.1.1.1.8.2 tls ira_get_may_move_cost instead. */
740 1.1.1.1.8.2 tls extern move_table *ira_may_move_out_cost[MAX_MACHINE_MODE];
741 1.1.1.1.8.2 tls
742 1.1.1.1.8.2 tls /* Register class subset relation: TRUE if the first class is a subset
743 1.1.1.1.8.2 tls of the second one considering only hard registers available for the
744 1.1.1.1.8.2 tls allocation. */
745 1.1.1.1.8.2 tls extern int ira_class_subset_p[N_REG_CLASSES][N_REG_CLASSES];
746 1.1.1.1.8.2 tls
747 1.1.1.1.8.2 tls /* Index (in ira_class_hard_regs) for given register class and hard
748 1.1.1.1.8.2 tls register (in general case a hard register can belong to several
749 1.1.1.1.8.2 tls register classes). The index is negative for hard registers
750 1.1.1.1.8.2 tls unavailable for the allocation. */
751 1.1.1.1.8.2 tls extern short ira_class_hard_reg_index[N_REG_CLASSES][FIRST_PSEUDO_REGISTER];
752 1.1.1.1.8.2 tls
753 1.1.1.1.8.2 tls /* Array whose values are hard regset of hard registers available for
754 1.1.1.1.8.2 tls the allocation of given register class whose HARD_REGNO_MODE_OK
755 1.1.1.1.8.2 tls values for given mode are zero. */
756 1.1.1.1.8.2 tls extern HARD_REG_SET prohibited_class_mode_regs
757 1.1.1.1.8.2 tls [N_REG_CLASSES][NUM_MACHINE_MODES];
758 1.1.1.1.8.2 tls
759 1.1.1.1.8.2 tls /* Array whose values are hard regset of hard registers for which
760 1.1.1.1.8.2 tls move of the hard register in given mode into itself is
761 1.1.1.1.8.2 tls prohibited. */
762 1.1.1.1.8.2 tls extern HARD_REG_SET ira_prohibited_mode_move_regs[NUM_MACHINE_MODES];
763 1.1.1.1.8.2 tls
764 1.1.1.1.8.2 tls /* The value is number of elements in the subsequent array. */
765 1.1.1.1.8.2 tls extern int ira_important_classes_num;
766 1.1.1.1.8.2 tls
767 1.1.1.1.8.2 tls /* The array containing non-empty classes (including non-empty cover
768 1.1.1.1.8.2 tls classes) which are subclasses of cover classes. Such classes is
769 1.1.1.1.8.2 tls important for calculation of the hard register usage costs. */
770 1.1.1.1.8.2 tls extern enum reg_class ira_important_classes[N_REG_CLASSES];
771 1.1.1.1.8.2 tls
772 1.1.1.1.8.2 tls /* The array containing indexes of important classes in the previous
773 1.1.1.1.8.2 tls array. The array elements are defined only for important
774 1.1.1.1.8.2 tls classes. */
775 1.1.1.1.8.2 tls extern int ira_important_class_nums[N_REG_CLASSES];
776 1.1.1.1.8.2 tls
777 1.1.1.1.8.2 tls /* The biggest important class inside of intersection of the two
778 1.1.1.1.8.2 tls classes (that is calculated taking only hard registers available
779 1.1.1.1.8.2 tls for allocation into account). If the both classes contain no hard
780 1.1.1.1.8.2 tls registers available for allocation, the value is calculated with
781 1.1.1.1.8.2 tls taking all hard-registers including fixed ones into account. */
782 1.1.1.1.8.2 tls extern enum reg_class ira_reg_class_intersect[N_REG_CLASSES][N_REG_CLASSES];
783 1.1.1.1.8.2 tls
784 1.1.1.1.8.2 tls /* True if the two classes (that is calculated taking only hard
785 1.1.1.1.8.2 tls registers available for allocation into account) are
786 1.1.1.1.8.2 tls intersected. */
787 1.1.1.1.8.2 tls extern bool ira_reg_classes_intersect_p[N_REG_CLASSES][N_REG_CLASSES];
788 1.1.1.1.8.2 tls
789 1.1.1.1.8.2 tls /* Classes with end marker LIM_REG_CLASSES which are intersected with
790 1.1.1.1.8.2 tls given class (the first index). That includes given class itself.
791 1.1.1.1.8.2 tls This is calculated taking only hard registers available for
792 1.1.1.1.8.2 tls allocation into account. */
793 1.1.1.1.8.2 tls extern enum reg_class ira_reg_class_super_classes[N_REG_CLASSES][N_REG_CLASSES];
794 1.1.1.1.8.2 tls /* The biggest important class inside of union of the two classes
795 1.1.1.1.8.2 tls (that is calculated taking only hard registers available for
796 1.1.1.1.8.2 tls allocation into account). If the both classes contain no hard
797 1.1.1.1.8.2 tls registers available for allocation, the value is calculated with
798 1.1.1.1.8.2 tls taking all hard-registers including fixed ones into account. In
799 1.1.1.1.8.2 tls other words, the value is the corresponding reg_class_subunion
800 1.1.1.1.8.2 tls value. */
801 1.1.1.1.8.2 tls extern enum reg_class ira_reg_class_union[N_REG_CLASSES][N_REG_CLASSES];
802 1.1.1.1.8.2 tls
803 1.1.1.1.8.2 tls extern void *ira_allocate (size_t);
804 1.1.1.1.8.2 tls extern void *ira_reallocate (void *, size_t);
805 1.1.1.1.8.2 tls extern void ira_free (void *addr);
806 1.1.1.1.8.2 tls extern bitmap ira_allocate_bitmap (void);
807 1.1.1.1.8.2 tls extern void ira_free_bitmap (bitmap);
808 1.1.1.1.8.2 tls extern void ira_print_disposition (FILE *);
809 1.1.1.1.8.2 tls extern void ira_debug_disposition (void);
810 1.1.1.1.8.2 tls extern void ira_debug_class_cover (void);
811 1.1.1.1.8.2 tls extern void ira_init_register_move_cost (enum machine_mode);
812 1.1.1.1.8.2 tls
813 1.1.1.1.8.2 tls /* The length of the two following arrays. */
814 1.1.1.1.8.2 tls extern int ira_reg_equiv_len;
815 1.1.1.1.8.2 tls
816 1.1.1.1.8.2 tls /* The element value is TRUE if the corresponding regno value is
817 1.1.1.1.8.2 tls invariant. */
818 1.1.1.1.8.2 tls extern bool *ira_reg_equiv_invariant_p;
819 1.1.1.1.8.2 tls
820 1.1.1.1.8.2 tls /* The element value is equiv constant of given pseudo-register or
821 1.1.1.1.8.2 tls NULL_RTX. */
822 1.1.1.1.8.2 tls extern rtx *ira_reg_equiv_const;
823 1.1.1.1.8.2 tls
824 1.1.1.1.8.2 tls /* ira-build.c */
825 1.1.1.1.8.2 tls
826 1.1.1.1.8.2 tls /* The current loop tree node and its regno allocno map. */
827 1.1.1.1.8.2 tls extern ira_loop_tree_node_t ira_curr_loop_tree_node;
828 1.1.1.1.8.2 tls extern ira_allocno_t *ira_curr_regno_allocno_map;
829 1.1.1.1.8.2 tls
830 1.1.1.1.8.2 tls extern void ira_debug_copy (ira_copy_t);
831 1.1.1.1.8.2 tls extern void ira_debug_copies (void);
832 1.1.1.1.8.2 tls extern void ira_debug_allocno_copies (ira_allocno_t);
833 1.1.1.1.8.2 tls
834 1.1.1.1.8.2 tls extern void ira_traverse_loop_tree (bool, ira_loop_tree_node_t,
835 1.1.1.1.8.2 tls void (*) (ira_loop_tree_node_t),
836 1.1.1.1.8.2 tls void (*) (ira_loop_tree_node_t));
837 1.1.1.1.8.2 tls extern ira_allocno_t ira_create_allocno (int, bool, ira_loop_tree_node_t);
838 1.1.1.1.8.2 tls extern void ira_set_allocno_cover_class (ira_allocno_t, enum reg_class);
839 1.1.1.1.8.2 tls extern bool ira_conflict_vector_profitable_p (ira_allocno_t, int);
840 1.1.1.1.8.2 tls extern void ira_allocate_allocno_conflict_vec (ira_allocno_t, int);
841 1.1.1.1.8.2 tls extern void ira_allocate_allocno_conflicts (ira_allocno_t, int);
842 1.1.1.1.8.2 tls extern void ira_add_allocno_conflict (ira_allocno_t, ira_allocno_t);
843 1.1.1.1.8.2 tls extern void ira_print_expanded_allocno (ira_allocno_t);
844 1.1.1.1.8.2 tls extern allocno_live_range_t ira_create_allocno_live_range
845 1.1.1.1.8.2 tls (ira_allocno_t, int, int, allocno_live_range_t);
846 1.1.1.1.8.2 tls extern allocno_live_range_t ira_copy_allocno_live_range_list
847 1.1.1.1.8.2 tls (allocno_live_range_t);
848 1.1.1.1.8.2 tls extern allocno_live_range_t ira_merge_allocno_live_ranges
849 1.1.1.1.8.2 tls (allocno_live_range_t, allocno_live_range_t);
850 1.1.1.1.8.2 tls extern bool ira_allocno_live_ranges_intersect_p (allocno_live_range_t,
851 1.1.1.1.8.2 tls allocno_live_range_t);
852 1.1.1.1.8.2 tls extern void ira_finish_allocno_live_range (allocno_live_range_t);
853 1.1.1.1.8.2 tls extern void ira_finish_allocno_live_range_list (allocno_live_range_t);
854 1.1.1.1.8.2 tls extern void ira_free_allocno_updated_costs (ira_allocno_t);
855 1.1.1.1.8.2 tls extern ira_copy_t ira_create_copy (ira_allocno_t, ira_allocno_t,
856 1.1.1.1.8.2 tls int, bool, rtx, ira_loop_tree_node_t);
857 1.1.1.1.8.2 tls extern void ira_add_allocno_copy_to_list (ira_copy_t);
858 1.1.1.1.8.2 tls extern void ira_swap_allocno_copy_ends_if_necessary (ira_copy_t);
859 1.1.1.1.8.2 tls extern void ira_remove_allocno_copy_from_list (ira_copy_t);
860 1.1.1.1.8.2 tls extern ira_copy_t ira_add_allocno_copy (ira_allocno_t, ira_allocno_t, int,
861 1.1.1.1.8.2 tls bool, rtx, ira_loop_tree_node_t);
862 1.1.1.1.8.2 tls
863 1.1.1.1.8.2 tls extern int *ira_allocate_cost_vector (enum reg_class);
864 1.1.1.1.8.2 tls extern void ira_free_cost_vector (int *, enum reg_class);
865 1.1.1.1.8.2 tls
866 1.1.1.1.8.2 tls extern void ira_flattening (int, int);
867 1.1.1.1.8.2 tls extern bool ira_build (bool);
868 1.1.1.1.8.2 tls extern void ira_destroy (void);
869 1.1.1.1.8.2 tls
870 1.1.1.1.8.2 tls /* ira-costs.c */
871 1.1.1.1.8.2 tls extern void ira_init_costs_once (void);
872 1.1.1.1.8.2 tls extern void ira_init_costs (void);
873 1.1.1.1.8.2 tls extern void ira_finish_costs_once (void);
874 1.1.1.1.8.2 tls extern void ira_costs (void);
875 1.1.1.1.8.2 tls extern void ira_tune_allocno_costs_and_cover_classes (void);
876 1.1.1.1.8.2 tls
877 1.1.1.1.8.2 tls /* ira-lives.c */
878 1.1.1.1.8.2 tls
879 1.1.1.1.8.2 tls extern void ira_rebuild_start_finish_chains (void);
880 1.1.1.1.8.2 tls extern void ira_print_live_range_list (FILE *, allocno_live_range_t);
881 1.1.1.1.8.2 tls extern void ira_debug_live_range_list (allocno_live_range_t);
882 1.1.1.1.8.2 tls extern void ira_debug_allocno_live_ranges (ira_allocno_t);
883 1.1.1.1.8.2 tls extern void ira_debug_live_ranges (void);
884 1.1.1.1.8.2 tls extern void ira_create_allocno_live_ranges (void);
885 1.1.1.1.8.2 tls extern void ira_compress_allocno_live_ranges (void);
886 1.1.1.1.8.2 tls extern void ira_finish_allocno_live_ranges (void);
887 1.1.1.1.8.2 tls
888 1.1.1.1.8.2 tls /* ira-conflicts.c */
889 1.1.1.1.8.2 tls extern void ira_debug_conflicts (bool);
890 1.1.1.1.8.2 tls extern void ira_build_conflicts (void);
891 1.1.1.1.8.2 tls
892 1.1.1.1.8.2 tls /* ira-color.c */
893 1.1.1.1.8.2 tls extern int ira_loop_edge_freq (ira_loop_tree_node_t, int, bool);
894 1.1.1.1.8.2 tls extern void ira_reassign_conflict_allocnos (int);
895 1.1.1.1.8.2 tls extern void ira_initiate_assign (void);
896 1.1.1.1.8.2 tls extern void ira_finish_assign (void);
897 1.1.1.1.8.2 tls extern void ira_color (void);
898 1.1.1.1.8.2 tls
899 1.1.1.1.8.2 tls /* ira-emit.c */
900 1.1.1.1.8.2 tls extern void ira_emit (bool);
901 1.1.1.1.8.2 tls
902 1.1.1.1.8.2 tls
903 1.1.1.1.8.2 tls
905 1.1.1.1.8.2 tls /* Return cost of moving value of MODE from register of class FROM to
906 1.1.1.1.8.2 tls register of class TO. */
907 1.1.1.1.8.2 tls static inline int
908 1.1.1.1.8.2 tls ira_get_register_move_cost (enum machine_mode mode,
909 1.1.1.1.8.2 tls enum reg_class from, enum reg_class to)
910 1.1.1.1.8.2 tls {
911 1.1.1.1.8.2 tls if (ira_register_move_cost[mode] == NULL)
912 1.1.1.1.8.2 tls ira_init_register_move_cost (mode);
913 1.1.1.1.8.2 tls return ira_register_move_cost[mode][from][to];
914 1.1.1.1.8.2 tls }
915 1.1.1.1.8.2 tls
916 1.1.1.1.8.2 tls /* Return cost of moving value of MODE from register of class FROM to
917 1.1.1.1.8.2 tls register of class TO. Return zero if IN_P is true and FROM is
918 1.1.1.1.8.2 tls subset of TO or if IN_P is false and FROM is superset of TO. */
919 1.1.1.1.8.2 tls static inline int
920 1.1.1.1.8.2 tls ira_get_may_move_cost (enum machine_mode mode,
921 1.1.1.1.8.2 tls enum reg_class from, enum reg_class to,
922 1.1.1.1.8.2 tls bool in_p)
923 1.1.1.1.8.2 tls {
924 1.1.1.1.8.2 tls if (ira_register_move_cost[mode] == NULL)
925 1.1.1.1.8.2 tls ira_init_register_move_cost (mode);
926 1.1.1.1.8.2 tls return (in_p
927 1.1.1.1.8.2 tls ? ira_may_move_in_cost[mode][from][to]
928 1.1.1.1.8.2 tls : ira_may_move_out_cost[mode][from][to]);
929 1.1.1.1.8.2 tls }
930 1.1.1.1.8.2 tls
931 1.1.1.1.8.2 tls
932 1.1.1.1.8.2 tls
934 1.1.1.1.8.2 tls /* The iterator for all allocnos. */
935 1.1.1.1.8.2 tls typedef struct {
936 1.1.1.1.8.2 tls /* The number of the current element in IRA_ALLOCNOS. */
937 1.1.1.1.8.2 tls int n;
938 1.1.1.1.8.2 tls } ira_allocno_iterator;
939 1.1.1.1.8.2 tls
940 1.1.1.1.8.2 tls /* Initialize the iterator I. */
941 1.1.1.1.8.2 tls static inline void
942 1.1.1.1.8.2 tls ira_allocno_iter_init (ira_allocno_iterator *i)
943 1.1.1.1.8.2 tls {
944 1.1.1.1.8.2 tls i->n = 0;
945 1.1.1.1.8.2 tls }
946 1.1.1.1.8.2 tls
947 1.1.1.1.8.2 tls /* Return TRUE if we have more allocnos to visit, in which case *A is
948 1.1.1.1.8.2 tls set to the allocno to be visited. Otherwise, return FALSE. */
949 1.1.1.1.8.2 tls static inline bool
950 1.1.1.1.8.2 tls ira_allocno_iter_cond (ira_allocno_iterator *i, ira_allocno_t *a)
951 1.1.1.1.8.2 tls {
952 1.1.1.1.8.2 tls int n;
953 1.1.1.1.8.2 tls
954 1.1.1.1.8.2 tls for (n = i->n; n < ira_allocnos_num; n++)
955 1.1.1.1.8.2 tls if (ira_allocnos[n] != NULL)
956 1.1.1.1.8.2 tls {
957 1.1.1.1.8.2 tls *a = ira_allocnos[n];
958 1.1.1.1.8.2 tls i->n = n + 1;
959 1.1.1.1.8.2 tls return true;
960 1.1.1.1.8.2 tls }
961 1.1.1.1.8.2 tls return false;
962 1.1.1.1.8.2 tls }
963 1.1.1.1.8.2 tls
964 1.1.1.1.8.2 tls /* Loop over all allocnos. In each iteration, A is set to the next
965 1.1.1.1.8.2 tls allocno. ITER is an instance of ira_allocno_iterator used to iterate
966 1.1.1.1.8.2 tls the allocnos. */
967 1.1.1.1.8.2 tls #define FOR_EACH_ALLOCNO(A, ITER) \
968 1.1.1.1.8.2 tls for (ira_allocno_iter_init (&(ITER)); \
969 1.1.1.1.8.2 tls ira_allocno_iter_cond (&(ITER), &(A));)
970 1.1.1.1.8.2 tls
971 1.1.1.1.8.2 tls
972 1.1.1.1.8.2 tls
973 1.1.1.1.8.2 tls
975 1.1.1.1.8.2 tls /* The iterator for copies. */
976 1.1.1.1.8.2 tls typedef struct {
977 1.1.1.1.8.2 tls /* The number of the current element in IRA_COPIES. */
978 1.1.1.1.8.2 tls int n;
979 1.1.1.1.8.2 tls } ira_copy_iterator;
980 1.1.1.1.8.2 tls
981 1.1.1.1.8.2 tls /* Initialize the iterator I. */
982 1.1.1.1.8.2 tls static inline void
983 1.1.1.1.8.2 tls ira_copy_iter_init (ira_copy_iterator *i)
984 1.1.1.1.8.2 tls {
985 1.1.1.1.8.2 tls i->n = 0;
986 1.1.1.1.8.2 tls }
987 1.1.1.1.8.2 tls
988 1.1.1.1.8.2 tls /* Return TRUE if we have more copies to visit, in which case *CP is
989 1.1.1.1.8.2 tls set to the copy to be visited. Otherwise, return FALSE. */
990 1.1.1.1.8.2 tls static inline bool
991 1.1.1.1.8.2 tls ira_copy_iter_cond (ira_copy_iterator *i, ira_copy_t *cp)
992 1.1.1.1.8.2 tls {
993 1.1.1.1.8.2 tls int n;
994 1.1.1.1.8.2 tls
995 1.1.1.1.8.2 tls for (n = i->n; n < ira_copies_num; n++)
996 1.1.1.1.8.2 tls if (ira_copies[n] != NULL)
997 1.1.1.1.8.2 tls {
998 1.1.1.1.8.2 tls *cp = ira_copies[n];
999 1.1.1.1.8.2 tls i->n = n + 1;
1000 1.1.1.1.8.2 tls return true;
1001 1.1.1.1.8.2 tls }
1002 1.1.1.1.8.2 tls return false;
1003 1.1.1.1.8.2 tls }
1004 1.1.1.1.8.2 tls
1005 1.1.1.1.8.2 tls /* Loop over all copies. In each iteration, C is set to the next
1006 1.1.1.1.8.2 tls copy. ITER is an instance of ira_copy_iterator used to iterate
1007 1.1.1.1.8.2 tls the copies. */
1008 1.1.1.1.8.2 tls #define FOR_EACH_COPY(C, ITER) \
1009 1.1.1.1.8.2 tls for (ira_copy_iter_init (&(ITER)); \
1010 1.1.1.1.8.2 tls ira_copy_iter_cond (&(ITER), &(C));)
1011 1.1.1.1.8.2 tls
1012 1.1.1.1.8.2 tls
1013 1.1.1.1.8.2 tls
1014 1.1.1.1.8.2 tls
1016 1.1.1.1.8.2 tls /* The iterator for allocno conflicts. */
1017 1.1.1.1.8.2 tls typedef struct {
1018 1.1.1.1.8.2 tls
1019 1.1.1.1.8.2 tls /* TRUE if the conflicts are represented by vector of allocnos. */
1020 1.1.1.1.8.2 tls bool allocno_conflict_vec_p;
1021 1.1.1.1.8.2 tls
1022 1.1.1.1.8.2 tls /* The conflict vector or conflict bit vector. */
1023 1.1.1.1.8.2 tls void *vec;
1024 1.1.1.1.8.2 tls
1025 1.1.1.1.8.2 tls /* The number of the current element in the vector (of type
1026 1.1.1.1.8.2 tls ira_allocno_t or IRA_INT_TYPE). */
1027 1.1.1.1.8.2 tls unsigned int word_num;
1028 1.1.1.1.8.2 tls
1029 1.1.1.1.8.2 tls /* The bit vector size. It is defined only if
1030 1.1.1.1.8.2 tls ALLOCNO_CONFLICT_VEC_P is FALSE. */
1031 1.1.1.1.8.2 tls unsigned int size;
1032 1.1.1.1.8.2 tls
1033 1.1.1.1.8.2 tls /* The current bit index of bit vector. It is defined only if
1034 1.1.1.1.8.2 tls ALLOCNO_CONFLICT_VEC_P is FALSE. */
1035 1.1.1.1.8.2 tls unsigned int bit_num;
1036 1.1.1.1.8.2 tls
1037 1.1.1.1.8.2 tls /* Allocno conflict id corresponding to the 1st bit of the bit
1038 1.1.1.1.8.2 tls vector. It is defined only if ALLOCNO_CONFLICT_VEC_P is
1039 1.1.1.1.8.2 tls FALSE. */
1040 1.1.1.1.8.2 tls int base_conflict_id;
1041 1.1.1.1.8.2 tls
1042 1.1.1.1.8.2 tls /* The word of bit vector currently visited. It is defined only if
1043 1.1.1.1.8.2 tls ALLOCNO_CONFLICT_VEC_P is FALSE. */
1044 1.1.1.1.8.2 tls unsigned IRA_INT_TYPE word;
1045 1.1.1.1.8.2 tls } ira_allocno_conflict_iterator;
1046 1.1.1.1.8.2 tls
1047 1.1.1.1.8.2 tls /* Initialize the iterator I with ALLOCNO conflicts. */
1048 1.1.1.1.8.2 tls static inline void
1049 1.1.1.1.8.2 tls ira_allocno_conflict_iter_init (ira_allocno_conflict_iterator *i,
1050 1.1.1.1.8.2 tls ira_allocno_t allocno)
1051 1.1.1.1.8.2 tls {
1052 1.1.1.1.8.2 tls i->allocno_conflict_vec_p = ALLOCNO_CONFLICT_VEC_P (allocno);
1053 1.1.1.1.8.2 tls i->vec = ALLOCNO_CONFLICT_ALLOCNO_ARRAY (allocno);
1054 1.1.1.1.8.2 tls i->word_num = 0;
1055 1.1.1.1.8.2 tls if (i->allocno_conflict_vec_p)
1056 1.1.1.1.8.2 tls i->size = i->bit_num = i->base_conflict_id = i->word = 0;
1057 1.1.1.1.8.2 tls else
1058 1.1.1.1.8.2 tls {
1059 1.1.1.1.8.2 tls if (ALLOCNO_MIN (allocno) > ALLOCNO_MAX (allocno))
1060 1.1.1.1.8.2 tls i->size = 0;
1061 1.1.1.1.8.2 tls else
1062 1.1.1.1.8.2 tls i->size = ((ALLOCNO_MAX (allocno) - ALLOCNO_MIN (allocno)
1063 1.1.1.1.8.2 tls + IRA_INT_BITS)
1064 1.1.1.1.8.2 tls / IRA_INT_BITS) * sizeof (IRA_INT_TYPE);
1065 1.1.1.1.8.2 tls i->bit_num = 0;
1066 1.1.1.1.8.2 tls i->base_conflict_id = ALLOCNO_MIN (allocno);
1067 1.1.1.1.8.2 tls i->word = (i->size == 0 ? 0 : ((IRA_INT_TYPE *) i->vec)[0]);
1068 1.1.1.1.8.2 tls }
1069 1.1.1.1.8.2 tls }
1070 1.1.1.1.8.2 tls
1071 1.1.1.1.8.2 tls /* Return TRUE if we have more conflicting allocnos to visit, in which
1072 1.1.1.1.8.2 tls case *A is set to the allocno to be visited. Otherwise, return
1073 1.1.1.1.8.2 tls FALSE. */
1074 1.1.1.1.8.2 tls static inline bool
1075 1.1.1.1.8.2 tls ira_allocno_conflict_iter_cond (ira_allocno_conflict_iterator *i,
1076 1.1.1.1.8.2 tls ira_allocno_t *a)
1077 1.1.1.1.8.2 tls {
1078 1.1.1.1.8.2 tls ira_allocno_t conflict_allocno;
1079 1.1.1.1.8.2 tls
1080 1.1.1.1.8.2 tls if (i->allocno_conflict_vec_p)
1081 1.1.1.1.8.2 tls {
1082 1.1.1.1.8.2 tls conflict_allocno = ((ira_allocno_t *) i->vec)[i->word_num];
1083 1.1.1.1.8.2 tls if (conflict_allocno == NULL)
1084 1.1.1.1.8.2 tls return false;
1085 1.1.1.1.8.2 tls *a = conflict_allocno;
1086 1.1.1.1.8.2 tls return true;
1087 1.1.1.1.8.2 tls }
1088 1.1.1.1.8.2 tls else
1089 1.1.1.1.8.2 tls {
1090 1.1.1.1.8.2 tls /* Skip words that are zeros. */
1091 1.1.1.1.8.2 tls for (; i->word == 0; i->word = ((IRA_INT_TYPE *) i->vec)[i->word_num])
1092 1.1.1.1.8.2 tls {
1093 1.1.1.1.8.2 tls i->word_num++;
1094 1.1.1.1.8.2 tls
1095 1.1.1.1.8.2 tls /* If we have reached the end, break. */
1096 1.1.1.1.8.2 tls if (i->word_num * sizeof (IRA_INT_TYPE) >= i->size)
1097 1.1.1.1.8.2 tls return false;
1098 1.1.1.1.8.2 tls
1099 1.1.1.1.8.2 tls i->bit_num = i->word_num * IRA_INT_BITS;
1100 1.1.1.1.8.2 tls }
1101 1.1.1.1.8.2 tls
1102 1.1.1.1.8.2 tls /* Skip bits that are zero. */
1103 1.1.1.1.8.2 tls for (; (i->word & 1) == 0; i->word >>= 1)
1104 1.1.1.1.8.2 tls i->bit_num++;
1105 1.1.1.1.8.2 tls
1106 1.1.1.1.8.2 tls *a = ira_conflict_id_allocno_map[i->bit_num + i->base_conflict_id];
1107 1.1.1.1.8.2 tls
1108 1.1.1.1.8.2 tls return true;
1109 1.1.1.1.8.2 tls }
1110 1.1.1.1.8.2 tls }
1111 1.1.1.1.8.2 tls
1112 1.1.1.1.8.2 tls /* Advance to the next conflicting allocno. */
1113 1.1.1.1.8.2 tls static inline void
1114 1.1.1.1.8.2 tls ira_allocno_conflict_iter_next (ira_allocno_conflict_iterator *i)
1115 1.1.1.1.8.2 tls {
1116 1.1.1.1.8.2 tls if (i->allocno_conflict_vec_p)
1117 1.1.1.1.8.2 tls i->word_num++;
1118 1.1.1.1.8.2 tls else
1119 1.1.1.1.8.2 tls {
1120 1.1.1.1.8.2 tls i->word >>= 1;
1121 1.1.1.1.8.2 tls i->bit_num++;
1122 1.1.1.1.8.2 tls }
1123 1.1.1.1.8.2 tls }
1124 1.1.1.1.8.2 tls
1125 1.1.1.1.8.2 tls /* Loop over all allocnos conflicting with ALLOCNO. In each
1126 1.1.1.1.8.2 tls iteration, A is set to the next conflicting allocno. ITER is an
1127 1.1.1.1.8.2 tls instance of ira_allocno_conflict_iterator used to iterate the
1128 1.1.1.1.8.2 tls conflicts. */
1129 1.1.1.1.8.2 tls #define FOR_EACH_ALLOCNO_CONFLICT(ALLOCNO, A, ITER) \
1130 1.1.1.1.8.2 tls for (ira_allocno_conflict_iter_init (&(ITER), (ALLOCNO)); \
1131 1.1.1.1.8.2 tls ira_allocno_conflict_iter_cond (&(ITER), &(A)); \
1132 1.1.1.1.8.2 tls ira_allocno_conflict_iter_next (&(ITER)))
1133 1.1.1.1.8.2 tls
1134 1.1.1.1.8.2 tls
1135 1.1.1.1.8.2 tls
1137 1.1.1.1.8.2 tls /* The function returns TRUE if hard registers starting with
1138 1.1.1.1.8.2 tls HARD_REGNO and containing value of MODE are not in set
1139 1.1.1.1.8.2 tls HARD_REGSET. */
1140 1.1.1.1.8.2 tls static inline bool
1141 1.1.1.1.8.2 tls ira_hard_reg_not_in_set_p (int hard_regno, enum machine_mode mode,
1142 1.1.1.1.8.2 tls HARD_REG_SET hard_regset)
1143 1.1.1.1.8.2 tls {
1144 1.1.1.1.8.2 tls int i;
1145 1.1.1.1.8.2 tls
1146 1.1.1.1.8.2 tls ira_assert (hard_regno >= 0);
1147 1.1.1.1.8.2 tls for (i = hard_regno_nregs[hard_regno][mode] - 1; i >= 0; i--)
1148 1.1.1.1.8.2 tls if (TEST_HARD_REG_BIT (hard_regset, hard_regno + i))
1149 1.1.1.1.8.2 tls return false;
1150 1.1.1.1.8.2 tls return true;
1151 1.1.1.1.8.2 tls }
1152 1.1.1.1.8.2 tls
1153 1.1.1.1.8.2 tls
1154 1.1.1.1.8.2 tls
1156 1.1.1.1.8.2 tls /* To save memory we use a lazy approach for allocation and
1157 1.1.1.1.8.2 tls initialization of the cost vectors. We do this only when it is
1158 1.1.1.1.8.2 tls really necessary. */
1159 1.1.1.1.8.2 tls
1160 1.1.1.1.8.2 tls /* Allocate cost vector *VEC for hard registers of COVER_CLASS and
1161 1.1.1.1.8.2 tls initialize the elements by VAL if it is necessary */
1162 1.1.1.1.8.2 tls static inline void
1163 1.1.1.1.8.2 tls ira_allocate_and_set_costs (int **vec, enum reg_class cover_class, int val)
1164 1.1.1.1.8.2 tls {
1165 1.1.1.1.8.2 tls int i, *reg_costs;
1166 1.1.1.1.8.2 tls int len;
1167 1.1.1.1.8.2 tls
1168 1.1.1.1.8.2 tls if (*vec != NULL)
1169 1.1.1.1.8.2 tls return;
1170 1.1.1.1.8.2 tls *vec = reg_costs = ira_allocate_cost_vector (cover_class);
1171 1.1.1.1.8.2 tls len = ira_class_hard_regs_num[cover_class];
1172 1.1.1.1.8.2 tls for (i = 0; i < len; i++)
1173 1.1.1.1.8.2 tls reg_costs[i] = val;
1174 1.1.1.1.8.2 tls }
1175 1.1.1.1.8.2 tls
1176 1.1.1.1.8.2 tls /* Allocate cost vector *VEC for hard registers of COVER_CLASS and
1177 1.1.1.1.8.2 tls copy values of vector SRC into the vector if it is necessary */
1178 1.1.1.1.8.2 tls static inline void
1179 1.1.1.1.8.2 tls ira_allocate_and_copy_costs (int **vec, enum reg_class cover_class, int *src)
1180 1.1.1.1.8.2 tls {
1181 1.1.1.1.8.2 tls int len;
1182 1.1.1.1.8.2 tls
1183 1.1.1.1.8.2 tls if (*vec != NULL || src == NULL)
1184 1.1.1.1.8.2 tls return;
1185 1.1.1.1.8.2 tls *vec = ira_allocate_cost_vector (cover_class);
1186 1.1.1.1.8.2 tls len = ira_class_hard_regs_num[cover_class];
1187 1.1.1.1.8.2 tls memcpy (*vec, src, sizeof (int) * len);
1188 1.1.1.1.8.2 tls }
1189 1.1.1.1.8.2 tls
1190 1.1.1.1.8.2 tls /* Allocate cost vector *VEC for hard registers of COVER_CLASS and
1191 1.1.1.1.8.2 tls add values of vector SRC into the vector if it is necessary */
1192 1.1.1.1.8.2 tls static inline void
1193 1.1.1.1.8.2 tls ira_allocate_and_accumulate_costs (int **vec, enum reg_class cover_class,
1194 1.1.1.1.8.2 tls int *src)
1195 1.1.1.1.8.2 tls {
1196 1.1.1.1.8.2 tls int i, len;
1197 1.1.1.1.8.2 tls
1198 1.1.1.1.8.2 tls if (src == NULL)
1199 1.1.1.1.8.2 tls return;
1200 1.1.1.1.8.2 tls len = ira_class_hard_regs_num[cover_class];
1201 1.1.1.1.8.2 tls if (*vec == NULL)
1202 1.1.1.1.8.2 tls {
1203 1.1.1.1.8.2 tls *vec = ira_allocate_cost_vector (cover_class);
1204 1.1.1.1.8.2 tls memset (*vec, 0, sizeof (int) * len);
1205 1.1.1.1.8.2 tls }
1206 1.1.1.1.8.2 tls for (i = 0; i < len; i++)
1207 1.1.1.1.8.2 tls (*vec)[i] += src[i];
1208 1.1.1.1.8.2 tls }
1209 1.1.1.1.8.2 tls
1210 1.1.1.1.8.2 tls /* Allocate cost vector *VEC for hard registers of COVER_CLASS and
1211 1.1.1.1.8.2 tls copy values of vector SRC into the vector or initialize it by VAL
1212 1.1.1.1.8.2 tls (if SRC is null). */
1213 1.1.1.1.8.2 tls static inline void
1214 1.1.1.1.8.2 tls ira_allocate_and_set_or_copy_costs (int **vec, enum reg_class cover_class,
1215 1.1.1.1.8.2 tls int val, int *src)
1216 1.1.1.1.8.2 tls {
1217 1.1.1.1.8.2 tls int i, *reg_costs;
1218 1.1.1.1.8.2 tls int len;
1219 1.1.1.1.8.2 tls
1220 1.1.1.1.8.2 tls if (*vec != NULL)
1221 1.1.1.1.8.2 tls return;
1222 1.1.1.1.8.2 tls *vec = reg_costs = ira_allocate_cost_vector (cover_class);
1223 1.1.1.1.8.2 tls len = ira_class_hard_regs_num[cover_class];
1224 1.1.1.1.8.2 tls if (src != NULL)
1225 memcpy (reg_costs, src, sizeof (int) * len);
1226 else
1227 {
1228 for (i = 0; i < len; i++)
1229 reg_costs[i] = val;
1230 }
1231 }
1232