?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Add support for ARMv8-R architecture
[official-gcc.git] / gcc / df-scan.c
blobdde6d15d07b848f6e5145f63109188b580e3a3ba
1 /* Scanning of rtl for dataflow analysis.
2 Copyright (C) 1999-2017 Free Software Foundation, Inc.
3 Originally contributed by Michael P. Hayes
4 (m.hayes@elec.canterbury.ac.nz, mhayes@redhat.com)
5 Major rewrite contributed by Danny Berlin (dberlin@dberlin.org)
6 and Kenneth Zadeck (zadeck@naturalbridge.com).
7
8 This file is part of GCC.
9
10 GCC is free software; you can redistribute it and/or modify it under
11 the terms of the GNU General Public License as published by the Free
12 Software Foundation; either version 3, or (at your option) any later
13 version.
14
15 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
16 WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 for more details.
19
20 You should have received a copy of the GNU General Public License
21 along with GCC; see the file COPYING3. If not see
22 <http://www.gnu.org/licenses/>. */
23
24 #include "config.h"
25 #include "system.h"
26 #include "coretypes.h"
27 #include "backend.h"
28 #include "target.h"
29 #include "rtl.h"
30 #include "tree.h"
31 #include "df.h"
32 #include "memmodel.h"
33 #include "tm_p.h"
34 #include "regs.h"
35 #include "emit-rtl.h" /* FIXME: Can go away once crtl is moved to rtl.h. */
36 #include "dumpfile.h"
37
38
39 /* The set of hard registers in eliminables[i].from. */
40
41 static HARD_REG_SET elim_reg_set;
42
43 /* Initialize ur_in and ur_out as if all hard registers were partially
44 available. */
45
46 struct df_collection_rec
47 {
48 auto_vec<df_ref, 128> def_vec;
49 auto_vec<df_ref, 32> use_vec;
50 auto_vec<df_ref, 32> eq_use_vec;
51 auto_vec<df_mw_hardreg *, 32> mw_vec;
52 };
53
54 static void df_ref_record (enum df_ref_class, struct df_collection_rec *,
55 rtx, rtx *,
56 basic_block, struct df_insn_info *,
57 enum df_ref_type, int ref_flags);
58 static void df_def_record_1 (struct df_collection_rec *, rtx *,
59 basic_block, struct df_insn_info *,
60 int ref_flags);
61 static void df_defs_record (struct df_collection_rec *, rtx,
62 basic_block, struct df_insn_info *,
63 int ref_flags);
64 static void df_uses_record (struct df_collection_rec *,
65 rtx *, enum df_ref_type,
66 basic_block, struct df_insn_info *,
67 int ref_flags);
68
69 static void df_install_ref_incremental (df_ref);
70 static void df_insn_refs_collect (struct df_collection_rec*,
71 basic_block, struct df_insn_info *);
72 static void df_canonize_collection_rec (struct df_collection_rec *);
73
74 static void df_get_regular_block_artificial_uses (bitmap);
75 static void df_get_eh_block_artificial_uses (bitmap);
76
77 static void df_record_entry_block_defs (bitmap);
78 static void df_record_exit_block_uses (bitmap);
79 static void df_get_exit_block_use_set (bitmap);
80 static void df_get_entry_block_def_set (bitmap);
81 static void df_grow_ref_info (struct df_ref_info *, unsigned int);
82 static void df_ref_chain_delete_du_chain (df_ref);
83 static void df_ref_chain_delete (df_ref);
84
85 static void df_refs_add_to_chains (struct df_collection_rec *,
86 basic_block, rtx_insn *, unsigned int);
87
88 static bool df_insn_refs_verify (struct df_collection_rec *, basic_block,
89 rtx_insn *, bool);
90 static void df_entry_block_defs_collect (struct df_collection_rec *, bitmap);
91 static void df_exit_block_uses_collect (struct df_collection_rec *, bitmap);
92 static void df_install_ref (df_ref, struct df_reg_info *,
93 struct df_ref_info *, bool);
94
95 static int df_ref_compare (df_ref, df_ref);
96 static int df_ref_ptr_compare (const void *, const void *);
97 static int df_mw_compare (const df_mw_hardreg *, const df_mw_hardreg *);
98 static int df_mw_ptr_compare (const void *, const void *);
99
100 static void df_insn_info_delete (unsigned int);
101
102 /* Indexed by hardware reg number, is true if that register is ever
103 used in the current function.
104
105 In df-scan.c, this is set up to record the hard regs used
106 explicitly. Reload adds in the hard regs used for holding pseudo
107 regs. Final uses it to generate the code in the function prologue
108 and epilogue to save and restore registers as needed. */
109
110 static bool regs_ever_live[FIRST_PSEUDO_REGISTER];
111
112 /* Flags used to tell df_refs_add_to_chains() which vectors it should copy. */
113 static const unsigned int copy_defs = 0x1;
114 static const unsigned int copy_uses = 0x2;
115 static const unsigned int copy_eq_uses = 0x4;
116 static const unsigned int copy_mw = 0x8;
117 static const unsigned int copy_all = copy_defs | copy_uses | copy_eq_uses
118 | copy_mw;
119 \f
120 /*----------------------------------------------------------------------------
121 SCANNING DATAFLOW PROBLEM
122
123 There are several ways in which scanning looks just like the other
124 dataflow problems. It shares the all the mechanisms for local info
125 as well as basic block info. Where it differs is when and how often
126 it gets run. It also has no need for the iterative solver.
127 ----------------------------------------------------------------------------*/
128
129 /* Problem data for the scanning dataflow function. */
130 struct df_scan_problem_data
131 {
132 object_allocator<df_base_ref> *ref_base_pool;
133 object_allocator<df_artificial_ref> *ref_artificial_pool;
134 object_allocator<df_regular_ref> *ref_regular_pool;
135 object_allocator<df_insn_info> *insn_pool;
136 object_allocator<df_reg_info> *reg_pool;
137 object_allocator<df_mw_hardreg> *mw_reg_pool;
138
139 bitmap_obstack reg_bitmaps;
140 bitmap_obstack insn_bitmaps;
141 };
142
143 /* Internal function to shut down the scanning problem. */
144 static void
145 df_scan_free_internal (void)
146 {
147 struct df_scan_problem_data *problem_data
148 = (struct df_scan_problem_data *) df_scan->problem_data;
149
150 free (df->def_info.refs);
151 free (df->def_info.begin);
152 free (df->def_info.count);
153 memset (&df->def_info, 0, (sizeof (struct df_ref_info)));
154
155 free (df->use_info.refs);
156 free (df->use_info.begin);
157 free (df->use_info.count);
158 memset (&df->use_info, 0, (sizeof (struct df_ref_info)));
159
160 free (df->def_regs);
161 df->def_regs = NULL;
162 free (df->use_regs);
163 df->use_regs = NULL;
164 free (df->eq_use_regs);
165 df->eq_use_regs = NULL;
166 df->regs_size = 0;
167 DF_REG_SIZE (df) = 0;
168
169 free (df->insns);
170 df->insns = NULL;
171 DF_INSN_SIZE () = 0;
172
173 free (df_scan->block_info);
174 df_scan->block_info = NULL;
175 df_scan->block_info_size = 0;
176
177 bitmap_clear (&df->hardware_regs_used);
178 bitmap_clear (&df->regular_block_artificial_uses);
179 bitmap_clear (&df->eh_block_artificial_uses);
180 BITMAP_FREE (df->entry_block_defs);
181 BITMAP_FREE (df->exit_block_uses);
182 bitmap_clear (&df->insns_to_delete);
183 bitmap_clear (&df->insns_to_rescan);
184 bitmap_clear (&df->insns_to_notes_rescan);
185
186 delete problem_data->ref_base_pool;
187 delete problem_data->ref_artificial_pool;
188 delete problem_data->ref_regular_pool;
189 delete problem_data->insn_pool;
190 delete problem_data->reg_pool;
191 delete problem_data->mw_reg_pool;
192 bitmap_obstack_release (&problem_data->reg_bitmaps);
193 bitmap_obstack_release (&problem_data->insn_bitmaps);
194 free (df_scan->problem_data);
195 }
196
197
198 /* Free basic block info. */
199
200 static void
201 df_scan_free_bb_info (basic_block bb, void *vbb_info)
202 {
203 struct df_scan_bb_info *bb_info = (struct df_scan_bb_info *) vbb_info;
204 unsigned int bb_index = bb->index;
205 rtx_insn *insn;
206
207 FOR_BB_INSNS (bb, insn)
208 if (INSN_P (insn))
209 df_insn_info_delete (INSN_UID (insn));
210
211 if (bb_index < df_scan->block_info_size)
212 bb_info = df_scan_get_bb_info (bb_index);
213
214 /* Get rid of any artificial uses or defs. */
215 df_ref_chain_delete_du_chain (bb_info->artificial_defs);
216 df_ref_chain_delete_du_chain (bb_info->artificial_uses);
217 df_ref_chain_delete (bb_info->artificial_defs);
218 df_ref_chain_delete (bb_info->artificial_uses);
219 bb_info->artificial_defs = NULL;
220 bb_info->artificial_uses = NULL;
221 }
222
223
224 /* Allocate the problem data for the scanning problem. This should be
225 called when the problem is created or when the entire function is to
226 be rescanned. */
227 void
228 df_scan_alloc (bitmap all_blocks ATTRIBUTE_UNUSED)
229 {
230 struct df_scan_problem_data *problem_data;
231 unsigned int insn_num = get_max_uid () + 1;
232 basic_block bb;
233
234 /* Given the number of pools, this is really faster than tearing
235 everything apart. */
236 if (df_scan->problem_data)
237 df_scan_free_internal ();
238
239 problem_data = XNEW (struct df_scan_problem_data);
240 df_scan->problem_data = problem_data;
241 df_scan->computed = true;
242
243 problem_data->ref_base_pool = new object_allocator<df_base_ref>
244 ("df_scan ref base");
245 problem_data->ref_artificial_pool = new object_allocator<df_artificial_ref>
246 ("df_scan ref artificial");
247 problem_data->ref_regular_pool = new object_allocator<df_regular_ref>
248 ("df_scan ref regular");
249 problem_data->insn_pool = new object_allocator<df_insn_info>
250 ("df_scan insn");
251 problem_data->reg_pool = new object_allocator<df_reg_info>
252 ("df_scan reg");
253 problem_data->mw_reg_pool = new object_allocator<df_mw_hardreg>
254 ("df_scan mw_reg");
255
256 bitmap_obstack_initialize (&problem_data->reg_bitmaps);
257 bitmap_obstack_initialize (&problem_data->insn_bitmaps);
258
259 insn_num += insn_num / 4;
260 df_grow_reg_info ();
261
262 df_grow_insn_info ();
263 df_grow_bb_info (df_scan);
264
265 FOR_ALL_BB_FN (bb, cfun)
266 {
267 unsigned int bb_index = bb->index;
268 struct df_scan_bb_info *bb_info = df_scan_get_bb_info (bb_index);
269 bb_info->artificial_defs = NULL;
270 bb_info->artificial_uses = NULL;
271 }
272
273 bitmap_initialize (&df->hardware_regs_used, &problem_data->reg_bitmaps);
274 bitmap_initialize (&df->regular_block_artificial_uses, &problem_data->reg_bitmaps);
275 bitmap_initialize (&df->eh_block_artificial_uses, &problem_data->reg_bitmaps);
276 df->entry_block_defs = BITMAP_ALLOC (&problem_data->reg_bitmaps);
277 df->exit_block_uses = BITMAP_ALLOC (&problem_data->reg_bitmaps);
278 bitmap_initialize (&df->insns_to_delete, &problem_data->insn_bitmaps);
279 bitmap_initialize (&df->insns_to_rescan, &problem_data->insn_bitmaps);
280 bitmap_initialize (&df->insns_to_notes_rescan, &problem_data->insn_bitmaps);
281 df_scan->optional_p = false;
282 }
283
284
285 /* Free all of the data associated with the scan problem. */
286
287 static void
288 df_scan_free (void)
289 {
290 if (df_scan->problem_data)
291 df_scan_free_internal ();
292
293 if (df->blocks_to_analyze)
294 {
295 BITMAP_FREE (df->blocks_to_analyze);
296 df->blocks_to_analyze = NULL;
297 }
298
299 free (df_scan);
300 }
301
302 /* Dump the preamble for DF_SCAN dump. */
303 static void
304 df_scan_start_dump (FILE *file ATTRIBUTE_UNUSED)
305 {
306 int i;
307 int dcount = 0;
308 int ucount = 0;
309 int ecount = 0;
310 int icount = 0;
311 int ccount = 0;
312 basic_block bb;
313 rtx_insn *insn;
314
315 fprintf (file, ";; invalidated by call \t");
316 df_print_regset (file, regs_invalidated_by_call_regset);
317 fprintf (file, ";; hardware regs used \t");
318 df_print_regset (file, &df->hardware_regs_used);
319 fprintf (file, ";; regular block artificial uses \t");
320 df_print_regset (file, &df->regular_block_artificial_uses);
321 fprintf (file, ";; eh block artificial uses \t");
322 df_print_regset (file, &df->eh_block_artificial_uses);
323 fprintf (file, ";; entry block defs \t");
324 df_print_regset (file, df->entry_block_defs);
325 fprintf (file, ";; exit block uses \t");
326 df_print_regset (file, df->exit_block_uses);
327 fprintf (file, ";; regs ever live \t");
328 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
329 if (df_regs_ever_live_p (i))
330 fprintf (file, " %d [%s]", i, reg_names[i]);
331 fprintf (file, "\n;; ref usage \t");
332
333 for (i = 0; i < (int)df->regs_inited; i++)
334 if (DF_REG_DEF_COUNT (i) || DF_REG_USE_COUNT (i) || DF_REG_EQ_USE_COUNT (i))
335 {
336 const char * sep = "";
337
338 fprintf (file, "r%d={", i);
339 if (DF_REG_DEF_COUNT (i))
340 {
341 fprintf (file, "%dd", DF_REG_DEF_COUNT (i));
342 sep = ",";
343 dcount += DF_REG_DEF_COUNT (i);
344 }
345 if (DF_REG_USE_COUNT (i))
346 {
347 fprintf (file, "%s%du", sep, DF_REG_USE_COUNT (i));
348 sep = ",";
349 ucount += DF_REG_USE_COUNT (i);
350 }
351 if (DF_REG_EQ_USE_COUNT (i))
352 {
353 fprintf (file, "%s%de", sep, DF_REG_EQ_USE_COUNT (i));
354 ecount += DF_REG_EQ_USE_COUNT (i);
355 }
356 fprintf (file, "} ");
357 }
358
359 FOR_EACH_BB_FN (bb, cfun)
360 FOR_BB_INSNS (bb, insn)
361 if (INSN_P (insn))
362 {
363 if (CALL_P (insn))
364 ccount++;
365 else
366 icount++;
367 }
368
369 fprintf (file, "\n;; total ref usage %d{%dd,%du,%de}"
370 " in %d{%d regular + %d call} insns.\n",
371 dcount + ucount + ecount, dcount, ucount, ecount,
372 icount + ccount, icount, ccount);
373 }
374
375 /* Dump the bb_info for a given basic block. */
376 static void
377 df_scan_start_block (basic_block bb, FILE *file)
378 {
379 struct df_scan_bb_info *bb_info
380 = df_scan_get_bb_info (bb->index);
381
382 if (bb_info)
383 {
384 fprintf (file, ";; bb %d artificial_defs: ", bb->index);
385 df_refs_chain_dump (bb_info->artificial_defs, true, file);
386 fprintf (file, "\n;; bb %d artificial_uses: ", bb->index);
387 df_refs_chain_dump (bb_info->artificial_uses, true, file);
388 fprintf (file, "\n");
389 }
390 #if 0
391 {
392 rtx_insn *insn;
393 FOR_BB_INSNS (bb, insn)
394 if (INSN_P (insn))
395 df_insn_debug (insn, false, file);
396 }
397 #endif
398 }
399
400 static const struct df_problem problem_SCAN =
401 {
402 DF_SCAN, /* Problem id. */
403 DF_NONE, /* Direction. */
404 df_scan_alloc, /* Allocate the problem specific data. */
405 NULL, /* Reset global information. */
406 df_scan_free_bb_info, /* Free basic block info. */
407 NULL, /* Local compute function. */
408 NULL, /* Init the solution specific data. */
409 NULL, /* Iterative solver. */
410 NULL, /* Confluence operator 0. */
411 NULL, /* Confluence operator n. */
412 NULL, /* Transfer function. */
413 NULL, /* Finalize function. */
414 df_scan_free, /* Free all of the problem information. */
415 NULL, /* Remove this problem from the stack of dataflow problems. */
416 df_scan_start_dump, /* Debugging. */
417 df_scan_start_block, /* Debugging start block. */
418 NULL, /* Debugging end block. */
419 NULL, /* Debugging start insn. */
420 NULL, /* Debugging end insn. */
421 NULL, /* Incremental solution verify start. */
422 NULL, /* Incremental solution verify end. */
423 NULL, /* Dependent problem. */
424 sizeof (struct df_scan_bb_info),/* Size of entry of block_info array. */
425 TV_DF_SCAN, /* Timing variable. */
426 false /* Reset blocks on dropping out of blocks_to_analyze. */
427 };
428
429
430 /* Create a new DATAFLOW instance and add it to an existing instance
431 of DF. The returned structure is what is used to get at the
432 solution. */
433
434 void
435 df_scan_add_problem (void)
436 {
437 df_add_problem (&problem_SCAN);
438 }
439
440 \f
441 /*----------------------------------------------------------------------------
442 Storage Allocation Utilities
443 ----------------------------------------------------------------------------*/
444
445
446 /* First, grow the reg_info information. If the current size is less than
447 the number of pseudos, grow to 25% more than the number of
448 pseudos.
449
450 Second, assure that all of the slots up to max_reg_num have been
451 filled with reg_info structures. */
452
453 void
454 df_grow_reg_info (void)
455 {
456 unsigned int max_reg = max_reg_num ();
457 unsigned int new_size = max_reg;
458 struct df_scan_problem_data *problem_data
459 = (struct df_scan_problem_data *) df_scan->problem_data;
460 unsigned int i;
461
462 if (df->regs_size < new_size)
463 {
464 new_size += new_size / 4;
465 df->def_regs = XRESIZEVEC (struct df_reg_info *, df->def_regs, new_size);
466 df->use_regs = XRESIZEVEC (struct df_reg_info *, df->use_regs, new_size);
467 df->eq_use_regs = XRESIZEVEC (struct df_reg_info *, df->eq_use_regs,
468 new_size);
469 df->def_info.begin = XRESIZEVEC (unsigned, df->def_info.begin, new_size);
470 df->def_info.count = XRESIZEVEC (unsigned, df->def_info.count, new_size);
471 df->use_info.begin = XRESIZEVEC (unsigned, df->use_info.begin, new_size);
472 df->use_info.count = XRESIZEVEC (unsigned, df->use_info.count, new_size);
473 df->regs_size = new_size;
474 }
475
476 for (i = df->regs_inited; i < max_reg; i++)
477 {
478 struct df_reg_info *reg_info;
479
480 // TODO
481 reg_info = problem_data->reg_pool->allocate ();
482 memset (reg_info, 0, sizeof (struct df_reg_info));
483 df->def_regs[i] = reg_info;
484 reg_info = problem_data->reg_pool->allocate ();
485 memset (reg_info, 0, sizeof (struct df_reg_info));
486 df->use_regs[i] = reg_info;
487 reg_info = problem_data->reg_pool->allocate ();
488 memset (reg_info, 0, sizeof (struct df_reg_info));
489 df->eq_use_regs[i] = reg_info;
490 df->def_info.begin[i] = 0;
491 df->def_info.count[i] = 0;
492 df->use_info.begin[i] = 0;
493 df->use_info.count[i] = 0;
494 }
495
496 df->regs_inited = max_reg;
497 }
498
499
500 /* Grow the ref information. */
501
502 static void
503 df_grow_ref_info (struct df_ref_info *ref_info, unsigned int new_size)
504 {
505 if (ref_info->refs_size < new_size)
506 {
507 ref_info->refs = XRESIZEVEC (df_ref, ref_info->refs, new_size);
508 memset (ref_info->refs + ref_info->refs_size, 0,
509 (new_size - ref_info->refs_size) *sizeof (df_ref));
510 ref_info->refs_size = new_size;
511 }
512 }
513
514
515 /* Check and grow the ref information if necessary. This routine
516 guarantees total_size + BITMAP_ADDEND amount of entries in refs
517 array. It updates ref_info->refs_size only and does not change
518 ref_info->total_size. */
519
520 static void
521 df_check_and_grow_ref_info (struct df_ref_info *ref_info,
522 unsigned bitmap_addend)
523 {
524 if (ref_info->refs_size < ref_info->total_size + bitmap_addend)
525 {
526 int new_size = ref_info->total_size + bitmap_addend;
527 new_size += ref_info->total_size / 4;
528 df_grow_ref_info (ref_info, new_size);
529 }
530 }
531
532
533 /* Grow the ref information. If the current size is less than the
534 number of instructions, grow to 25% more than the number of
535 instructions. */
536
537 void
538 df_grow_insn_info (void)
539 {
540 unsigned int new_size = get_max_uid () + 1;
541 if (DF_INSN_SIZE () < new_size)
542 {
543 new_size += new_size / 4;
544 df->insns = XRESIZEVEC (struct df_insn_info *, df->insns, new_size);
545 memset (df->insns + df->insns_size, 0,
546 (new_size - DF_INSN_SIZE ()) *sizeof (struct df_insn_info *));
547 DF_INSN_SIZE () = new_size;
548 }
549 }
550
551
552
553 \f
554 /*----------------------------------------------------------------------------
555 PUBLIC INTERFACES FOR SMALL GRAIN CHANGES TO SCANNING.
556 ----------------------------------------------------------------------------*/
557
558 /* Rescan all of the block_to_analyze or all of the blocks in the
559 function if df_set_blocks if blocks_to_analyze is NULL; */
560
561 void
562 df_scan_blocks (void)
563 {
564 basic_block bb;
565
566 df->def_info.ref_order = DF_REF_ORDER_NO_TABLE;
567 df->use_info.ref_order = DF_REF_ORDER_NO_TABLE;
568
569 df_get_regular_block_artificial_uses (&df->regular_block_artificial_uses);
570 df_get_eh_block_artificial_uses (&df->eh_block_artificial_uses);
571
572 bitmap_ior_into (&df->eh_block_artificial_uses,
573 &df->regular_block_artificial_uses);
574
575 /* ENTRY and EXIT blocks have special defs/uses. */
576 df_get_entry_block_def_set (df->entry_block_defs);
577 df_record_entry_block_defs (df->entry_block_defs);
578 df_get_exit_block_use_set (df->exit_block_uses);
579 df_record_exit_block_uses (df->exit_block_uses);
580 df_set_bb_dirty (BASIC_BLOCK_FOR_FN (cfun, ENTRY_BLOCK));
581 df_set_bb_dirty (BASIC_BLOCK_FOR_FN (cfun, EXIT_BLOCK));
582
583 /* Regular blocks */
584 FOR_EACH_BB_FN (bb, cfun)
585 {
586 unsigned int bb_index = bb->index;
587 df_bb_refs_record (bb_index, true);
588 }
589 }
590
591 /* Create new refs under address LOC within INSN. This function is
592 only used externally. REF_FLAGS must be either 0 or DF_REF_IN_NOTE,
593 depending on whether LOC is inside PATTERN (INSN) or a note. */
594
595 void
596 df_uses_create (rtx *loc, rtx_insn *insn, int ref_flags)
597 {
598 gcc_assert (!(ref_flags & ~DF_REF_IN_NOTE));
599 df_uses_record (NULL, loc, DF_REF_REG_USE,
600 BLOCK_FOR_INSN (insn),
601 DF_INSN_INFO_GET (insn),
602 ref_flags);
603 }
604
605 static void
606 df_install_ref_incremental (df_ref ref)
607 {
608 struct df_reg_info **reg_info;
609 struct df_ref_info *ref_info;
610 df_ref *ref_ptr;
611 bool add_to_table;
612
613 rtx_insn *insn = DF_REF_INSN (ref);
614 basic_block bb = BLOCK_FOR_INSN (insn);
615
616 if (DF_REF_REG_DEF_P (ref))
617 {
618 reg_info = df->def_regs;
619 ref_info = &df->def_info;
620 ref_ptr = &DF_INSN_DEFS (insn);
621 add_to_table = ref_info->ref_order != DF_REF_ORDER_NO_TABLE;
622 }
623 else if (DF_REF_FLAGS (ref) & DF_REF_IN_NOTE)
624 {
625 reg_info = df->eq_use_regs;
626 ref_info = &df->use_info;
627 ref_ptr = &DF_INSN_EQ_USES (insn);
628 switch (ref_info->ref_order)
629 {
630 case DF_REF_ORDER_UNORDERED_WITH_NOTES:
631 case DF_REF_ORDER_BY_REG_WITH_NOTES:
632 case DF_REF_ORDER_BY_INSN_WITH_NOTES:
633 add_to_table = true;
634 break;
635 default:
636 add_to_table = false;
637 break;
638 }
639 }
640 else
641 {
642 reg_info = df->use_regs;
643 ref_info = &df->use_info;
644 ref_ptr = &DF_INSN_USES (insn);
645 add_to_table = ref_info->ref_order != DF_REF_ORDER_NO_TABLE;
646 }
647
648 /* Do not add if ref is not in the right blocks. */
649 if (add_to_table && df->analyze_subset)
650 add_to_table = bitmap_bit_p (df->blocks_to_analyze, bb->index);
651
652 df_install_ref (ref, reg_info[DF_REF_REGNO (ref)], ref_info, add_to_table);
653
654 if (add_to_table)
655 switch (ref_info->ref_order)
656 {
657 case DF_REF_ORDER_UNORDERED_WITH_NOTES:
658 case DF_REF_ORDER_BY_REG_WITH_NOTES:
659 case DF_REF_ORDER_BY_INSN_WITH_NOTES:
660 ref_info->ref_order = DF_REF_ORDER_UNORDERED_WITH_NOTES;
661 break;
662 default:
663 ref_info->ref_order = DF_REF_ORDER_UNORDERED;
664 break;
665 }
666
667 while (*ref_ptr && df_ref_compare (*ref_ptr, ref) < 0)
668 ref_ptr = &DF_REF_NEXT_LOC (*ref_ptr);
669
670 DF_REF_NEXT_LOC (ref) = *ref_ptr;
671 *ref_ptr = ref;
672
673 #if 0
674 if (dump_file)
675 {
676 fprintf (dump_file, "adding ref ");
677 df_ref_debug (ref, dump_file);
678 }
679 #endif
680 /* By adding the ref directly, df_insn_rescan my not find any
681 differences even though the block will have changed. So we need
682 to mark the block dirty ourselves. */
683 if (!DEBUG_INSN_P (DF_REF_INSN (ref)))
684 df_set_bb_dirty (bb);
685 }
686
687
688 \f
689 /*----------------------------------------------------------------------------
690 UTILITIES TO CREATE AND DESTROY REFS AND CHAINS.
691 ----------------------------------------------------------------------------*/
692
693 static void
694 df_free_ref (df_ref ref)
695 {
696 struct df_scan_problem_data *problem_data
697 = (struct df_scan_problem_data *) df_scan->problem_data;
698
699 switch (DF_REF_CLASS (ref))
700 {
701 case DF_REF_BASE:
702 problem_data->ref_base_pool->remove ((df_base_ref *) (ref));
703 break;
704
705 case DF_REF_ARTIFICIAL:
706 problem_data->ref_artificial_pool->remove
707 ((df_artificial_ref *) (ref));
708 break;
709
710 case DF_REF_REGULAR:
711 problem_data->ref_regular_pool->remove
712 ((df_regular_ref *) (ref));
713 break;
714 }
715 }
716
717
718 /* Unlink and delete REF at the reg_use, reg_eq_use or reg_def chain.
719 Also delete the def-use or use-def chain if it exists. */
720
721 static void
722 df_reg_chain_unlink (df_ref ref)
723 {
724 df_ref next = DF_REF_NEXT_REG (ref);
725 df_ref prev = DF_REF_PREV_REG (ref);
726 int id = DF_REF_ID (ref);
727 struct df_reg_info *reg_info;
728 df_ref *refs = NULL;
729
730 if (DF_REF_REG_DEF_P (ref))
731 {
732 int regno = DF_REF_REGNO (ref);
733 reg_info = DF_REG_DEF_GET (regno);
734 refs = df->def_info.refs;
735 }
736 else
737 {
738 if (DF_REF_FLAGS (ref) & DF_REF_IN_NOTE)
739 {
740 reg_info = DF_REG_EQ_USE_GET (DF_REF_REGNO (ref));
741 switch (df->use_info.ref_order)
742 {
743 case DF_REF_ORDER_UNORDERED_WITH_NOTES:
744 case DF_REF_ORDER_BY_REG_WITH_NOTES:
745 case DF_REF_ORDER_BY_INSN_WITH_NOTES:
746 refs = df->use_info.refs;
747 break;
748 default:
749 break;
750 }
751 }
752 else
753 {
754 reg_info = DF_REG_USE_GET (DF_REF_REGNO (ref));
755 refs = df->use_info.refs;
756 }
757 }
758
759 if (refs)
760 {
761 if (df->analyze_subset)
762 {
763 if (bitmap_bit_p (df->blocks_to_analyze, DF_REF_BBNO (ref)))
764 refs[id] = NULL;
765 }
766 else
767 refs[id] = NULL;
768 }
769
770 /* Delete any def-use or use-def chains that start here. It is
771 possible that there is trash in this field. This happens for
772 insns that have been deleted when rescanning has been deferred
773 and the chain problem has also been deleted. The chain tear down
774 code skips deleted insns. */
775 if (df_chain && DF_REF_CHAIN (ref))
776 df_chain_unlink (ref);
777
778 reg_info->n_refs--;
779 if (DF_REF_FLAGS_IS_SET (ref, DF_HARD_REG_LIVE))
780 {
781 gcc_assert (DF_REF_REGNO (ref) < FIRST_PSEUDO_REGISTER);
782 df->hard_regs_live_count[DF_REF_REGNO (ref)]--;
783 }
784
785 /* Unlink from the reg chain. If there is no prev, this is the
786 first of the list. If not, just join the next and prev. */
787 if (prev)
788 DF_REF_NEXT_REG (prev) = next;
789 else
790 {
791 gcc_assert (reg_info->reg_chain == ref);
792 reg_info->reg_chain = next;
793 }
794 if (next)
795 DF_REF_PREV_REG (next) = prev;
796
797 df_free_ref (ref);
798 }
799
800 /* Initialize INSN_INFO to describe INSN. */
801
802 static void
803 df_insn_info_init_fields (df_insn_info *insn_info, rtx_insn *insn)
804 {
805 memset (insn_info, 0, sizeof (struct df_insn_info));
806 insn_info->insn = insn;
807 }
808
809 /* Create the insn record for INSN. If there was one there, zero it
810 out. */
811
812 struct df_insn_info *
813 df_insn_create_insn_record (rtx_insn *insn)
814 {
815 struct df_scan_problem_data *problem_data
816 = (struct df_scan_problem_data *) df_scan->problem_data;
817 struct df_insn_info *insn_rec;
818
819 df_grow_insn_info ();
820 insn_rec = DF_INSN_INFO_GET (insn);
821 if (!insn_rec)
822 {
823 insn_rec = problem_data->insn_pool->allocate ();
824 DF_INSN_INFO_SET (insn, insn_rec);
825 }
826 df_insn_info_init_fields (insn_rec, insn);
827 return insn_rec;
828 }
829
830
831 /* Delete all du chain (DF_REF_CHAIN()) of all refs in the ref chain. */
832
833 static void
834 df_ref_chain_delete_du_chain (df_ref ref)
835 {
836 for (; ref; ref = DF_REF_NEXT_LOC (ref))
837 /* CHAIN is allocated by DF_CHAIN. So make sure to
838 pass df_scan instance for the problem. */
839 if (DF_REF_CHAIN (ref))
840 df_chain_unlink (ref);
841 }
842
843
844 /* Delete all refs in the ref chain. */
845
846 static void
847 df_ref_chain_delete (df_ref ref)
848 {
849 df_ref next;
850 for (; ref; ref = next)
851 {
852 next = DF_REF_NEXT_LOC (ref);
853 df_reg_chain_unlink (ref);
854 }
855 }
856
857
858 /* Delete the hardreg chain. */
859
860 static void
861 df_mw_hardreg_chain_delete (struct df_mw_hardreg *hardregs)
862 {
863 struct df_scan_problem_data *problem_data
864 = (struct df_scan_problem_data *) df_scan->problem_data;
865 df_mw_hardreg *next;
866
867 for (; hardregs; hardregs = next)
868 {
869 next = DF_MWS_NEXT (hardregs);
870 problem_data->mw_reg_pool->remove (hardregs);
871 }
872 }
873
874 /* Remove the contents of INSN_INFO (but don't free INSN_INFO itself). */
875
876 static void
877 df_insn_info_free_fields (df_insn_info *insn_info)
878 {
879 /* In general, notes do not have the insn_info fields
880 initialized. However, combine deletes insns by changing them
881 to notes. How clever. So we cannot just check if it is a
882 valid insn before short circuiting this code, we need to see
883 if we actually initialized it. */
884 df_mw_hardreg_chain_delete (insn_info->mw_hardregs);
885
886 if (df_chain)
887 {
888 df_ref_chain_delete_du_chain (insn_info->defs);
889 df_ref_chain_delete_du_chain (insn_info->uses);
890 df_ref_chain_delete_du_chain (insn_info->eq_uses);
891 }
892
893 df_ref_chain_delete (insn_info->defs);
894 df_ref_chain_delete (insn_info->uses);
895 df_ref_chain_delete (insn_info->eq_uses);
896 }
897
898 /* Delete all of the refs information from the insn with UID.
899 Internal helper for df_insn_delete, df_insn_rescan, and other
900 df-scan routines that don't have to work in deferred mode
901 and do not have to mark basic blocks for re-processing. */
902
903 static void
904 df_insn_info_delete (unsigned int uid)
905 {
906 struct df_insn_info *insn_info = DF_INSN_UID_SAFE_GET (uid);
907
908 bitmap_clear_bit (&df->insns_to_delete, uid);
909 bitmap_clear_bit (&df->insns_to_rescan, uid);
910 bitmap_clear_bit (&df->insns_to_notes_rescan, uid);
911 if (insn_info)
912 {
913 struct df_scan_problem_data *problem_data
914 = (struct df_scan_problem_data *) df_scan->problem_data;
915
916 df_insn_info_free_fields (insn_info);
917 problem_data->insn_pool->remove (insn_info);
918 DF_INSN_UID_SET (uid, NULL);
919 }
920 }
921
922 /* Delete all of the refs information from INSN, either right now
923 or marked for later in deferred mode. */
924
925 void
926 df_insn_delete (rtx_insn *insn)
927 {
928 unsigned int uid;
929 basic_block bb;
930
931 gcc_checking_assert (INSN_P (insn));
932
933 if (!df)
934 return;
935
936 uid = INSN_UID (insn);
937 bb = BLOCK_FOR_INSN (insn);
938
939 /* ??? bb can be NULL after pass_free_cfg. At that point, DF should
940 not exist anymore (as mentioned in df-core.c: "The only requirement
941 [for DF] is that there be a correct control flow graph." Clearly
942 that isn't the case after pass_free_cfg. But DF is freed much later
943 because some back-ends want to use DF info even though the CFG is
944 already gone. It's not clear to me whether that is safe, actually.
945 In any case, we expect BB to be non-NULL at least up to register
946 allocation, so disallow a non-NULL BB up to there. Not perfect
947 but better than nothing... */
948 gcc_checking_assert (bb != NULL || reload_completed);
949
950 df_grow_bb_info (df_scan);
951 df_grow_reg_info ();
952
953 /* The block must be marked as dirty now, rather than later as in
954 df_insn_rescan and df_notes_rescan because it may not be there at
955 rescanning time and the mark would blow up.
956 DEBUG_INSNs do not make a block's data flow solution dirty (at
957 worst the LUIDs are no longer contiguous). */
958 if (bb != NULL && NONDEBUG_INSN_P (insn))
959 df_set_bb_dirty (bb);
960
961 /* The client has deferred rescanning. */
962 if (df->changeable_flags & DF_DEFER_INSN_RESCAN)
963 {
964 struct df_insn_info *insn_info = DF_INSN_UID_SAFE_GET (uid);
965 if (insn_info)
966 {
967 bitmap_clear_bit (&df->insns_to_rescan, uid);
968 bitmap_clear_bit (&df->insns_to_notes_rescan, uid);
969 bitmap_set_bit (&df->insns_to_delete, uid);
970 }
971 if (dump_file)
972 fprintf (dump_file, "deferring deletion of insn with uid = %d.\n", uid);
973 return;
974 }
975
976 if (dump_file)
977 fprintf (dump_file, "deleting insn with uid = %d.\n", uid);
978
979 df_insn_info_delete (uid);
980 }
981
982
983 /* Free all of the refs and the mw_hardregs in COLLECTION_REC. */
984
985 static void
986 df_free_collection_rec (struct df_collection_rec *collection_rec)
987 {
988 unsigned int ix;
989 struct df_scan_problem_data *problem_data
990 = (struct df_scan_problem_data *) df_scan->problem_data;
991 df_ref ref;
992 struct df_mw_hardreg *mw;
993
994 FOR_EACH_VEC_ELT (collection_rec->def_vec, ix, ref)
995 df_free_ref (ref);
996 FOR_EACH_VEC_ELT (collection_rec->use_vec, ix, ref)
997 df_free_ref (ref);
998 FOR_EACH_VEC_ELT (collection_rec->eq_use_vec, ix, ref)
999 df_free_ref (ref);
1000 FOR_EACH_VEC_ELT (collection_rec->mw_vec, ix, mw)
1001 problem_data->mw_reg_pool->remove (mw);
1002
1003 collection_rec->def_vec.release ();
1004 collection_rec->use_vec.release ();
1005 collection_rec->eq_use_vec.release ();
1006 collection_rec->mw_vec.release ();
1007 }
1008
1009 /* Rescan INSN. Return TRUE if the rescanning produced any changes. */
1010
1011 bool
1012 df_insn_rescan (rtx_insn *insn)
1013 {
1014 unsigned int uid = INSN_UID (insn);
1015 struct df_insn_info *insn_info = NULL;
1016 basic_block bb = BLOCK_FOR_INSN (insn);
1017 struct df_collection_rec collection_rec;
1018
1019 if ((!df) || (!INSN_P (insn)))
1020 return false;
1021
1022 if (!bb)
1023 {
1024 if (dump_file)
1025 fprintf (dump_file, "no bb for insn with uid = %d.\n", uid);
1026 return false;
1027 }
1028
1029 /* The client has disabled rescanning and plans to do it itself. */
1030 if (df->changeable_flags & DF_NO_INSN_RESCAN)
1031 return false;
1032
1033 df_grow_bb_info (df_scan);
1034 df_grow_reg_info ();
1035
1036 insn_info = DF_INSN_UID_SAFE_GET (uid);
1037
1038 /* The client has deferred rescanning. */
1039 if (df->changeable_flags & DF_DEFER_INSN_RESCAN)
1040 {
1041 if (!insn_info)
1042 {
1043 insn_info = df_insn_create_insn_record (insn);
1044 insn_info->defs = 0;
1045 insn_info->uses = 0;
1046 insn_info->eq_uses = 0;
1047 insn_info->mw_hardregs = 0;
1048 }
1049 if (dump_file)
1050 fprintf (dump_file, "deferring rescan insn with uid = %d.\n", uid);
1051
1052 bitmap_clear_bit (&df->insns_to_delete, uid);
1053 bitmap_clear_bit (&df->insns_to_notes_rescan, uid);
1054 bitmap_set_bit (&df->insns_to_rescan, INSN_UID (insn));
1055 return false;
1056 }
1057
1058 bitmap_clear_bit (&df->insns_to_delete, uid);
1059 bitmap_clear_bit (&df->insns_to_rescan, uid);
1060 bitmap_clear_bit (&df->insns_to_notes_rescan, uid);
1061 if (insn_info)
1062 {
1063 int luid;
1064 bool the_same = df_insn_refs_verify (&collection_rec, bb, insn, false);
1065 /* If there's no change, return false. */
1066 if (the_same)
1067 {
1068 df_free_collection_rec (&collection_rec);
1069 if (dump_file)
1070 fprintf (dump_file, "verify found no changes in insn with uid = %d.\n", uid);
1071 return false;
1072 }
1073 if (dump_file)
1074 fprintf (dump_file, "rescanning insn with uid = %d.\n", uid);
1075
1076 /* There's change - we need to delete the existing info.
1077 Since the insn isn't moved, we can salvage its LUID. */
1078 luid = DF_INSN_LUID (insn);
1079 df_insn_info_free_fields (insn_info);
1080 df_insn_info_init_fields (insn_info, insn);
1081 DF_INSN_LUID (insn) = luid;
1082 }
1083 else
1084 {
1085 struct df_insn_info *insn_info = df_insn_create_insn_record (insn);
1086 df_insn_refs_collect (&collection_rec, bb, insn_info);
1087 if (dump_file)
1088 fprintf (dump_file, "scanning new insn with uid = %d.\n", uid);
1089 }
1090
1091 df_refs_add_to_chains (&collection_rec, bb, insn, copy_all);
1092 if (!DEBUG_INSN_P (insn))
1093 df_set_bb_dirty (bb);
1094
1095 return true;
1096 }
1097
1098 /* Same as df_insn_rescan, but don't mark the basic block as
1099 dirty. */
1100
1101 bool
1102 df_insn_rescan_debug_internal (rtx_insn *insn)
1103 {
1104 unsigned int uid = INSN_UID (insn);
1105 struct df_insn_info *insn_info;
1106
1107 gcc_assert (DEBUG_INSN_P (insn)
1108 && VAR_LOC_UNKNOWN_P (INSN_VAR_LOCATION_LOC (insn)));
1109
1110 if (!df)
1111 return false;
1112
1113 insn_info = DF_INSN_UID_SAFE_GET (INSN_UID (insn));
1114 if (!insn_info)
1115 return false;
1116
1117 if (dump_file)
1118 fprintf (dump_file, "deleting debug_insn with uid = %d.\n", uid);
1119
1120 bitmap_clear_bit (&df->insns_to_delete, uid);
1121 bitmap_clear_bit (&df->insns_to_rescan, uid);
1122 bitmap_clear_bit (&df->insns_to_notes_rescan, uid);
1123
1124 if (insn_info->defs == 0
1125 && insn_info->uses == 0
1126 && insn_info->eq_uses == 0
1127 && insn_info->mw_hardregs == 0)
1128 return false;
1129
1130 df_mw_hardreg_chain_delete (insn_info->mw_hardregs);
1131
1132 if (df_chain)
1133 {
1134 df_ref_chain_delete_du_chain (insn_info->defs);
1135 df_ref_chain_delete_du_chain (insn_info->uses);
1136 df_ref_chain_delete_du_chain (insn_info->eq_uses);
1137 }
1138
1139 df_ref_chain_delete (insn_info->defs);
1140 df_ref_chain_delete (insn_info->uses);
1141 df_ref_chain_delete (insn_info->eq_uses);
1142
1143 insn_info->defs = 0;
1144 insn_info->uses = 0;
1145 insn_info->eq_uses = 0;
1146 insn_info->mw_hardregs = 0;
1147
1148 return true;
1149 }
1150
1151
1152 /* Rescan all of the insns in the function. Note that the artificial
1153 uses and defs are not touched. This function will destroy def-use
1154 or use-def chains. */
1155
1156 void
1157 df_insn_rescan_all (void)
1158 {
1159 bool no_insn_rescan = false;
1160 bool defer_insn_rescan = false;
1161 basic_block bb;
1162 bitmap_iterator bi;
1163 unsigned int uid;
1164
1165 if (df->changeable_flags & DF_NO_INSN_RESCAN)
1166 {
1167 df_clear_flags (DF_NO_INSN_RESCAN);
1168 no_insn_rescan = true;
1169 }
1170
1171 if (df->changeable_flags & DF_DEFER_INSN_RESCAN)
1172 {
1173 df_clear_flags (DF_DEFER_INSN_RESCAN);
1174 defer_insn_rescan = true;
1175 }
1176
1177 auto_bitmap tmp (&df_bitmap_obstack);
1178 bitmap_copy (tmp, &df->insns_to_delete);
1179 EXECUTE_IF_SET_IN_BITMAP (tmp, 0, uid, bi)
1180 {
1181 struct df_insn_info *insn_info = DF_INSN_UID_SAFE_GET (uid);
1182 if (insn_info)
1183 df_insn_info_delete (uid);
1184 }
1185
1186 bitmap_clear (&df->insns_to_delete);
1187 bitmap_clear (&df->insns_to_rescan);
1188 bitmap_clear (&df->insns_to_notes_rescan);
1189
1190 FOR_EACH_BB_FN (bb, cfun)
1191 {
1192 rtx_insn *insn;
1193 FOR_BB_INSNS (bb, insn)
1194 {
1195 df_insn_rescan (insn);
1196 }
1197 }
1198
1199 if (no_insn_rescan)
1200 df_set_flags (DF_NO_INSN_RESCAN);
1201 if (defer_insn_rescan)
1202 df_set_flags (DF_DEFER_INSN_RESCAN);
1203 }
1204
1205
1206 /* Process all of the deferred rescans or deletions. */
1207
1208 void
1209 df_process_deferred_rescans (void)
1210 {
1211 bool no_insn_rescan = false;
1212 bool defer_insn_rescan = false;
1213 bitmap_iterator bi;
1214 unsigned int uid;
1215
1216 if (df->changeable_flags & DF_NO_INSN_RESCAN)
1217 {
1218 df_clear_flags (DF_NO_INSN_RESCAN);
1219 no_insn_rescan = true;
1220 }
1221
1222 if (df->changeable_flags & DF_DEFER_INSN_RESCAN)
1223 {
1224 df_clear_flags (DF_DEFER_INSN_RESCAN);
1225 defer_insn_rescan = true;
1226 }
1227
1228 if (dump_file)
1229 fprintf (dump_file, "starting the processing of deferred insns\n");
1230
1231 auto_bitmap tmp (&df_bitmap_obstack);
1232 bitmap_copy (tmp, &df->insns_to_delete);
1233 EXECUTE_IF_SET_IN_BITMAP (tmp, 0, uid, bi)
1234 {
1235 struct df_insn_info *insn_info = DF_INSN_UID_SAFE_GET (uid);
1236 if (insn_info)
1237 df_insn_info_delete (uid);
1238 }
1239
1240 bitmap_copy (tmp, &df->insns_to_rescan);
1241 EXECUTE_IF_SET_IN_BITMAP (tmp, 0, uid, bi)
1242 {
1243 struct df_insn_info *insn_info = DF_INSN_UID_SAFE_GET (uid);
1244 if (insn_info)
1245 df_insn_rescan (insn_info->insn);
1246 }
1247
1248 bitmap_copy (tmp, &df->insns_to_notes_rescan);
1249 EXECUTE_IF_SET_IN_BITMAP (tmp, 0, uid, bi)
1250 {
1251 struct df_insn_info *insn_info = DF_INSN_UID_SAFE_GET (uid);
1252 if (insn_info)
1253 df_notes_rescan (insn_info->insn);
1254 }
1255
1256 if (dump_file)
1257 fprintf (dump_file, "ending the processing of deferred insns\n");
1258
1259 bitmap_clear (&df->insns_to_delete);
1260 bitmap_clear (&df->insns_to_rescan);
1261 bitmap_clear (&df->insns_to_notes_rescan);
1262
1263 if (no_insn_rescan)
1264 df_set_flags (DF_NO_INSN_RESCAN);
1265 if (defer_insn_rescan)
1266 df_set_flags (DF_DEFER_INSN_RESCAN);
1267
1268 /* If someone changed regs_ever_live during this pass, fix up the
1269 entry and exit blocks. */
1270 if (df->redo_entry_and_exit)
1271 {
1272 df_update_entry_exit_and_calls ();
1273 df->redo_entry_and_exit = false;
1274 }
1275 }
1276
1277
1278 /* Count the number of refs. Include the defs if INCLUDE_DEFS. Include
1279 the uses if INCLUDE_USES. Include the eq_uses if
1280 INCLUDE_EQ_USES. */
1281
1282 static unsigned int
1283 df_count_refs (bool include_defs, bool include_uses,
1284 bool include_eq_uses)
1285 {
1286 unsigned int regno;
1287 int size = 0;
1288 unsigned int m = df->regs_inited;
1289
1290 for (regno = 0; regno < m; regno++)
1291 {
1292 if (include_defs)
1293 size += DF_REG_DEF_COUNT (regno);
1294 if (include_uses)
1295 size += DF_REG_USE_COUNT (regno);
1296 if (include_eq_uses)
1297 size += DF_REG_EQ_USE_COUNT (regno);
1298 }
1299 return size;
1300 }
1301
1302
1303 /* Take build ref table for either the uses or defs from the reg-use
1304 or reg-def chains. This version processes the refs in reg order
1305 which is likely to be best if processing the whole function. */
1306
1307 static void
1308 df_reorganize_refs_by_reg_by_reg (struct df_ref_info *ref_info,
1309 bool include_defs,
1310 bool include_uses,
1311 bool include_eq_uses)
1312 {
1313 unsigned int m = df->regs_inited;
1314 unsigned int regno;
1315 unsigned int offset = 0;
1316 unsigned int start;
1317
1318 if (df->changeable_flags & DF_NO_HARD_REGS)
1319 {
1320 start = FIRST_PSEUDO_REGISTER;
1321 memset (ref_info->begin, 0, sizeof (int) * FIRST_PSEUDO_REGISTER);
1322 memset (ref_info->count, 0, sizeof (int) * FIRST_PSEUDO_REGISTER);
1323 }
1324 else
1325 start = 0;
1326
1327 ref_info->total_size
1328 = df_count_refs (include_defs, include_uses, include_eq_uses);
1329
1330 df_check_and_grow_ref_info (ref_info, 1);
1331
1332 for (regno = start; regno < m; regno++)
1333 {
1334 int count = 0;
1335 ref_info->begin[regno] = offset;
1336 if (include_defs)
1337 {
1338 df_ref ref = DF_REG_DEF_CHAIN (regno);
1339 while (ref)
1340 {
1341 ref_info->refs[offset] = ref;
1342 DF_REF_ID (ref) = offset++;
1343 count++;
1344 ref = DF_REF_NEXT_REG (ref);
1345 gcc_checking_assert (offset < ref_info->refs_size);
1346 }
1347 }
1348 if (include_uses)
1349 {
1350 df_ref ref = DF_REG_USE_CHAIN (regno);
1351 while (ref)
1352 {
1353 ref_info->refs[offset] = ref;
1354 DF_REF_ID (ref) = offset++;
1355 count++;
1356 ref = DF_REF_NEXT_REG (ref);
1357 gcc_checking_assert (offset < ref_info->refs_size);
1358 }
1359 }
1360 if (include_eq_uses)
1361 {
1362 df_ref ref = DF_REG_EQ_USE_CHAIN (regno);
1363 while (ref)
1364 {
1365 ref_info->refs[offset] = ref;
1366 DF_REF_ID (ref) = offset++;
1367 count++;
1368 ref = DF_REF_NEXT_REG (ref);
1369 gcc_checking_assert (offset < ref_info->refs_size);
1370 }
1371 }
1372 ref_info->count[regno] = count;
1373 }
1374
1375 /* The bitmap size is not decremented when refs are deleted. So
1376 reset it now that we have squished out all of the empty
1377 slots. */
1378 ref_info->table_size = offset;
1379 }
1380
1381
1382 /* Take build ref table for either the uses or defs from the reg-use
1383 or reg-def chains. This version processes the refs in insn order
1384 which is likely to be best if processing some segment of the
1385 function. */
1386
1387 static void
1388 df_reorganize_refs_by_reg_by_insn (struct df_ref_info *ref_info,
1389 bool include_defs,
1390 bool include_uses,
1391 bool include_eq_uses)
1392 {
1393 bitmap_iterator bi;
1394 unsigned int bb_index;
1395 unsigned int m = df->regs_inited;
1396 unsigned int offset = 0;
1397 unsigned int r;
1398 unsigned int start
1399 = (df->changeable_flags & DF_NO_HARD_REGS) ? FIRST_PSEUDO_REGISTER : 0;
1400
1401 memset (ref_info->begin, 0, sizeof (int) * df->regs_inited);
1402 memset (ref_info->count, 0, sizeof (int) * df->regs_inited);
1403
1404 ref_info->total_size = df_count_refs (include_defs, include_uses, include_eq_uses);
1405 df_check_and_grow_ref_info (ref_info, 1);
1406
1407 EXECUTE_IF_SET_IN_BITMAP (df->blocks_to_analyze, 0, bb_index, bi)
1408 {
1409 basic_block bb = BASIC_BLOCK_FOR_FN (cfun, bb_index);
1410 rtx_insn *insn;
1411 df_ref def, use;
1412
1413 if (include_defs)
1414 FOR_EACH_ARTIFICIAL_DEF (def, bb_index)
1415 {
1416 unsigned int regno = DF_REF_REGNO (def);
1417 ref_info->count[regno]++;
1418 }
1419 if (include_uses)
1420 FOR_EACH_ARTIFICIAL_USE (use, bb_index)
1421 {
1422 unsigned int regno = DF_REF_REGNO (use);
1423 ref_info->count[regno]++;
1424 }
1425
1426 FOR_BB_INSNS (bb, insn)
1427 {
1428 if (INSN_P (insn))
1429 {
1430 struct df_insn_info *insn_info = DF_INSN_INFO_GET (insn);
1431
1432 if (include_defs)
1433 FOR_EACH_INSN_INFO_DEF (def, insn_info)
1434 {
1435 unsigned int regno = DF_REF_REGNO (def);
1436 ref_info->count[regno]++;
1437 }
1438 if (include_uses)
1439 FOR_EACH_INSN_INFO_USE (use, insn_info)
1440 {
1441 unsigned int regno = DF_REF_REGNO (use);
1442 ref_info->count[regno]++;
1443 }
1444 if (include_eq_uses)
1445 FOR_EACH_INSN_INFO_EQ_USE (use, insn_info)
1446 {
1447 unsigned int regno = DF_REF_REGNO (use);
1448 ref_info->count[regno]++;
1449 }
1450 }
1451 }
1452 }
1453
1454 for (r = start; r < m; r++)
1455 {
1456 ref_info->begin[r] = offset;
1457 offset += ref_info->count[r];
1458 ref_info->count[r] = 0;
1459 }
1460
1461 EXECUTE_IF_SET_IN_BITMAP (df->blocks_to_analyze, 0, bb_index, bi)
1462 {
1463 basic_block bb = BASIC_BLOCK_FOR_FN (cfun, bb_index);
1464 rtx_insn *insn;
1465 df_ref def, use;
1466
1467 if (include_defs)
1468 FOR_EACH_ARTIFICIAL_DEF (def, bb_index)
1469 {
1470 unsigned int regno = DF_REF_REGNO (def);
1471 if (regno >= start)
1472 {
1473 unsigned int id
1474 = ref_info->begin[regno] + ref_info->count[regno]++;
1475 DF_REF_ID (def) = id;
1476 ref_info->refs[id] = def;
1477 }
1478 }
1479 if (include_uses)
1480 FOR_EACH_ARTIFICIAL_USE (use, bb_index)
1481 {
1482 unsigned int regno = DF_REF_REGNO (def);
1483 if (regno >= start)
1484 {
1485 unsigned int id
1486 = ref_info->begin[regno] + ref_info->count[regno]++;
1487 DF_REF_ID (use) = id;
1488 ref_info->refs[id] = use;
1489 }
1490 }
1491
1492 FOR_BB_INSNS (bb, insn)
1493 {
1494 if (INSN_P (insn))
1495 {
1496 struct df_insn_info *insn_info = DF_INSN_INFO_GET (insn);
1497
1498 if (include_defs)
1499 FOR_EACH_INSN_INFO_DEF (def, insn_info)
1500 {
1501 unsigned int regno = DF_REF_REGNO (def);
1502 if (regno >= start)
1503 {
1504 unsigned int id
1505 = ref_info->begin[regno] + ref_info->count[regno]++;
1506 DF_REF_ID (def) = id;
1507 ref_info->refs[id] = def;
1508 }
1509 }
1510 if (include_uses)
1511 FOR_EACH_INSN_INFO_USE (use, insn_info)
1512 {
1513 unsigned int regno = DF_REF_REGNO (use);
1514 if (regno >= start)
1515 {
1516 unsigned int id
1517 = ref_info->begin[regno] + ref_info->count[regno]++;
1518 DF_REF_ID (use) = id;
1519 ref_info->refs[id] = use;
1520 }
1521 }
1522 if (include_eq_uses)
1523 FOR_EACH_INSN_INFO_EQ_USE (use, insn_info)
1524 {
1525 unsigned int regno = DF_REF_REGNO (use);
1526 if (regno >= start)
1527 {
1528 unsigned int id
1529 = ref_info->begin[regno] + ref_info->count[regno]++;
1530 DF_REF_ID (use) = id;
1531 ref_info->refs[id] = use;
1532 }
1533 }
1534 }
1535 }
1536 }
1537
1538 /* The bitmap size is not decremented when refs are deleted. So
1539 reset it now that we have squished out all of the empty
1540 slots. */
1541
1542 ref_info->table_size = offset;
1543 }
1544
1545 /* Take build ref table for either the uses or defs from the reg-use
1546 or reg-def chains. */
1547
1548 static void
1549 df_reorganize_refs_by_reg (struct df_ref_info *ref_info,
1550 bool include_defs,
1551 bool include_uses,
1552 bool include_eq_uses)
1553 {
1554 if (df->analyze_subset)
1555 df_reorganize_refs_by_reg_by_insn (ref_info, include_defs,
1556 include_uses, include_eq_uses);
1557 else
1558 df_reorganize_refs_by_reg_by_reg (ref_info, include_defs,
1559 include_uses, include_eq_uses);
1560 }
1561
1562
1563 /* Add the refs in REF_VEC to the table in REF_INFO starting at OFFSET. */
1564 static unsigned int
1565 df_add_refs_to_table (unsigned int offset,
1566 struct df_ref_info *ref_info,
1567 df_ref ref)
1568 {
1569 for (; ref; ref = DF_REF_NEXT_LOC (ref))
1570 if (!(df->changeable_flags & DF_NO_HARD_REGS)
1571 || (DF_REF_REGNO (ref) >= FIRST_PSEUDO_REGISTER))
1572 {
1573 ref_info->refs[offset] = ref;
1574 DF_REF_ID (ref) = offset++;
1575 }
1576 return offset;
1577 }
1578
1579
1580 /* Count the number of refs in all of the insns of BB. Include the
1581 defs if INCLUDE_DEFS. Include the uses if INCLUDE_USES. Include the
1582 eq_uses if INCLUDE_EQ_USES. */
1583
1584 static unsigned int
1585 df_reorganize_refs_by_insn_bb (basic_block bb, unsigned int offset,
1586 struct df_ref_info *ref_info,
1587 bool include_defs, bool include_uses,
1588 bool include_eq_uses)
1589 {
1590 rtx_insn *insn;
1591
1592 if (include_defs)
1593 offset = df_add_refs_to_table (offset, ref_info,
1594 df_get_artificial_defs (bb->index));
1595 if (include_uses)
1596 offset = df_add_refs_to_table (offset, ref_info,
1597 df_get_artificial_uses (bb->index));
1598
1599 FOR_BB_INSNS (bb, insn)
1600 if (INSN_P (insn))
1601 {
1602 unsigned int uid = INSN_UID (insn);
1603 if (include_defs)
1604 offset = df_add_refs_to_table (offset, ref_info,
1605 DF_INSN_UID_DEFS (uid));
1606 if (include_uses)
1607 offset = df_add_refs_to_table (offset, ref_info,
1608 DF_INSN_UID_USES (uid));
1609 if (include_eq_uses)
1610 offset = df_add_refs_to_table (offset, ref_info,
1611 DF_INSN_UID_EQ_USES (uid));
1612 }
1613 return offset;
1614 }
1615
1616
1617 /* Organize the refs by insn into the table in REF_INFO. If
1618 blocks_to_analyze is defined, use that set, otherwise the entire
1619 program. Include the defs if INCLUDE_DEFS. Include the uses if
1620 INCLUDE_USES. Include the eq_uses if INCLUDE_EQ_USES. */
1621
1622 static void
1623 df_reorganize_refs_by_insn (struct df_ref_info *ref_info,
1624 bool include_defs, bool include_uses,
1625 bool include_eq_uses)
1626 {
1627 basic_block bb;
1628 unsigned int offset = 0;
1629
1630 ref_info->total_size = df_count_refs (include_defs, include_uses, include_eq_uses);
1631 df_check_and_grow_ref_info (ref_info, 1);
1632 if (df->blocks_to_analyze)
1633 {
1634 bitmap_iterator bi;
1635 unsigned int index;
1636
1637 EXECUTE_IF_SET_IN_BITMAP (df->blocks_to_analyze, 0, index, bi)
1638 {
1639 offset = df_reorganize_refs_by_insn_bb (BASIC_BLOCK_FOR_FN (cfun,
1640 index),
1641 offset, ref_info,
1642 include_defs, include_uses,
1643 include_eq_uses);
1644 }
1645
1646 ref_info->table_size = offset;
1647 }
1648 else
1649 {
1650 FOR_ALL_BB_FN (bb, cfun)
1651 offset = df_reorganize_refs_by_insn_bb (bb, offset, ref_info,
1652 include_defs, include_uses,
1653 include_eq_uses);
1654 ref_info->table_size = offset;
1655 }
1656 }
1657
1658
1659 /* If the use refs in DF are not organized, reorganize them. */
1660
1661 void
1662 df_maybe_reorganize_use_refs (enum df_ref_order order)
1663 {
1664 if (order == df->use_info.ref_order)
1665 return;
1666
1667 switch (order)
1668 {
1669 case DF_REF_ORDER_BY_REG:
1670 df_reorganize_refs_by_reg (&df->use_info, false, true, false);
1671 break;
1672
1673 case DF_REF_ORDER_BY_REG_WITH_NOTES:
1674 df_reorganize_refs_by_reg (&df->use_info, false, true, true);
1675 break;
1676
1677 case DF_REF_ORDER_BY_INSN:
1678 df_reorganize_refs_by_insn (&df->use_info, false, true, false);
1679 break;
1680
1681 case DF_REF_ORDER_BY_INSN_WITH_NOTES:
1682 df_reorganize_refs_by_insn (&df->use_info, false, true, true);
1683 break;
1684
1685 case DF_REF_ORDER_NO_TABLE:
1686 free (df->use_info.refs);
1687 df->use_info.refs = NULL;
1688 df->use_info.refs_size = 0;
1689 break;
1690
1691 case DF_REF_ORDER_UNORDERED:
1692 case DF_REF_ORDER_UNORDERED_WITH_NOTES:
1693 gcc_unreachable ();
1694 break;
1695 }
1696
1697 df->use_info.ref_order = order;
1698 }
1699
1700
1701 /* If the def refs in DF are not organized, reorganize them. */
1702
1703 void
1704 df_maybe_reorganize_def_refs (enum df_ref_order order)
1705 {
1706 if (order == df->def_info.ref_order)
1707 return;
1708
1709 switch (order)
1710 {
1711 case DF_REF_ORDER_BY_REG:
1712 df_reorganize_refs_by_reg (&df->def_info, true, false, false);
1713 break;
1714
1715 case DF_REF_ORDER_BY_INSN:
1716 df_reorganize_refs_by_insn (&df->def_info, true, false, false);
1717 break;
1718
1719 case DF_REF_ORDER_NO_TABLE:
1720 free (df->def_info.refs);
1721 df->def_info.refs = NULL;
1722 df->def_info.refs_size = 0;
1723 break;
1724
1725 case DF_REF_ORDER_BY_INSN_WITH_NOTES:
1726 case DF_REF_ORDER_BY_REG_WITH_NOTES:
1727 case DF_REF_ORDER_UNORDERED:
1728 case DF_REF_ORDER_UNORDERED_WITH_NOTES:
1729 gcc_unreachable ();
1730 break;
1731 }
1732
1733 df->def_info.ref_order = order;
1734 }
1735
1736
1737 /* Change all of the basic block references in INSN to use the insn's
1738 current basic block. This function is called from routines that move
1739 instructions from one block to another. */
1740
1741 void
1742 df_insn_change_bb (rtx_insn *insn, basic_block new_bb)
1743 {
1744 basic_block old_bb = BLOCK_FOR_INSN (insn);
1745 struct df_insn_info *insn_info;
1746 unsigned int uid = INSN_UID (insn);
1747
1748 if (old_bb == new_bb)
1749 return;
1750
1751 set_block_for_insn (insn, new_bb);
1752
1753 if (!df)
1754 return;
1755
1756 if (dump_file)
1757 fprintf (dump_file, "changing bb of uid %d\n", uid);
1758
1759 insn_info = DF_INSN_UID_SAFE_GET (uid);
1760 if (insn_info == NULL)
1761 {
1762 if (dump_file)
1763 fprintf (dump_file, " unscanned insn\n");
1764 df_insn_rescan (insn);
1765 return;
1766 }
1767
1768 if (!INSN_P (insn))
1769 return;
1770
1771 df_set_bb_dirty (new_bb);
1772 if (old_bb)
1773 {
1774 if (dump_file)
1775 fprintf (dump_file, " from %d to %d\n",
1776 old_bb->index, new_bb->index);
1777 df_set_bb_dirty (old_bb);
1778 }
1779 else
1780 if (dump_file)
1781 fprintf (dump_file, " to %d\n", new_bb->index);
1782 }
1783
1784
1785 /* Helper function for df_ref_change_reg_with_loc. */
1786
1787 static void
1788 df_ref_change_reg_with_loc_1 (struct df_reg_info *old_df,
1789 struct df_reg_info *new_df,
1790 unsigned int new_regno, rtx loc)
1791 {
1792 df_ref the_ref = old_df->reg_chain;
1793
1794 while (the_ref)
1795 {
1796 if ((!DF_REF_IS_ARTIFICIAL (the_ref))
1797 && DF_REF_LOC (the_ref)
1798 && (*DF_REF_LOC (the_ref) == loc))
1799 {
1800 df_ref next_ref = DF_REF_NEXT_REG (the_ref);
1801 df_ref prev_ref = DF_REF_PREV_REG (the_ref);
1802 df_ref *ref_ptr;
1803 struct df_insn_info *insn_info = DF_REF_INSN_INFO (the_ref);
1804
1805 DF_REF_REGNO (the_ref) = new_regno;
1806 DF_REF_REG (the_ref) = regno_reg_rtx[new_regno];
1807
1808 /* Pull the_ref out of the old regno chain. */
1809 if (prev_ref)
1810 DF_REF_NEXT_REG (prev_ref) = next_ref;
1811 else
1812 old_df->reg_chain = next_ref;
1813 if (next_ref)
1814 DF_REF_PREV_REG (next_ref) = prev_ref;
1815 old_df->n_refs--;
1816
1817 /* Put the ref into the new regno chain. */
1818 DF_REF_PREV_REG (the_ref) = NULL;
1819 DF_REF_NEXT_REG (the_ref) = new_df->reg_chain;
1820 if (new_df->reg_chain)
1821 DF_REF_PREV_REG (new_df->reg_chain) = the_ref;
1822 new_df->reg_chain = the_ref;
1823 new_df->n_refs++;
1824 if (DF_REF_BB (the_ref))
1825 df_set_bb_dirty (DF_REF_BB (the_ref));
1826
1827 /* Need to sort the record again that the ref was in because
1828 the regno is a sorting key. First, find the right
1829 record. */
1830 if (DF_REF_REG_DEF_P (the_ref))
1831 ref_ptr = &insn_info->defs;
1832 else if (DF_REF_FLAGS (the_ref) & DF_REF_IN_NOTE)
1833 ref_ptr = &insn_info->eq_uses;
1834 else
1835 ref_ptr = &insn_info->uses;
1836 if (dump_file)
1837 fprintf (dump_file, "changing reg in insn %d\n",
1838 DF_REF_INSN_UID (the_ref));
1839
1840 /* Stop if we find the current reference or where the reference
1841 needs to be. */
1842 while (*ref_ptr != the_ref && df_ref_compare (*ref_ptr, the_ref) < 0)
1843 ref_ptr = &DF_REF_NEXT_LOC (*ref_ptr);
1844 if (*ref_ptr != the_ref)
1845 {
1846 /* The reference needs to be promoted up the list. */
1847 df_ref next = DF_REF_NEXT_LOC (the_ref);
1848 DF_REF_NEXT_LOC (the_ref) = *ref_ptr;
1849 *ref_ptr = the_ref;
1850 do
1851 ref_ptr = &DF_REF_NEXT_LOC (*ref_ptr);
1852 while (*ref_ptr != the_ref);
1853 *ref_ptr = next;
1854 }
1855 else if (DF_REF_NEXT_LOC (the_ref)
1856 && df_ref_compare (the_ref, DF_REF_NEXT_LOC (the_ref)) > 0)
1857 {
1858 /* The reference needs to be demoted down the list. */
1859 *ref_ptr = DF_REF_NEXT_LOC (the_ref);
1860 do
1861 ref_ptr = &DF_REF_NEXT_LOC (*ref_ptr);
1862 while (*ref_ptr && df_ref_compare (the_ref, *ref_ptr) > 0);
1863 DF_REF_NEXT_LOC (the_ref) = *ref_ptr;
1864 *ref_ptr = the_ref;
1865 }
1866
1867 the_ref = next_ref;
1868 }
1869 else
1870 the_ref = DF_REF_NEXT_REG (the_ref);
1871 }
1872 }
1873
1874
1875 /* Change the regno of register LOC to NEW_REGNO and update the df
1876 information accordingly. Refs that do not match LOC are not changed
1877 which means that artificial refs are not changed since they have no loc.
1878 This call is to support the SET_REGNO macro. */
1879
1880 void
1881 df_ref_change_reg_with_loc (rtx loc, unsigned int new_regno)
1882 {
1883 unsigned int old_regno = REGNO (loc);
1884 if (old_regno == new_regno)
1885 return;
1886
1887 if (df)
1888 {
1889 df_grow_reg_info ();
1890
1891 df_ref_change_reg_with_loc_1 (DF_REG_DEF_GET (old_regno),
1892 DF_REG_DEF_GET (new_regno),
1893 new_regno, loc);
1894 df_ref_change_reg_with_loc_1 (DF_REG_USE_GET (old_regno),
1895 DF_REG_USE_GET (new_regno),
1896 new_regno, loc);
1897 df_ref_change_reg_with_loc_1 (DF_REG_EQ_USE_GET (old_regno),
1898 DF_REG_EQ_USE_GET (new_regno),
1899 new_regno, loc);
1900 }
1901 set_mode_and_regno (loc, GET_MODE (loc), new_regno);
1902 }
1903
1904
1905 /* Delete the mw_hardregs that point into the eq_notes. */
1906
1907 static void
1908 df_mw_hardreg_chain_delete_eq_uses (struct df_insn_info *insn_info)
1909 {
1910 struct df_mw_hardreg **mw_ptr = &insn_info->mw_hardregs;
1911 struct df_scan_problem_data *problem_data
1912 = (struct df_scan_problem_data *) df_scan->problem_data;
1913
1914 while (*mw_ptr)
1915 {
1916 df_mw_hardreg *mw = *mw_ptr;
1917 if (mw->flags & DF_REF_IN_NOTE)
1918 {
1919 *mw_ptr = DF_MWS_NEXT (mw);
1920 problem_data->mw_reg_pool->remove (mw);
1921 }
1922 else
1923 mw_ptr = &DF_MWS_NEXT (mw);
1924 }
1925 }
1926
1927
1928 /* Rescan only the REG_EQUIV/REG_EQUAL notes part of INSN. */
1929
1930 void
1931 df_notes_rescan (rtx_insn *insn)
1932 {
1933 struct df_insn_info *insn_info;
1934 unsigned int uid = INSN_UID (insn);
1935
1936 if (!df)
1937 return;
1938
1939 /* The client has disabled rescanning and plans to do it itself. */
1940 if (df->changeable_flags & DF_NO_INSN_RESCAN)
1941 return;
1942
1943 /* Do nothing if the insn hasn't been emitted yet. */
1944 if (!BLOCK_FOR_INSN (insn))
1945 return;
1946
1947 df_grow_bb_info (df_scan);
1948 df_grow_reg_info ();
1949
1950 insn_info = DF_INSN_UID_SAFE_GET (INSN_UID (insn));
1951
1952 /* The client has deferred rescanning. */
1953 if (df->changeable_flags & DF_DEFER_INSN_RESCAN)
1954 {
1955 if (!insn_info)
1956 {
1957 insn_info = df_insn_create_insn_record (insn);
1958 insn_info->defs = 0;
1959 insn_info->uses = 0;
1960 insn_info->eq_uses = 0;
1961 insn_info->mw_hardregs = 0;
1962 }
1963
1964 bitmap_clear_bit (&df->insns_to_delete, uid);
1965 /* If the insn is set to be rescanned, it does not need to also
1966 be notes rescanned. */
1967 if (!bitmap_bit_p (&df->insns_to_rescan, uid))
1968 bitmap_set_bit (&df->insns_to_notes_rescan, INSN_UID (insn));
1969 return;
1970 }
1971
1972 bitmap_clear_bit (&df->insns_to_delete, uid);
1973 bitmap_clear_bit (&df->insns_to_notes_rescan, uid);
1974
1975 if (insn_info)
1976 {
1977 basic_block bb = BLOCK_FOR_INSN (insn);
1978 rtx note;
1979 struct df_collection_rec collection_rec;
1980 unsigned int i;
1981
1982 df_mw_hardreg_chain_delete_eq_uses (insn_info);
1983 df_ref_chain_delete (insn_info->eq_uses);
1984 insn_info->eq_uses = NULL;
1985
1986 /* Process REG_EQUIV/REG_EQUAL notes */
1987 for (note = REG_NOTES (insn); note;
1988 note = XEXP (note, 1))
1989 {
1990 switch (REG_NOTE_KIND (note))
1991 {
1992 case REG_EQUIV:
1993 case REG_EQUAL:
1994 df_uses_record (&collection_rec,
1995 &XEXP (note, 0), DF_REF_REG_USE,
1996 bb, insn_info, DF_REF_IN_NOTE);
1997 default:
1998 break;
1999 }
2000 }
2001
2002 /* Find some place to put any new mw_hardregs. */
2003 df_canonize_collection_rec (&collection_rec);
2004 struct df_mw_hardreg **mw_ptr = &insn_info->mw_hardregs, *mw;
2005 FOR_EACH_VEC_ELT (collection_rec.mw_vec, i, mw)
2006 {
2007 while (*mw_ptr && df_mw_compare (*mw_ptr, mw) < 0)
2008 mw_ptr = &DF_MWS_NEXT (*mw_ptr);
2009 DF_MWS_NEXT (mw) = *mw_ptr;
2010 *mw_ptr = mw;
2011 mw_ptr = &DF_MWS_NEXT (mw);
2012 }
2013 df_refs_add_to_chains (&collection_rec, bb, insn, copy_eq_uses);
2014 }
2015 else
2016 df_insn_rescan (insn);
2017
2018 }
2019
2020 \f
2021 /*----------------------------------------------------------------------------
2022 Hard core instruction scanning code. No external interfaces here,
2023 just a lot of routines that look inside insns.
2024 ----------------------------------------------------------------------------*/
2025
2026
2027 /* Return true if the contents of two df_ref's are identical.
2028 It ignores DF_REF_MARKER. */
2029
2030 static bool
2031 df_ref_equal_p (df_ref ref1, df_ref ref2)
2032 {
2033 if (!ref2)
2034 return false;
2035
2036 if (ref1 == ref2)
2037 return true;
2038
2039 if (DF_REF_CLASS (ref1) != DF_REF_CLASS (ref2)
2040 || DF_REF_REGNO (ref1) != DF_REF_REGNO (ref2)
2041 || DF_REF_REG (ref1) != DF_REF_REG (ref2)
2042 || DF_REF_TYPE (ref1) != DF_REF_TYPE (ref2)
2043 || ((DF_REF_FLAGS (ref1) & ~(DF_REF_REG_MARKER + DF_REF_MW_HARDREG))
2044 != (DF_REF_FLAGS (ref2) & ~(DF_REF_REG_MARKER + DF_REF_MW_HARDREG)))
2045 || DF_REF_BB (ref1) != DF_REF_BB (ref2)
2046 || DF_REF_INSN_INFO (ref1) != DF_REF_INSN_INFO (ref2))
2047 return false;
2048
2049 switch (DF_REF_CLASS (ref1))
2050 {
2051 case DF_REF_ARTIFICIAL:
2052 case DF_REF_BASE:
2053 return true;
2054
2055 case DF_REF_REGULAR:
2056 return DF_REF_LOC (ref1) == DF_REF_LOC (ref2);
2057
2058 default:
2059 gcc_unreachable ();
2060 }
2061 return false;
2062 }
2063
2064
2065 /* Compare REF1 and REF2 for sorting. This is only called from places
2066 where all of the refs are of the same type, in the same insn, and
2067 have the same bb. So these fields are not checked. */
2068
2069 static int
2070 df_ref_compare (df_ref ref1, df_ref ref2)
2071 {
2072 if (DF_REF_CLASS (ref1) != DF_REF_CLASS (ref2))
2073 return (int)DF_REF_CLASS (ref1) - (int)DF_REF_CLASS (ref2);
2074
2075 if (DF_REF_REGNO (ref1) != DF_REF_REGNO (ref2))
2076 return (int)DF_REF_REGNO (ref1) - (int)DF_REF_REGNO (ref2);
2077
2078 if (DF_REF_TYPE (ref1) != DF_REF_TYPE (ref2))
2079 return (int)DF_REF_TYPE (ref1) - (int)DF_REF_TYPE (ref2);
2080
2081 if (DF_REF_REG (ref1) != DF_REF_REG (ref2))
2082 return (int)DF_REF_ORDER (ref1) - (int)DF_REF_ORDER (ref2);
2083
2084 /* Cannot look at the LOC field on artificial refs. */
2085 if (DF_REF_CLASS (ref1) != DF_REF_ARTIFICIAL
2086 && DF_REF_LOC (ref1) != DF_REF_LOC (ref2))
2087 return (int)DF_REF_ORDER (ref1) - (int)DF_REF_ORDER (ref2);
2088
2089 if (DF_REF_FLAGS (ref1) != DF_REF_FLAGS (ref2))
2090 {
2091 /* If two refs are identical except that one of them has is from
2092 a mw and one is not, we need to have the one with the mw
2093 first. */
2094 if (DF_REF_FLAGS_IS_SET (ref1, DF_REF_MW_HARDREG) ==
2095 DF_REF_FLAGS_IS_SET (ref2, DF_REF_MW_HARDREG))
2096 return DF_REF_FLAGS (ref1) - DF_REF_FLAGS (ref2);
2097 else if (DF_REF_FLAGS_IS_SET (ref1, DF_REF_MW_HARDREG))
2098 return -1;
2099 else
2100 return 1;
2101 }
2102
2103 return (int)DF_REF_ORDER (ref1) - (int)DF_REF_ORDER (ref2);
2104 }
2105
2106 /* Like df_ref_compare, but compare two df_ref* pointers R1 and R2. */
2107
2108 static int
2109 df_ref_ptr_compare (const void *r1, const void *r2)
2110 {
2111 return df_ref_compare (*(const df_ref *) r1, *(const df_ref *) r2);
2112 }
2113
2114 /* Sort and compress a set of refs. */
2115
2116 static void
2117 df_sort_and_compress_refs (vec<df_ref, va_heap> *ref_vec)
2118 {
2119 unsigned int count;
2120 unsigned int i;
2121 unsigned int dist = 0;
2122
2123 count = ref_vec->length ();
2124
2125 /* If there are 1 or 0 elements, there is nothing to do. */
2126 if (count < 2)
2127 return;
2128 else if (count == 2)
2129 {
2130 df_ref r0 = (*ref_vec)[0];
2131 df_ref r1 = (*ref_vec)[1];
2132 if (df_ref_compare (r0, r1) > 0)
2133 std::swap ((*ref_vec)[0], (*ref_vec)[1]);
2134 }
2135 else
2136 {
2137 for (i = 0; i < count - 1; i++)
2138 {
2139 df_ref r0 = (*ref_vec)[i];
2140 df_ref r1 = (*ref_vec)[i + 1];
2141 if (df_ref_compare (r0, r1) >= 0)
2142 break;
2143 }
2144 /* If the array is already strictly ordered,
2145 which is the most common case for large COUNT case
2146 (which happens for CALL INSNs),
2147 no need to sort and filter out duplicate.
2148 Simply return the count.
2149 Make sure DF_GET_ADD_REFS adds refs in the increasing order
2150 of DF_REF_COMPARE. */
2151 if (i == count - 1)
2152 return;
2153 ref_vec->qsort (df_ref_ptr_compare);
2154 }
2155
2156 for (i=0; i<count-dist; i++)
2157 {
2158 /* Find the next ref that is not equal to the current ref. */
2159 while (i + dist + 1 < count
2160 && df_ref_equal_p ((*ref_vec)[i],
2161 (*ref_vec)[i + dist + 1]))
2162 {
2163 df_free_ref ((*ref_vec)[i + dist + 1]);
2164 dist++;
2165 }
2166 /* Copy it down to the next position. */
2167 if (dist && i + dist + 1 < count)
2168 (*ref_vec)[i + 1] = (*ref_vec)[i + dist + 1];
2169 }
2170
2171 count -= dist;
2172 ref_vec->truncate (count);
2173 }
2174
2175
2176 /* Return true if the contents of two df_ref's are identical.
2177 It ignores DF_REF_MARKER. */
2178
2179 static bool
2180 df_mw_equal_p (struct df_mw_hardreg *mw1, struct df_mw_hardreg *mw2)
2181 {
2182 if (!mw2)
2183 return false;
2184 return (mw1 == mw2) ||
2185 (mw1->mw_reg == mw2->mw_reg
2186 && mw1->type == mw2->type
2187 && mw1->flags == mw2->flags
2188 && mw1->start_regno == mw2->start_regno
2189 && mw1->end_regno == mw2->end_regno);
2190 }
2191
2192
2193 /* Compare MW1 and MW2 for sorting. */
2194
2195 static int
2196 df_mw_compare (const df_mw_hardreg *mw1, const df_mw_hardreg *mw2)
2197 {
2198 if (mw1->type != mw2->type)
2199 return mw1->type - mw2->type;
2200
2201 if (mw1->flags != mw2->flags)
2202 return mw1->flags - mw2->flags;
2203
2204 if (mw1->start_regno != mw2->start_regno)
2205 return mw1->start_regno - mw2->start_regno;
2206
2207 if (mw1->end_regno != mw2->end_regno)
2208 return mw1->end_regno - mw2->end_regno;
2209
2210 if (mw1->mw_reg != mw2->mw_reg)
2211 return mw1->mw_order - mw2->mw_order;
2212
2213 return 0;
2214 }
2215
2216 /* Like df_mw_compare, but compare two df_mw_hardreg** pointers R1 and R2. */
2217
2218 static int
2219 df_mw_ptr_compare (const void *m1, const void *m2)
2220 {
2221 return df_mw_compare (*(const df_mw_hardreg *const *) m1,
2222 *(const df_mw_hardreg *const *) m2);
2223 }
2224
2225 /* Sort and compress a set of refs. */
2226
2227 static void
2228 df_sort_and_compress_mws (vec<df_mw_hardreg *, va_heap> *mw_vec)
2229 {
2230 unsigned int count;
2231 struct df_scan_problem_data *problem_data
2232 = (struct df_scan_problem_data *) df_scan->problem_data;
2233 unsigned int i;
2234 unsigned int dist = 0;
2235
2236 count = mw_vec->length ();
2237 if (count < 2)
2238 return;
2239 else if (count == 2)
2240 {
2241 struct df_mw_hardreg *m0 = (*mw_vec)[0];
2242 struct df_mw_hardreg *m1 = (*mw_vec)[1];
2243 if (df_mw_compare (m0, m1) > 0)
2244 {
2245 struct df_mw_hardreg *tmp = (*mw_vec)[0];
2246 (*mw_vec)[0] = (*mw_vec)[1];
2247 (*mw_vec)[1] = tmp;
2248 }
2249 }
2250 else
2251 mw_vec->qsort (df_mw_ptr_compare);
2252
2253 for (i=0; i<count-dist; i++)
2254 {
2255 /* Find the next ref that is not equal to the current ref. */
2256 while (i + dist + 1 < count
2257 && df_mw_equal_p ((*mw_vec)[i], (*mw_vec)[i + dist + 1]))
2258 {
2259 problem_data->mw_reg_pool->remove ((*mw_vec)[i + dist + 1]);
2260 dist++;
2261 }
2262 /* Copy it down to the next position. */
2263 if (dist && i + dist + 1 < count)
2264 (*mw_vec)[i + 1] = (*mw_vec)[i + dist + 1];
2265 }
2266
2267 count -= dist;
2268 mw_vec->truncate (count);
2269 }
2270
2271
2272 /* Sort and remove duplicates from the COLLECTION_REC. */
2273
2274 static void
2275 df_canonize_collection_rec (struct df_collection_rec *collection_rec)
2276 {
2277 df_sort_and_compress_refs (&collection_rec->def_vec);
2278 df_sort_and_compress_refs (&collection_rec->use_vec);
2279 df_sort_and_compress_refs (&collection_rec->eq_use_vec);
2280 df_sort_and_compress_mws (&collection_rec->mw_vec);
2281 }
2282
2283
2284 /* Add the new df_ref to appropriate reg_info/ref_info chains. */
2285
2286 static void
2287 df_install_ref (df_ref this_ref,
2288 struct df_reg_info *reg_info,
2289 struct df_ref_info *ref_info,
2290 bool add_to_table)
2291 {
2292 unsigned int regno = DF_REF_REGNO (this_ref);
2293 /* Add the ref to the reg_{def,use,eq_use} chain. */
2294 df_ref head = reg_info->reg_chain;
2295
2296 reg_info->reg_chain = this_ref;
2297 reg_info->n_refs++;
2298
2299 if (DF_REF_FLAGS_IS_SET (this_ref, DF_HARD_REG_LIVE))
2300 {
2301 gcc_assert (regno < FIRST_PSEUDO_REGISTER);
2302 df->hard_regs_live_count[regno]++;
2303 }
2304
2305 gcc_checking_assert (DF_REF_NEXT_REG (this_ref) == NULL
2306 && DF_REF_PREV_REG (this_ref) == NULL);
2307
2308 DF_REF_NEXT_REG (this_ref) = head;
2309
2310 /* We cannot actually link to the head of the chain. */
2311 DF_REF_PREV_REG (this_ref) = NULL;
2312
2313 if (head)
2314 DF_REF_PREV_REG (head) = this_ref;
2315
2316 if (add_to_table)
2317 {
2318 gcc_assert (ref_info->ref_order != DF_REF_ORDER_NO_TABLE);
2319 df_check_and_grow_ref_info (ref_info, 1);
2320 DF_REF_ID (this_ref) = ref_info->table_size;
2321 /* Add the ref to the big array of defs. */
2322 ref_info->refs[ref_info->table_size] = this_ref;
2323 ref_info->table_size++;
2324 }
2325 else
2326 DF_REF_ID (this_ref) = -1;
2327
2328 ref_info->total_size++;
2329 }
2330
2331
2332 /* This function takes one of the groups of refs (defs, uses or
2333 eq_uses) and installs the entire group into the insn. It also adds
2334 each of these refs into the appropriate chains. */
2335
2336 static df_ref
2337 df_install_refs (basic_block bb,
2338 const vec<df_ref, va_heap> *old_vec,
2339 struct df_reg_info **reg_info,
2340 struct df_ref_info *ref_info,
2341 bool is_notes)
2342 {
2343 unsigned int count = old_vec->length ();
2344 if (count)
2345 {
2346 bool add_to_table;
2347 df_ref this_ref;
2348 unsigned int ix;
2349
2350 switch (ref_info->ref_order)
2351 {
2352 case DF_REF_ORDER_UNORDERED_WITH_NOTES:
2353 case DF_REF_ORDER_BY_REG_WITH_NOTES:
2354 case DF_REF_ORDER_BY_INSN_WITH_NOTES:
2355 ref_info->ref_order = DF_REF_ORDER_UNORDERED_WITH_NOTES;
2356 add_to_table = true;
2357 break;
2358 case DF_REF_ORDER_UNORDERED:
2359 case DF_REF_ORDER_BY_REG:
2360 case DF_REF_ORDER_BY_INSN:
2361 ref_info->ref_order = DF_REF_ORDER_UNORDERED;
2362 add_to_table = !is_notes;
2363 break;
2364 default:
2365 add_to_table = false;
2366 break;
2367 }
2368
2369 /* Do not add if ref is not in the right blocks. */
2370 if (add_to_table && df->analyze_subset)
2371 add_to_table = bitmap_bit_p (df->blocks_to_analyze, bb->index);
2372
2373 FOR_EACH_VEC_ELT (*old_vec, ix, this_ref)
2374 {
2375 DF_REF_NEXT_LOC (this_ref) = (ix + 1 < old_vec->length ()
2376 ? (*old_vec)[ix + 1]
2377 : NULL);
2378 df_install_ref (this_ref, reg_info[DF_REF_REGNO (this_ref)],
2379 ref_info, add_to_table);
2380 }
2381 return (*old_vec)[0];
2382 }
2383 else
2384 return 0;
2385 }
2386
2387
2388 /* This function takes the mws installs the entire group into the
2389 insn. */
2390
2391 static struct df_mw_hardreg *
2392 df_install_mws (const vec<df_mw_hardreg *, va_heap> *old_vec)
2393 {
2394 unsigned int count = old_vec->length ();
2395 if (count)
2396 {
2397 for (unsigned int i = 0; i < count - 1; i++)
2398 DF_MWS_NEXT ((*old_vec)[i]) = (*old_vec)[i + 1];
2399 DF_MWS_NEXT ((*old_vec)[count - 1]) = 0;
2400 return (*old_vec)[0];
2401 }
2402 else
2403 return 0;
2404 }
2405
2406
2407 /* Add a chain of df_refs to appropriate ref chain/reg_info/ref_info
2408 chains and update other necessary information. */
2409
2410 static void
2411 df_refs_add_to_chains (struct df_collection_rec *collection_rec,
2412 basic_block bb, rtx_insn *insn, unsigned int flags)
2413 {
2414 if (insn)
2415 {
2416 struct df_insn_info *insn_rec = DF_INSN_INFO_GET (insn);
2417 /* If there is a vector in the collection rec, add it to the
2418 insn. A null rec is a signal that the caller will handle the
2419 chain specially. */
2420 if (flags & copy_defs)
2421 {
2422 gcc_checking_assert (!insn_rec->defs);
2423 insn_rec->defs
2424 = df_install_refs (bb, &collection_rec->def_vec,
2425 df->def_regs,
2426 &df->def_info, false);
2427 }
2428 if (flags & copy_uses)
2429 {
2430 gcc_checking_assert (!insn_rec->uses);
2431 insn_rec->uses
2432 = df_install_refs (bb, &collection_rec->use_vec,
2433 df->use_regs,
2434 &df->use_info, false);
2435 }
2436 if (flags & copy_eq_uses)
2437 {
2438 gcc_checking_assert (!insn_rec->eq_uses);
2439 insn_rec->eq_uses
2440 = df_install_refs (bb, &collection_rec->eq_use_vec,
2441 df->eq_use_regs,
2442 &df->use_info, true);
2443 }
2444 if (flags & copy_mw)
2445 {
2446 gcc_checking_assert (!insn_rec->mw_hardregs);
2447 insn_rec->mw_hardregs
2448 = df_install_mws (&collection_rec->mw_vec);
2449 }
2450 }
2451 else
2452 {
2453 struct df_scan_bb_info *bb_info = df_scan_get_bb_info (bb->index);
2454
2455 gcc_checking_assert (!bb_info->artificial_defs);
2456 bb_info->artificial_defs
2457 = df_install_refs (bb, &collection_rec->def_vec,
2458 df->def_regs,
2459 &df->def_info, false);
2460 gcc_checking_assert (!bb_info->artificial_uses);
2461 bb_info->artificial_uses
2462 = df_install_refs (bb, &collection_rec->use_vec,
2463 df->use_regs,
2464 &df->use_info, false);
2465 }
2466 }
2467
2468
2469 /* Allocate a ref and initialize its fields. */
2470
2471 static df_ref
2472 df_ref_create_structure (enum df_ref_class cl,
2473 struct df_collection_rec *collection_rec,
2474 rtx reg, rtx *loc,
2475 basic_block bb, struct df_insn_info *info,
2476 enum df_ref_type ref_type,
2477 int ref_flags)
2478 {
2479 df_ref this_ref = NULL;
2480 unsigned int regno = REGNO (GET_CODE (reg) == SUBREG ? SUBREG_REG (reg) : reg);
2481 struct df_scan_problem_data *problem_data
2482 = (struct df_scan_problem_data *) df_scan->problem_data;
2483
2484 switch (cl)
2485 {
2486 case DF_REF_BASE:
2487 this_ref = (df_ref) (problem_data->ref_base_pool->allocate ());
2488 gcc_checking_assert (loc == NULL);
2489 break;
2490
2491 case DF_REF_ARTIFICIAL:
2492 this_ref = (df_ref) (problem_data->ref_artificial_pool->allocate ());
2493 this_ref->artificial_ref.bb = bb;
2494 gcc_checking_assert (loc == NULL);
2495 break;
2496
2497 case DF_REF_REGULAR:
2498 this_ref = (df_ref) (problem_data->ref_regular_pool->allocate ());
2499 this_ref->regular_ref.loc = loc;
2500 gcc_checking_assert (loc);
2501 break;
2502 }
2503
2504 DF_REF_CLASS (this_ref) = cl;
2505 DF_REF_ID (this_ref) = -1;
2506 DF_REF_REG (this_ref) = reg;
2507 DF_REF_REGNO (this_ref) = regno;
2508 DF_REF_TYPE (this_ref) = ref_type;
2509 DF_REF_INSN_INFO (this_ref) = info;
2510 DF_REF_CHAIN (this_ref) = NULL;
2511 DF_REF_FLAGS (this_ref) = ref_flags;
2512 DF_REF_NEXT_REG (this_ref) = NULL;
2513 DF_REF_PREV_REG (this_ref) = NULL;
2514 DF_REF_ORDER (this_ref) = df->ref_order++;
2515
2516 /* We need to clear this bit because fwprop, and in the future
2517 possibly other optimizations sometimes create new refs using ond
2518 refs as the model. */
2519 DF_REF_FLAGS_CLEAR (this_ref, DF_HARD_REG_LIVE);
2520
2521 /* See if this ref needs to have DF_HARD_REG_LIVE bit set. */
2522 if (regno < FIRST_PSEUDO_REGISTER
2523 && !DF_REF_IS_ARTIFICIAL (this_ref)
2524 && !DEBUG_INSN_P (DF_REF_INSN (this_ref)))
2525 {
2526 if (DF_REF_REG_DEF_P (this_ref))
2527 {
2528 if (!DF_REF_FLAGS_IS_SET (this_ref, DF_REF_MAY_CLOBBER))
2529 DF_REF_FLAGS_SET (this_ref, DF_HARD_REG_LIVE);
2530 }
2531 else if (!(TEST_HARD_REG_BIT (elim_reg_set, regno)
2532 && (regno == FRAME_POINTER_REGNUM
2533 || regno == ARG_POINTER_REGNUM)))
2534 DF_REF_FLAGS_SET (this_ref, DF_HARD_REG_LIVE);
2535 }
2536
2537 if (collection_rec)
2538 {
2539 if (DF_REF_REG_DEF_P (this_ref))
2540 collection_rec->def_vec.safe_push (this_ref);
2541 else if (DF_REF_FLAGS (this_ref) & DF_REF_IN_NOTE)
2542 collection_rec->eq_use_vec.safe_push (this_ref);
2543 else
2544 collection_rec->use_vec.safe_push (this_ref);
2545 }
2546 else
2547 df_install_ref_incremental (this_ref);
2548
2549 return this_ref;
2550 }
2551
2552
2553 /* Create new references of type DF_REF_TYPE for each part of register REG
2554 at address LOC within INSN of BB. */
2555
2556
2557 static void
2558 df_ref_record (enum df_ref_class cl,
2559 struct df_collection_rec *collection_rec,
2560 rtx reg, rtx *loc,
2561 basic_block bb, struct df_insn_info *insn_info,
2562 enum df_ref_type ref_type,
2563 int ref_flags)
2564 {
2565 unsigned int regno;
2566
2567 gcc_checking_assert (REG_P (reg) || GET_CODE (reg) == SUBREG);
2568
2569 regno = REGNO (GET_CODE (reg) == SUBREG ? SUBREG_REG (reg) : reg);
2570 if (regno < FIRST_PSEUDO_REGISTER)
2571 {
2572 struct df_mw_hardreg *hardreg = NULL;
2573 struct df_scan_problem_data *problem_data
2574 = (struct df_scan_problem_data *) df_scan->problem_data;
2575 unsigned int i;
2576 unsigned int endregno;
2577 df_ref ref;
2578
2579 if (GET_CODE (reg) == SUBREG)
2580 {
2581 regno += subreg_regno_offset (regno, GET_MODE (SUBREG_REG (reg)),
2582 SUBREG_BYTE (reg), GET_MODE (reg));
2583 endregno = regno + subreg_nregs (reg);
2584 }
2585 else
2586 endregno = END_REGNO (reg);
2587
2588 /* If this is a multiword hardreg, we create some extra
2589 datastructures that will enable us to easily build REG_DEAD
2590 and REG_UNUSED notes. */
2591 if (collection_rec
2592 && (endregno != regno + 1) && insn_info)
2593 {
2594 /* Sets to a subreg of a multiword register are partial.
2595 Sets to a non-subreg of a multiword register are not. */
2596 if (GET_CODE (reg) == SUBREG)
2597 ref_flags |= DF_REF_PARTIAL;
2598 ref_flags |= DF_REF_MW_HARDREG;
2599
2600 hardreg = problem_data->mw_reg_pool->allocate ();
2601 hardreg->type = ref_type;
2602 hardreg->flags = ref_flags;
2603 hardreg->mw_reg = reg;
2604 hardreg->start_regno = regno;
2605 hardreg->end_regno = endregno - 1;
2606 hardreg->mw_order = df->ref_order++;
2607 collection_rec->mw_vec.safe_push (hardreg);
2608 }
2609
2610 for (i = regno; i < endregno; i++)
2611 {
2612 ref = df_ref_create_structure (cl, collection_rec, regno_reg_rtx[i], loc,
2613 bb, insn_info, ref_type, ref_flags);
2614
2615 gcc_assert (ORIGINAL_REGNO (DF_REF_REG (ref)) == i);
2616 }
2617 }
2618 else
2619 {
2620 df_ref_create_structure (cl, collection_rec, reg, loc, bb, insn_info,
2621 ref_type, ref_flags);
2622 }
2623 }
2624
2625
2626 /* A set to a non-paradoxical SUBREG for which the number of word_mode units
2627 covered by the outer mode is smaller than that covered by the inner mode,
2628 is a read-modify-write operation.
2629 This function returns true iff the SUBREG X is such a SUBREG. */
2630
2631 bool
2632 df_read_modify_subreg_p (rtx x)
2633 {
2634 unsigned int isize, osize;
2635 if (GET_CODE (x) != SUBREG)
2636 return false;
2637 isize = GET_MODE_SIZE (GET_MODE (SUBREG_REG (x)));
2638 osize = GET_MODE_SIZE (GET_MODE (x));
2639 return isize > osize
2640 && isize > REGMODE_NATURAL_SIZE (GET_MODE (SUBREG_REG (x)));
2641 }
2642
2643
2644 /* Process all the registers defined in the rtx pointed by LOC.
2645 Autoincrement/decrement definitions will be picked up by df_uses_record.
2646 Any change here has to be matched in df_find_hard_reg_defs_1. */
2647
2648 static void
2649 df_def_record_1 (struct df_collection_rec *collection_rec,
2650 rtx *loc, basic_block bb, struct df_insn_info *insn_info,
2651 int flags)
2652 {
2653 rtx dst = *loc;
2654
2655 /* It is legal to have a set destination be a parallel. */
2656 if (GET_CODE (dst) == PARALLEL)
2657 {
2658 int i;
2659 for (i = XVECLEN (dst, 0) - 1; i >= 0; i--)
2660 {
2661 rtx temp = XVECEXP (dst, 0, i);
2662 gcc_assert (GET_CODE (temp) == EXPR_LIST);
2663 df_def_record_1 (collection_rec, &XEXP (temp, 0),
2664 bb, insn_info, flags);
2665 }
2666 return;
2667 }
2668
2669 if (GET_CODE (dst) == STRICT_LOW_PART)
2670 {
2671 flags |= DF_REF_READ_WRITE | DF_REF_PARTIAL | DF_REF_STRICT_LOW_PART;
2672
2673 loc = &XEXP (dst, 0);
2674 dst = *loc;
2675 }
2676
2677 if (GET_CODE (dst) == ZERO_EXTRACT)
2678 {
2679 flags |= DF_REF_READ_WRITE | DF_REF_PARTIAL | DF_REF_ZERO_EXTRACT;
2680
2681 loc = &XEXP (dst, 0);
2682 dst = *loc;
2683 }
2684
2685 /* At this point if we do not have a reg or a subreg, just return. */
2686 if (REG_P (dst))
2687 {
2688 df_ref_record (DF_REF_REGULAR, collection_rec,
2689 dst, loc, bb, insn_info, DF_REF_REG_DEF, flags);
2690
2691 /* We want to keep sp alive everywhere - by making all
2692 writes to sp also use of sp. */
2693 if (REGNO (dst) == STACK_POINTER_REGNUM)
2694 df_ref_record (DF_REF_BASE, collection_rec,
2695 dst, NULL, bb, insn_info, DF_REF_REG_USE, flags);
2696 }
2697 else if (GET_CODE (dst) == SUBREG && REG_P (SUBREG_REG (dst)))
2698 {
2699 if (df_read_modify_subreg_p (dst))
2700 flags |= DF_REF_READ_WRITE | DF_REF_PARTIAL;
2701
2702 flags |= DF_REF_SUBREG;
2703
2704 df_ref_record (DF_REF_REGULAR, collection_rec,
2705 dst, loc, bb, insn_info, DF_REF_REG_DEF, flags);
2706 }
2707 }
2708
2709
2710 /* Process all the registers defined in the pattern rtx, X. Any change
2711 here has to be matched in df_find_hard_reg_defs. */
2712
2713 static void
2714 df_defs_record (struct df_collection_rec *collection_rec,
2715 rtx x, basic_block bb, struct df_insn_info *insn_info,
2716 int flags)
2717 {
2718 RTX_CODE code = GET_CODE (x);
2719 int i;
2720
2721 switch (code)
2722 {
2723 case SET:
2724 df_def_record_1 (collection_rec, &SET_DEST (x), bb, insn_info, flags);
2725 break;
2726
2727 case CLOBBER:
2728 flags |= DF_REF_MUST_CLOBBER;
2729 df_def_record_1 (collection_rec, &XEXP (x, 0), bb, insn_info, flags);
2730 break;
2731
2732 case COND_EXEC:
2733 df_defs_record (collection_rec, COND_EXEC_CODE (x),
2734 bb, insn_info, DF_REF_CONDITIONAL);
2735 break;
2736
2737 case PARALLEL:
2738 for (i = 0; i < XVECLEN (x, 0); i++)
2739 df_defs_record (collection_rec, XVECEXP (x, 0, i),
2740 bb, insn_info, flags);
2741 break;
2742 default:
2743 /* No DEFs to record in other cases */
2744 break;
2745 }
2746 }
2747
2748 /* Set bits in *DEFS for hard registers found in the rtx DST, which is the
2749 destination of a set or clobber. This has to match the logic in
2750 df_defs_record_1. */
2751
2752 static void
2753 df_find_hard_reg_defs_1 (rtx dst, HARD_REG_SET *defs)
2754 {
2755 /* It is legal to have a set destination be a parallel. */
2756 if (GET_CODE (dst) == PARALLEL)
2757 {
2758 int i;
2759 for (i = XVECLEN (dst, 0) - 1; i >= 0; i--)
2760 {
2761 rtx temp = XVECEXP (dst, 0, i);
2762 gcc_assert (GET_CODE (temp) == EXPR_LIST);
2763 df_find_hard_reg_defs_1 (XEXP (temp, 0), defs);
2764 }
2765 return;
2766 }
2767
2768 if (GET_CODE (dst) == STRICT_LOW_PART)
2769 dst = XEXP (dst, 0);
2770
2771 if (GET_CODE (dst) == ZERO_EXTRACT)
2772 dst = XEXP (dst, 0);
2773
2774 /* At this point if we do not have a reg or a subreg, just return. */
2775 if (REG_P (dst) && HARD_REGISTER_P (dst))
2776 SET_HARD_REG_BIT (*defs, REGNO (dst));
2777 else if (GET_CODE (dst) == SUBREG
2778 && REG_P (SUBREG_REG (dst)) && HARD_REGISTER_P (dst))
2779 SET_HARD_REG_BIT (*defs, REGNO (SUBREG_REG (dst)));
2780 }
2781
2782 /* Set bits in *DEFS for hard registers defined in the pattern X. This
2783 has to match the logic in df_defs_record. */
2784
2785 static void
2786 df_find_hard_reg_defs (rtx x, HARD_REG_SET *defs)
2787 {
2788 RTX_CODE code = GET_CODE (x);
2789 int i;
2790
2791 switch (code)
2792 {
2793 case SET:
2794 df_find_hard_reg_defs_1 (SET_DEST (x), defs);
2795 break;
2796
2797 case CLOBBER:
2798 df_find_hard_reg_defs_1 (XEXP (x, 0), defs);
2799 break;
2800
2801 case COND_EXEC:
2802 df_find_hard_reg_defs (COND_EXEC_CODE (x), defs);
2803 break;
2804
2805 case PARALLEL:
2806 for (i = 0; i < XVECLEN (x, 0); i++)
2807 df_find_hard_reg_defs (XVECEXP (x, 0, i), defs);
2808 break;
2809 default:
2810 /* No DEFs to record in other cases */
2811 break;
2812 }
2813 }
2814
2815
2816 /* Process all the registers used in the rtx at address LOC. */
2817
2818 static void
2819 df_uses_record (struct df_collection_rec *collection_rec,
2820 rtx *loc, enum df_ref_type ref_type,
2821 basic_block bb, struct df_insn_info *insn_info,
2822 int flags)
2823 {
2824 RTX_CODE code;
2825 rtx x;
2826
2827 retry:
2828 x = *loc;
2829 if (!x)
2830 return;
2831 code = GET_CODE (x);
2832 switch (code)
2833 {
2834 case LABEL_REF:
2835 case SYMBOL_REF:
2836 case CONST:
2837 CASE_CONST_ANY:
2838 case PC:
2839 case CC0:
2840 case ADDR_VEC:
2841 case ADDR_DIFF_VEC:
2842 return;
2843
2844 case CLOBBER:
2845 /* If we are clobbering a MEM, mark any registers inside the address
2846 as being used. */
2847 if (MEM_P (XEXP (x, 0)))
2848 df_uses_record (collection_rec,
2849 &XEXP (XEXP (x, 0), 0),
2850 DF_REF_REG_MEM_STORE,
2851 bb, insn_info,
2852 flags);
2853
2854 /* If we're clobbering a REG then we have a def so ignore. */
2855 return;
2856
2857 case MEM:
2858 df_uses_record (collection_rec,
2859 &XEXP (x, 0), DF_REF_REG_MEM_LOAD,
2860 bb, insn_info, flags & DF_REF_IN_NOTE);
2861 return;
2862
2863 case SUBREG:
2864 /* While we're here, optimize this case. */
2865 flags |= DF_REF_PARTIAL;
2866 /* In case the SUBREG is not of a REG, do not optimize. */
2867 if (!REG_P (SUBREG_REG (x)))
2868 {
2869 loc = &SUBREG_REG (x);
2870 df_uses_record (collection_rec, loc, ref_type, bb, insn_info, flags);
2871 return;
2872 }
2873 /* Fall through */
2874
2875 case REG:
2876 df_ref_record (DF_REF_REGULAR, collection_rec,
2877 x, loc, bb, insn_info,
2878 ref_type, flags);
2879 return;
2880
2881 case SIGN_EXTRACT:
2882 case ZERO_EXTRACT:
2883 {
2884 df_uses_record (collection_rec,
2885 &XEXP (x, 1), ref_type, bb, insn_info, flags);
2886 df_uses_record (collection_rec,
2887 &XEXP (x, 2), ref_type, bb, insn_info, flags);
2888
2889 /* If the parameters to the zero or sign extract are
2890 constants, strip them off and recurse, otherwise there is
2891 no information that we can gain from this operation. */
2892 if (code == ZERO_EXTRACT)
2893 flags |= DF_REF_ZERO_EXTRACT;
2894 else
2895 flags |= DF_REF_SIGN_EXTRACT;
2896
2897 df_uses_record (collection_rec,
2898 &XEXP (x, 0), ref_type, bb, insn_info, flags);
2899 return;
2900 }
2901 break;
2902
2903 case SET:
2904 {
2905 rtx dst = SET_DEST (x);
2906 gcc_assert (!(flags & DF_REF_IN_NOTE));
2907 df_uses_record (collection_rec,
2908 &SET_SRC (x), DF_REF_REG_USE, bb, insn_info, flags);
2909
2910 switch (GET_CODE (dst))
2911 {
2912 case SUBREG:
2913 if (df_read_modify_subreg_p (dst))
2914 {
2915 df_uses_record (collection_rec, &SUBREG_REG (dst),
2916 DF_REF_REG_USE, bb, insn_info,
2917 flags | DF_REF_READ_WRITE | DF_REF_SUBREG);
2918 break;
2919 }
2920 /* Fall through. */
2921 case REG:
2922 case PARALLEL:
2923 case SCRATCH:
2924 case PC:
2925 case CC0:
2926 break;
2927 case MEM:
2928 df_uses_record (collection_rec, &XEXP (dst, 0),
2929 DF_REF_REG_MEM_STORE, bb, insn_info, flags);
2930 break;
2931 case STRICT_LOW_PART:
2932 {
2933 rtx *temp = &XEXP (dst, 0);
2934 /* A strict_low_part uses the whole REG and not just the
2935 SUBREG. */
2936 dst = XEXP (dst, 0);
2937 df_uses_record (collection_rec,
2938 (GET_CODE (dst) == SUBREG) ? &SUBREG_REG (dst) : temp,
2939 DF_REF_REG_USE, bb, insn_info,
2940 DF_REF_READ_WRITE | DF_REF_STRICT_LOW_PART);
2941 }
2942 break;
2943 case ZERO_EXTRACT:
2944 {
2945 df_uses_record (collection_rec, &XEXP (dst, 1),
2946 DF_REF_REG_USE, bb, insn_info, flags);
2947 df_uses_record (collection_rec, &XEXP (dst, 2),
2948 DF_REF_REG_USE, bb, insn_info, flags);
2949 if (GET_CODE (XEXP (dst,0)) == MEM)
2950 df_uses_record (collection_rec, &XEXP (dst, 0),
2951 DF_REF_REG_USE, bb, insn_info,
2952 flags);
2953 else
2954 df_uses_record (collection_rec, &XEXP (dst, 0),
2955 DF_REF_REG_USE, bb, insn_info,
2956 DF_REF_READ_WRITE | DF_REF_ZERO_EXTRACT);
2957 }
2958 break;
2959
2960 default:
2961 gcc_unreachable ();
2962 }
2963 return;
2964 }
2965
2966 case RETURN:
2967 case SIMPLE_RETURN:
2968 break;
2969
2970 case ASM_OPERANDS:
2971 case UNSPEC_VOLATILE:
2972 case TRAP_IF:
2973 case ASM_INPUT:
2974 {
2975 /* Traditional and volatile asm instructions must be
2976 considered to use and clobber all hard registers, all
2977 pseudo-registers and all of memory. So must TRAP_IF and
2978 UNSPEC_VOLATILE operations.
2979
2980 Consider for instance a volatile asm that changes the fpu
2981 rounding mode. An insn should not be moved across this
2982 even if it only uses pseudo-regs because it might give an
2983 incorrectly rounded result.
2984
2985 However, flow.c's liveness computation did *not* do this,
2986 giving the reasoning as " ?!? Unfortunately, marking all
2987 hard registers as live causes massive problems for the
2988 register allocator and marking all pseudos as live creates
2989 mountains of uninitialized variable warnings."
2990
2991 In order to maintain the status quo with regard to liveness
2992 and uses, we do what flow.c did and just mark any regs we
2993 can find in ASM_OPERANDS as used. In global asm insns are
2994 scanned and regs_asm_clobbered is filled out.
2995
2996 For all ASM_OPERANDS, we must traverse the vector of input
2997 operands. We can not just fall through here since then we
2998 would be confused by the ASM_INPUT rtx inside ASM_OPERANDS,
2999 which do not indicate traditional asms unlike their normal
3000 usage. */
3001 if (code == ASM_OPERANDS)
3002 {
3003 int j;
3004
3005 for (j = 0; j < ASM_OPERANDS_INPUT_LENGTH (x); j++)
3006 df_uses_record (collection_rec, &ASM_OPERANDS_INPUT (x, j),
3007 DF_REF_REG_USE, bb, insn_info, flags);
3008 return;
3009 }
3010 break;
3011 }
3012
3013 case VAR_LOCATION:
3014 df_uses_record (collection_rec,
3015 &PAT_VAR_LOCATION_LOC (x),
3016 DF_REF_REG_USE, bb, insn_info, flags);
3017 return;
3018
3019 case PRE_DEC:
3020 case POST_DEC:
3021 case PRE_INC:
3022 case POST_INC:
3023 case PRE_MODIFY:
3024 case POST_MODIFY:
3025 gcc_assert (!DEBUG_INSN_P (insn_info->insn));
3026 /* Catch the def of the register being modified. */
3027 df_ref_record (DF_REF_REGULAR, collection_rec, XEXP (x, 0), &XEXP (x, 0),
3028 bb, insn_info,
3029 DF_REF_REG_DEF,
3030 flags | DF_REF_READ_WRITE | DF_REF_PRE_POST_MODIFY);
3031
3032 /* ... Fall through to handle uses ... */
3033
3034 default:
3035 break;
3036 }
3037
3038 /* Recursively scan the operands of this expression. */
3039 {
3040 const char *fmt = GET_RTX_FORMAT (code);
3041 int i;
3042
3043 for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
3044 {
3045 if (fmt[i] == 'e')
3046 {
3047 /* Tail recursive case: save a function call level. */
3048 if (i == 0)
3049 {
3050 loc = &XEXP (x, 0);
3051 goto retry;
3052 }
3053 df_uses_record (collection_rec, &XEXP (x, i), ref_type,
3054 bb, insn_info, flags);
3055 }
3056 else if (fmt[i] == 'E')
3057 {
3058 int j;
3059 for (j = 0; j < XVECLEN (x, i); j++)
3060 df_uses_record (collection_rec,
3061 &XVECEXP (x, i, j), ref_type,
3062 bb, insn_info, flags);
3063 }
3064 }
3065 }
3066
3067 return;
3068 }
3069
3070
3071 /* For all DF_REF_CONDITIONAL defs, add a corresponding uses. */
3072
3073 static void
3074 df_get_conditional_uses (struct df_collection_rec *collection_rec)
3075 {
3076 unsigned int ix;
3077 df_ref ref;
3078
3079 FOR_EACH_VEC_ELT (collection_rec->def_vec, ix, ref)
3080 {
3081 if (DF_REF_FLAGS_IS_SET (ref, DF_REF_CONDITIONAL))
3082 {
3083 df_ref use;
3084
3085 use = df_ref_create_structure (DF_REF_CLASS (ref), collection_rec, DF_REF_REG (ref),
3086 DF_REF_LOC (ref), DF_REF_BB (ref),
3087 DF_REF_INSN_INFO (ref), DF_REF_REG_USE,
3088 DF_REF_FLAGS (ref) & ~DF_REF_CONDITIONAL);
3089 DF_REF_REGNO (use) = DF_REF_REGNO (ref);
3090 }
3091 }
3092 }
3093
3094
3095 /* Get call's extra defs and uses (track caller-saved registers). */
3096
3097 static void
3098 df_get_call_refs (struct df_collection_rec *collection_rec,
3099 basic_block bb,
3100 struct df_insn_info *insn_info,
3101 int flags)
3102 {
3103 rtx note;
3104 bool is_sibling_call;
3105 unsigned int i;
3106 HARD_REG_SET defs_generated;
3107 HARD_REG_SET fn_reg_set_usage;
3108
3109 CLEAR_HARD_REG_SET (defs_generated);
3110 df_find_hard_reg_defs (PATTERN (insn_info->insn), &defs_generated);
3111 is_sibling_call = SIBLING_CALL_P (insn_info->insn);
3112 get_call_reg_set_usage (insn_info->insn, &fn_reg_set_usage,
3113 regs_invalidated_by_call);
3114
3115 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3116 {
3117 if (i == STACK_POINTER_REGNUM)
3118 /* The stack ptr is used (honorarily) by a CALL insn. */
3119 df_ref_record (DF_REF_BASE, collection_rec, regno_reg_rtx[i],
3120 NULL, bb, insn_info, DF_REF_REG_USE,
3121 DF_REF_CALL_STACK_USAGE | flags);
3122 else if (global_regs[i])
3123 {
3124 /* Calls to const functions cannot access any global registers and
3125 calls to pure functions cannot set them. All other calls may
3126 reference any of the global registers, so they are recorded as
3127 used. */
3128 if (!RTL_CONST_CALL_P (insn_info->insn))
3129 {
3130 df_ref_record (DF_REF_BASE, collection_rec, regno_reg_rtx[i],
3131 NULL, bb, insn_info, DF_REF_REG_USE, flags);
3132 if (!RTL_PURE_CALL_P (insn_info->insn))
3133 df_ref_record (DF_REF_BASE, collection_rec, regno_reg_rtx[i],
3134 NULL, bb, insn_info, DF_REF_REG_DEF, flags);
3135 }
3136 }
3137 else if (TEST_HARD_REG_BIT (fn_reg_set_usage, i)
3138 /* no clobbers for regs that are the result of the call */
3139 && !TEST_HARD_REG_BIT (defs_generated, i)
3140 && (!is_sibling_call
3141 || !bitmap_bit_p (df->exit_block_uses, i)
3142 || refers_to_regno_p (i, crtl->return_rtx)))
3143 df_ref_record (DF_REF_BASE, collection_rec, regno_reg_rtx[i],
3144 NULL, bb, insn_info, DF_REF_REG_DEF,
3145 DF_REF_MAY_CLOBBER | flags);
3146 }
3147
3148 /* Record the registers used to pass arguments, and explicitly
3149 noted as clobbered. */
3150 for (note = CALL_INSN_FUNCTION_USAGE (insn_info->insn); note;
3151 note = XEXP (note, 1))
3152 {
3153 if (GET_CODE (XEXP (note, 0)) == USE)
3154 df_uses_record (collection_rec, &XEXP (XEXP (note, 0), 0),
3155 DF_REF_REG_USE, bb, insn_info, flags);
3156 else if (GET_CODE (XEXP (note, 0)) == CLOBBER)
3157 {
3158 if (REG_P (XEXP (XEXP (note, 0), 0)))
3159 {
3160 unsigned int regno = REGNO (XEXP (XEXP (note, 0), 0));
3161 if (!TEST_HARD_REG_BIT (defs_generated, regno))
3162 df_defs_record (collection_rec, XEXP (note, 0), bb,
3163 insn_info, flags);
3164 }
3165 else
3166 df_uses_record (collection_rec, &XEXP (note, 0),
3167 DF_REF_REG_USE, bb, insn_info, flags);
3168 }
3169 }
3170
3171 return;
3172 }
3173
3174 /* Collect all refs in the INSN. This function is free of any
3175 side-effect - it will create and return a lists of df_ref's in the
3176 COLLECTION_REC without putting those refs into existing ref chains
3177 and reg chains. */
3178
3179 static void
3180 df_insn_refs_collect (struct df_collection_rec *collection_rec,
3181 basic_block bb, struct df_insn_info *insn_info)
3182 {
3183 rtx note;
3184 bool is_cond_exec = (GET_CODE (PATTERN (insn_info->insn)) == COND_EXEC);
3185
3186 /* Clear out the collection record. */
3187 collection_rec->def_vec.truncate (0);
3188 collection_rec->use_vec.truncate (0);
3189 collection_rec->eq_use_vec.truncate (0);
3190 collection_rec->mw_vec.truncate (0);
3191
3192 /* Process REG_EQUIV/REG_EQUAL notes. */
3193 for (note = REG_NOTES (insn_info->insn); note;
3194 note = XEXP (note, 1))
3195 {
3196 switch (REG_NOTE_KIND (note))
3197 {
3198 case REG_EQUIV:
3199 case REG_EQUAL:
3200 df_uses_record (collection_rec,
3201 &XEXP (note, 0), DF_REF_REG_USE,
3202 bb, insn_info, DF_REF_IN_NOTE);
3203 break;
3204 case REG_NON_LOCAL_GOTO:
3205 /* The frame ptr is used by a non-local goto. */
3206 df_ref_record (DF_REF_BASE, collection_rec,
3207 regno_reg_rtx[FRAME_POINTER_REGNUM],
3208 NULL, bb, insn_info,
3209 DF_REF_REG_USE, 0);
3210 if (!HARD_FRAME_POINTER_IS_FRAME_POINTER)
3211 df_ref_record (DF_REF_BASE, collection_rec,
3212 regno_reg_rtx[HARD_FRAME_POINTER_REGNUM],
3213 NULL, bb, insn_info,
3214 DF_REF_REG_USE, 0);
3215 break;
3216 default:
3217 break;
3218 }
3219 }
3220
3221 int flags = (is_cond_exec) ? DF_REF_CONDITIONAL : 0;
3222 /* For CALL_INSNs, first record DF_REF_BASE register defs, as well as
3223 uses from CALL_INSN_FUNCTION_USAGE. */
3224 if (CALL_P (insn_info->insn))
3225 df_get_call_refs (collection_rec, bb, insn_info, flags);
3226
3227 if (asm_noperands (PATTERN (insn_info->insn)) >= 0)
3228 for (unsigned i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3229 if (global_regs[i])
3230 {
3231 /* As with calls, asm statements reference all global regs. */
3232 df_ref_record (DF_REF_BASE, collection_rec, regno_reg_rtx[i],
3233 NULL, bb, insn_info, DF_REF_REG_USE, flags);
3234 df_ref_record (DF_REF_BASE, collection_rec, regno_reg_rtx[i],
3235 NULL, bb, insn_info, DF_REF_REG_DEF, flags);
3236 }
3237
3238 /* Record other defs. These should be mostly for DF_REF_REGULAR, so
3239 that a qsort on the defs is unnecessary in most cases. */
3240 df_defs_record (collection_rec,
3241 PATTERN (insn_info->insn), bb, insn_info, 0);
3242
3243 /* Record the register uses. */
3244 df_uses_record (collection_rec,
3245 &PATTERN (insn_info->insn), DF_REF_REG_USE, bb, insn_info, 0);
3246
3247 /* DF_REF_CONDITIONAL needs corresponding USES. */
3248 if (is_cond_exec)
3249 df_get_conditional_uses (collection_rec);
3250
3251 df_canonize_collection_rec (collection_rec);
3252 }
3253
3254 /* Recompute the luids for the insns in BB. */
3255
3256 void
3257 df_recompute_luids (basic_block bb)
3258 {
3259 rtx_insn *insn;
3260 int luid = 0;
3261
3262 df_grow_insn_info ();
3263
3264 /* Scan the block an insn at a time from beginning to end. */
3265 FOR_BB_INSNS (bb, insn)
3266 {
3267 struct df_insn_info *insn_info = DF_INSN_INFO_GET (insn);
3268 /* Inserting labels does not always trigger the incremental
3269 rescanning. */
3270 if (!insn_info)
3271 {
3272 gcc_assert (!INSN_P (insn));
3273 insn_info = df_insn_create_insn_record (insn);
3274 }
3275
3276 DF_INSN_INFO_LUID (insn_info) = luid;
3277 if (INSN_P (insn))
3278 luid++;
3279 }
3280 }
3281
3282
3283 /* Collect all artificial refs at the block level for BB and add them
3284 to COLLECTION_REC. */
3285
3286 static void
3287 df_bb_refs_collect (struct df_collection_rec *collection_rec, basic_block bb)
3288 {
3289 collection_rec->def_vec.truncate (0);
3290 collection_rec->use_vec.truncate (0);
3291 collection_rec->eq_use_vec.truncate (0);
3292 collection_rec->mw_vec.truncate (0);
3293
3294 if (bb->index == ENTRY_BLOCK)
3295 {
3296 df_entry_block_defs_collect (collection_rec, df->entry_block_defs);
3297 return;
3298 }
3299 else if (bb->index == EXIT_BLOCK)
3300 {
3301 df_exit_block_uses_collect (collection_rec, df->exit_block_uses);
3302 return;
3303 }
3304
3305 if (bb_has_eh_pred (bb))
3306 {
3307 unsigned int i;
3308 /* Mark the registers that will contain data for the handler. */
3309 for (i = 0; ; ++i)
3310 {
3311 unsigned regno = EH_RETURN_DATA_REGNO (i);
3312 if (regno == INVALID_REGNUM)
3313 break;
3314 df_ref_record (DF_REF_ARTIFICIAL, collection_rec, regno_reg_rtx[regno], NULL,
3315 bb, NULL, DF_REF_REG_DEF, DF_REF_AT_TOP);
3316 }
3317 }
3318
3319 /* Add the hard_frame_pointer if this block is the target of a
3320 non-local goto. */
3321 if (bb->flags & BB_NON_LOCAL_GOTO_TARGET)
3322 df_ref_record (DF_REF_ARTIFICIAL, collection_rec, hard_frame_pointer_rtx, NULL,
3323 bb, NULL, DF_REF_REG_DEF, DF_REF_AT_TOP);
3324
3325 /* Add the artificial uses. */
3326 if (bb->index >= NUM_FIXED_BLOCKS)
3327 {
3328 bitmap_iterator bi;
3329 unsigned int regno;
3330 bitmap au = bb_has_eh_pred (bb)
3331 ? &df->eh_block_artificial_uses
3332 : &df->regular_block_artificial_uses;
3333
3334 EXECUTE_IF_SET_IN_BITMAP (au, 0, regno, bi)
3335 {
3336 df_ref_record (DF_REF_ARTIFICIAL, collection_rec, regno_reg_rtx[regno], NULL,
3337 bb, NULL, DF_REF_REG_USE, 0);
3338 }
3339 }
3340
3341 df_canonize_collection_rec (collection_rec);
3342 }
3343
3344
3345 /* Record all the refs within the basic block BB_INDEX and scan the instructions if SCAN_INSNS. */
3346
3347 void
3348 df_bb_refs_record (int bb_index, bool scan_insns)
3349 {
3350 basic_block bb = BASIC_BLOCK_FOR_FN (cfun, bb_index);
3351 rtx_insn *insn;
3352 int luid = 0;
3353
3354 if (!df)
3355 return;
3356
3357 df_collection_rec collection_rec;
3358 df_grow_bb_info (df_scan);
3359 if (scan_insns)
3360 /* Scan the block an insn at a time from beginning to end. */
3361 FOR_BB_INSNS (bb, insn)
3362 {
3363 struct df_insn_info *insn_info = DF_INSN_INFO_GET (insn);
3364 gcc_assert (!insn_info);
3365
3366 insn_info = df_insn_create_insn_record (insn);
3367 if (INSN_P (insn))
3368 {
3369 /* Record refs within INSN. */
3370 DF_INSN_INFO_LUID (insn_info) = luid++;
3371 df_insn_refs_collect (&collection_rec, bb, DF_INSN_INFO_GET (insn));
3372 df_refs_add_to_chains (&collection_rec, bb, insn, copy_all);
3373 }
3374 DF_INSN_INFO_LUID (insn_info) = luid;
3375 }
3376
3377 /* Other block level artificial refs */
3378 df_bb_refs_collect (&collection_rec, bb);
3379 df_refs_add_to_chains (&collection_rec, bb, NULL, copy_all);
3380
3381 /* Now that the block has been processed, set the block as dirty so
3382 LR and LIVE will get it processed. */
3383 df_set_bb_dirty (bb);
3384 }
3385
3386
3387 /* Get the artificial use set for a regular (i.e. non-exit/non-entry)
3388 block. */
3389
3390 static void
3391 df_get_regular_block_artificial_uses (bitmap regular_block_artificial_uses)
3392 {
3393 #ifdef EH_USES
3394 unsigned int i;
3395 #endif
3396
3397 bitmap_clear (regular_block_artificial_uses);
3398
3399 if (reload_completed)
3400 {
3401 if (frame_pointer_needed)
3402 bitmap_set_bit (regular_block_artificial_uses, HARD_FRAME_POINTER_REGNUM);
3403 }
3404 else
3405 /* Before reload, there are a few registers that must be forced
3406 live everywhere -- which might not already be the case for
3407 blocks within infinite loops. */
3408 {
3409 unsigned int picreg = PIC_OFFSET_TABLE_REGNUM;
3410
3411 /* Any reference to any pseudo before reload is a potential
3412 reference of the frame pointer. */
3413 bitmap_set_bit (regular_block_artificial_uses, FRAME_POINTER_REGNUM);
3414
3415 if (!HARD_FRAME_POINTER_IS_FRAME_POINTER)
3416 bitmap_set_bit (regular_block_artificial_uses,
3417 HARD_FRAME_POINTER_REGNUM);
3418
3419 /* Pseudos with argument area equivalences may require
3420 reloading via the argument pointer. */
3421 if (FRAME_POINTER_REGNUM != ARG_POINTER_REGNUM
3422 && fixed_regs[ARG_POINTER_REGNUM])
3423 bitmap_set_bit (regular_block_artificial_uses, ARG_POINTER_REGNUM);
3424
3425 /* Any constant, or pseudo with constant equivalences, may
3426 require reloading from memory using the pic register. */
3427 if (picreg != INVALID_REGNUM
3428 && fixed_regs[picreg])
3429 bitmap_set_bit (regular_block_artificial_uses, picreg);
3430 }
3431 /* The all-important stack pointer must always be live. */
3432 bitmap_set_bit (regular_block_artificial_uses, STACK_POINTER_REGNUM);
3433
3434 #ifdef EH_USES
3435 /* EH_USES registers are used:
3436 1) at all insns that might throw (calls or with -fnon-call-exceptions
3437 trapping insns)
3438 2) in all EH edges
3439 3) to support backtraces and/or debugging, anywhere between their
3440 initialization and where they the saved registers are restored
3441 from them, including the cases where we don't reach the epilogue
3442 (noreturn call or infinite loop). */
3443 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3444 if (EH_USES (i))
3445 bitmap_set_bit (regular_block_artificial_uses, i);
3446 #endif
3447 }
3448
3449
3450 /* Get the artificial use set for an eh block. */
3451
3452 static void
3453 df_get_eh_block_artificial_uses (bitmap eh_block_artificial_uses)
3454 {
3455 bitmap_clear (eh_block_artificial_uses);
3456
3457 /* The following code (down through the arg_pointer setting APPEARS
3458 to be necessary because there is nothing that actually
3459 describes what the exception handling code may actually need
3460 to keep alive. */
3461 if (reload_completed)
3462 {
3463 if (frame_pointer_needed)
3464 {
3465 bitmap_set_bit (eh_block_artificial_uses, FRAME_POINTER_REGNUM);
3466 if (!HARD_FRAME_POINTER_IS_FRAME_POINTER)
3467 bitmap_set_bit (eh_block_artificial_uses,
3468 HARD_FRAME_POINTER_REGNUM);
3469 }
3470 if (FRAME_POINTER_REGNUM != ARG_POINTER_REGNUM
3471 && fixed_regs[ARG_POINTER_REGNUM])
3472 bitmap_set_bit (eh_block_artificial_uses, ARG_POINTER_REGNUM);
3473 }
3474 }
3475
3476
3477 \f
3478 /*----------------------------------------------------------------------------
3479 Specialized hard register scanning functions.
3480 ----------------------------------------------------------------------------*/
3481
3482
3483 /* Mark a register in SET. Hard registers in large modes get all
3484 of their component registers set as well. */
3485
3486 static void
3487 df_mark_reg (rtx reg, void *vset)
3488 {
3489 bitmap_set_range ((bitmap) vset, REGNO (reg), REG_NREGS (reg));
3490 }
3491
3492
3493 /* Set the bit for regs that are considered being defined at the entry. */
3494
3495 static void
3496 df_get_entry_block_def_set (bitmap entry_block_defs)
3497 {
3498 rtx r;
3499 int i;
3500
3501 bitmap_clear (entry_block_defs);
3502
3503 /* For separate shrink-wrapping we use LIVE to analyze which basic blocks
3504 need a prologue for some component to be executed before that block,
3505 and we do not care about any other registers. Hence, we do not want
3506 any register for any component defined in the entry block, and we can
3507 just leave all registers undefined. */
3508 if (df_scan->local_flags & DF_SCAN_EMPTY_ENTRY_EXIT)
3509 return;
3510
3511 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3512 {
3513 if (global_regs[i])
3514 bitmap_set_bit (entry_block_defs, i);
3515 if (FUNCTION_ARG_REGNO_P (i))
3516 bitmap_set_bit (entry_block_defs, INCOMING_REGNO (i));
3517 }
3518
3519 /* The always important stack pointer. */
3520 bitmap_set_bit (entry_block_defs, STACK_POINTER_REGNUM);
3521
3522 /* Once the prologue has been generated, all of these registers
3523 should just show up in the first regular block. */
3524 if (targetm.have_prologue () && epilogue_completed)
3525 {
3526 /* Defs for the callee saved registers are inserted so that the
3527 pushes have some defining location. */
3528 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3529 if ((call_used_regs[i] == 0) && (df_regs_ever_live_p (i)))
3530 bitmap_set_bit (entry_block_defs, i);
3531 }
3532
3533 r = targetm.calls.struct_value_rtx (current_function_decl, true);
3534 if (r && REG_P (r))
3535 bitmap_set_bit (entry_block_defs, REGNO (r));
3536
3537 /* If the function has an incoming STATIC_CHAIN, it has to show up
3538 in the entry def set. */
3539 r = targetm.calls.static_chain (current_function_decl, true);
3540 if (r && REG_P (r))
3541 bitmap_set_bit (entry_block_defs, REGNO (r));
3542
3543 if ((!reload_completed) || frame_pointer_needed)
3544 {
3545 /* Any reference to any pseudo before reload is a potential
3546 reference of the frame pointer. */
3547 bitmap_set_bit (entry_block_defs, FRAME_POINTER_REGNUM);
3548
3549 /* If they are different, also mark the hard frame pointer as live. */
3550 if (!HARD_FRAME_POINTER_IS_FRAME_POINTER
3551 && !LOCAL_REGNO (HARD_FRAME_POINTER_REGNUM))
3552 bitmap_set_bit (entry_block_defs, HARD_FRAME_POINTER_REGNUM);
3553 }
3554
3555 /* These registers are live everywhere. */
3556 if (!reload_completed)
3557 {
3558 /* Pseudos with argument area equivalences may require
3559 reloading via the argument pointer. */
3560 if (FRAME_POINTER_REGNUM != ARG_POINTER_REGNUM
3561 && fixed_regs[ARG_POINTER_REGNUM])
3562 bitmap_set_bit (entry_block_defs, ARG_POINTER_REGNUM);
3563
3564 /* Any constant, or pseudo with constant equivalences, may
3565 require reloading from memory using the pic register. */
3566 unsigned int picreg = PIC_OFFSET_TABLE_REGNUM;
3567 if (picreg != INVALID_REGNUM
3568 && fixed_regs[picreg])
3569 bitmap_set_bit (entry_block_defs, picreg);
3570 }
3571
3572 #ifdef INCOMING_RETURN_ADDR_RTX
3573 if (REG_P (INCOMING_RETURN_ADDR_RTX))
3574 bitmap_set_bit (entry_block_defs, REGNO (INCOMING_RETURN_ADDR_RTX));
3575 #endif
3576
3577 targetm.extra_live_on_entry (entry_block_defs);
3578 }
3579
3580
3581 /* Return the (conservative) set of hard registers that are defined on
3582 entry to the function.
3583 It uses df->entry_block_defs to determine which register
3584 reference to include. */
3585
3586 static void
3587 df_entry_block_defs_collect (struct df_collection_rec *collection_rec,
3588 bitmap entry_block_defs)
3589 {
3590 unsigned int i;
3591 bitmap_iterator bi;
3592
3593 EXECUTE_IF_SET_IN_BITMAP (entry_block_defs, 0, i, bi)
3594 {
3595 df_ref_record (DF_REF_ARTIFICIAL, collection_rec, regno_reg_rtx[i], NULL,
3596 ENTRY_BLOCK_PTR_FOR_FN (cfun), NULL, DF_REF_REG_DEF, 0);
3597 }
3598
3599 df_canonize_collection_rec (collection_rec);
3600 }
3601
3602
3603 /* Record the (conservative) set of hard registers that are defined on
3604 entry to the function. */
3605
3606 static void
3607 df_record_entry_block_defs (bitmap entry_block_defs)
3608 {
3609 struct df_collection_rec collection_rec;
3610 df_entry_block_defs_collect (&collection_rec, entry_block_defs);
3611
3612 /* Process bb_refs chain */
3613 df_refs_add_to_chains (&collection_rec,
3614 BASIC_BLOCK_FOR_FN (cfun, ENTRY_BLOCK),
3615 NULL,
3616 copy_defs);
3617 }
3618
3619
3620 /* Update the defs in the entry block. */
3621
3622 void
3623 df_update_entry_block_defs (void)
3624 {
3625 bool changed = false;
3626
3627 auto_bitmap refs (&df_bitmap_obstack);
3628 df_get_entry_block_def_set (refs);
3629 if (df->entry_block_defs)
3630 {
3631 if (!bitmap_equal_p (df->entry_block_defs, refs))
3632 {
3633 struct df_scan_bb_info *bb_info = df_scan_get_bb_info (ENTRY_BLOCK);
3634 df_ref_chain_delete_du_chain (bb_info->artificial_defs);
3635 df_ref_chain_delete (bb_info->artificial_defs);
3636 bb_info->artificial_defs = NULL;
3637 changed = true;
3638 }
3639 }
3640 else
3641 {
3642 struct df_scan_problem_data *problem_data
3643 = (struct df_scan_problem_data *) df_scan->problem_data;
3644 gcc_unreachable ();
3645 df->entry_block_defs = BITMAP_ALLOC (&problem_data->reg_bitmaps);
3646 changed = true;
3647 }
3648
3649 if (changed)
3650 {
3651 df_record_entry_block_defs (refs);
3652 bitmap_copy (df->entry_block_defs, refs);
3653 df_set_bb_dirty (BASIC_BLOCK_FOR_FN (cfun, ENTRY_BLOCK));
3654 }
3655 }
3656
3657
3658 /* Set the bit for regs that are considered being used at the exit. */
3659
3660 static void
3661 df_get_exit_block_use_set (bitmap exit_block_uses)
3662 {
3663 unsigned int i;
3664 unsigned int picreg = PIC_OFFSET_TABLE_REGNUM;
3665
3666 bitmap_clear (exit_block_uses);
3667
3668 /* For separate shrink-wrapping we use LIVE to analyze which basic blocks
3669 need an epilogue for some component to be executed after that block,
3670 and we do not care about any other registers. Hence, we do not want
3671 any register for any component seen as used in the exit block, and we
3672 can just say no registers at all are used. */
3673 if (df_scan->local_flags & DF_SCAN_EMPTY_ENTRY_EXIT)
3674 return;
3675
3676 /* Stack pointer is always live at the exit. */
3677 bitmap_set_bit (exit_block_uses, STACK_POINTER_REGNUM);
3678
3679 /* Mark the frame pointer if needed at the end of the function.
3680 If we end up eliminating it, it will be removed from the live
3681 list of each basic block by reload. */
3682
3683 if ((!reload_completed) || frame_pointer_needed)
3684 {
3685 bitmap_set_bit (exit_block_uses, FRAME_POINTER_REGNUM);
3686
3687 /* If they are different, also mark the hard frame pointer as live. */
3688 if (!HARD_FRAME_POINTER_IS_FRAME_POINTER
3689 && !LOCAL_REGNO (HARD_FRAME_POINTER_REGNUM))
3690 bitmap_set_bit (exit_block_uses, HARD_FRAME_POINTER_REGNUM);
3691 }
3692
3693 /* Many architectures have a GP register even without flag_pic.
3694 Assume the pic register is not in use, or will be handled by
3695 other means, if it is not fixed. */
3696 if (!PIC_OFFSET_TABLE_REG_CALL_CLOBBERED
3697 && picreg != INVALID_REGNUM
3698 && fixed_regs[picreg])
3699 bitmap_set_bit (exit_block_uses, picreg);
3700
3701 /* Mark all global registers, and all registers used by the
3702 epilogue as being live at the end of the function since they
3703 may be referenced by our caller. */
3704 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3705 if (global_regs[i] || EPILOGUE_USES (i))
3706 bitmap_set_bit (exit_block_uses, i);
3707
3708 if (targetm.have_epilogue () && epilogue_completed)
3709 {
3710 /* Mark all call-saved registers that we actually used. */
3711 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3712 if (df_regs_ever_live_p (i) && !LOCAL_REGNO (i)
3713 && !TEST_HARD_REG_BIT (regs_invalidated_by_call, i))
3714 bitmap_set_bit (exit_block_uses, i);
3715 }
3716
3717 /* Mark the registers that will contain data for the handler. */
3718 if (reload_completed && crtl->calls_eh_return)
3719 for (i = 0; ; ++i)
3720 {
3721 unsigned regno = EH_RETURN_DATA_REGNO (i);
3722 if (regno == INVALID_REGNUM)
3723 break;
3724 bitmap_set_bit (exit_block_uses, regno);
3725 }
3726
3727 #ifdef EH_RETURN_STACKADJ_RTX
3728 if ((!targetm.have_epilogue () || ! epilogue_completed)
3729 && crtl->calls_eh_return)
3730 {
3731 rtx tmp = EH_RETURN_STACKADJ_RTX;
3732 if (tmp && REG_P (tmp))
3733 df_mark_reg (tmp, exit_block_uses);
3734 }
3735 #endif
3736
3737 if ((!targetm.have_epilogue () || ! epilogue_completed)
3738 && crtl->calls_eh_return)
3739 {
3740 rtx tmp = EH_RETURN_HANDLER_RTX;
3741 if (tmp && REG_P (tmp))
3742 df_mark_reg (tmp, exit_block_uses);
3743 }
3744
3745 /* Mark function return value. */
3746 diddle_return_value (df_mark_reg, (void*) exit_block_uses);
3747 }
3748
3749
3750 /* Return the refs of hard registers that are used in the exit block.
3751 It uses df->exit_block_uses to determine register to include. */
3752
3753 static void
3754 df_exit_block_uses_collect (struct df_collection_rec *collection_rec, bitmap exit_block_uses)
3755 {
3756 unsigned int i;
3757 bitmap_iterator bi;
3758
3759 EXECUTE_IF_SET_IN_BITMAP (exit_block_uses, 0, i, bi)
3760 df_ref_record (DF_REF_ARTIFICIAL, collection_rec, regno_reg_rtx[i], NULL,
3761 EXIT_BLOCK_PTR_FOR_FN (cfun), NULL, DF_REF_REG_USE, 0);
3762
3763 /* It is deliberate that this is not put in the exit block uses but
3764 I do not know why. */
3765 if (FRAME_POINTER_REGNUM != ARG_POINTER_REGNUM
3766 && reload_completed
3767 && !bitmap_bit_p (exit_block_uses, ARG_POINTER_REGNUM)
3768 && bb_has_eh_pred (EXIT_BLOCK_PTR_FOR_FN (cfun))
3769 && fixed_regs[ARG_POINTER_REGNUM])
3770 df_ref_record (DF_REF_ARTIFICIAL, collection_rec, regno_reg_rtx[ARG_POINTER_REGNUM], NULL,
3771 EXIT_BLOCK_PTR_FOR_FN (cfun), NULL, DF_REF_REG_USE, 0);
3772
3773 df_canonize_collection_rec (collection_rec);
3774 }
3775
3776
3777 /* Record the set of hard registers that are used in the exit block.
3778 It uses df->exit_block_uses to determine which bit to include. */
3779
3780 static void
3781 df_record_exit_block_uses (bitmap exit_block_uses)
3782 {
3783 struct df_collection_rec collection_rec;
3784 df_exit_block_uses_collect (&collection_rec, exit_block_uses);
3785
3786 /* Process bb_refs chain */
3787 df_refs_add_to_chains (&collection_rec,
3788 BASIC_BLOCK_FOR_FN (cfun, EXIT_BLOCK),
3789 NULL,
3790 copy_uses);
3791 }
3792
3793
3794 /* Update the uses in the exit block. */
3795
3796 void
3797 df_update_exit_block_uses (void)
3798 {
3799 bool changed = false;
3800
3801 auto_bitmap refs (&df_bitmap_obstack);
3802 df_get_exit_block_use_set (refs);
3803 if (df->exit_block_uses)
3804 {
3805 if (!bitmap_equal_p (df->exit_block_uses, refs))
3806 {
3807 struct df_scan_bb_info *bb_info = df_scan_get_bb_info (EXIT_BLOCK);
3808 df_ref_chain_delete_du_chain (bb_info->artificial_uses);
3809 df_ref_chain_delete (bb_info->artificial_uses);
3810 bb_info->artificial_uses = NULL;
3811 changed = true;
3812 }
3813 }
3814 else
3815 {
3816 struct df_scan_problem_data *problem_data
3817 = (struct df_scan_problem_data *) df_scan->problem_data;
3818 gcc_unreachable ();
3819 df->exit_block_uses = BITMAP_ALLOC (&problem_data->reg_bitmaps);
3820 changed = true;
3821 }
3822
3823 if (changed)
3824 {
3825 df_record_exit_block_uses (refs);
3826 bitmap_copy (df->exit_block_uses, refs);
3827 df_set_bb_dirty (BASIC_BLOCK_FOR_FN (cfun, EXIT_BLOCK));
3828 }
3829 }
3830
3831 static bool initialized = false;
3832
3833
3834 /* Initialize some platform specific structures. */
3835
3836 void
3837 df_hard_reg_init (void)
3838 {
3839 int i;
3840 static const struct {const int from, to; } eliminables[] = ELIMINABLE_REGS;
3841
3842 if (initialized)
3843 return;
3844
3845 /* Record which registers will be eliminated. We use this in
3846 mark_used_regs. */
3847 CLEAR_HARD_REG_SET (elim_reg_set);
3848
3849 for (i = 0; i < (int) ARRAY_SIZE (eliminables); i++)
3850 SET_HARD_REG_BIT (elim_reg_set, eliminables[i].from);
3851
3852 initialized = true;
3853 }
3854
3855
3856 /* Recompute the parts of scanning that are based on regs_ever_live
3857 because something changed in that array. */
3858
3859 void
3860 df_update_entry_exit_and_calls (void)
3861 {
3862 basic_block bb;
3863
3864 df_update_entry_block_defs ();
3865 df_update_exit_block_uses ();
3866
3867 /* The call insns need to be rescanned because there may be changes
3868 in the set of registers clobbered across the call. */
3869 FOR_EACH_BB_FN (bb, cfun)
3870 {
3871 rtx_insn *insn;
3872 FOR_BB_INSNS (bb, insn)
3873 {
3874 if (INSN_P (insn) && CALL_P (insn))
3875 df_insn_rescan (insn);
3876 }
3877 }
3878 }
3879
3880
3881 /* Return true if hard REG is actually used in the some instruction.
3882 There are a fair number of conditions that affect the setting of
3883 this array. See the comment in df.h for df->hard_regs_live_count
3884 for the conditions that this array is set. */
3885
3886 bool
3887 df_hard_reg_used_p (unsigned int reg)
3888 {
3889 return df->hard_regs_live_count[reg] != 0;
3890 }
3891
3892
3893 /* A count of the number of times REG is actually used in the some
3894 instruction. There are a fair number of conditions that affect the
3895 setting of this array. See the comment in df.h for
3896 df->hard_regs_live_count for the conditions that this array is
3897 set. */
3898
3899
3900 unsigned int
3901 df_hard_reg_used_count (unsigned int reg)
3902 {
3903 return df->hard_regs_live_count[reg];
3904 }
3905
3906
3907 /* Get the value of regs_ever_live[REGNO]. */
3908
3909 bool
3910 df_regs_ever_live_p (unsigned int regno)
3911 {
3912 return regs_ever_live[regno];
3913 }
3914
3915
3916 /* Set regs_ever_live[REGNO] to VALUE. If this cause regs_ever_live
3917 to change, schedule that change for the next update. */
3918
3919 void
3920 df_set_regs_ever_live (unsigned int regno, bool value)
3921 {
3922 if (regs_ever_live[regno] == value)
3923 return;
3924
3925 regs_ever_live[regno] = value;
3926 if (df)
3927 df->redo_entry_and_exit = true;
3928 }
3929
3930
3931 /* Compute "regs_ever_live" information from the underlying df
3932 information. Set the vector to all false if RESET. */
3933
3934 void
3935 df_compute_regs_ever_live (bool reset)
3936 {
3937 unsigned int i;
3938 bool changed = df->redo_entry_and_exit;
3939
3940 if (reset)
3941 memset (regs_ever_live, 0, sizeof (regs_ever_live));
3942
3943 for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
3944 if ((!regs_ever_live[i]) && df_hard_reg_used_p (i))
3945 {
3946 regs_ever_live[i] = true;
3947 changed = true;
3948 }
3949 if (changed)
3950 df_update_entry_exit_and_calls ();
3951 df->redo_entry_and_exit = false;
3952 }
3953
3954 \f
3955 /*----------------------------------------------------------------------------
3956 Dataflow ref information verification functions.
3957
3958 df_reg_chain_mark (refs, regno, is_def, is_eq_use)
3959 df_reg_chain_verify_unmarked (refs)
3960 df_refs_verify (vec<stack, va_df_ref>, ref*, bool)
3961 df_mws_verify (mw*, mw*, bool)
3962 df_insn_refs_verify (collection_rec, bb, insn, bool)
3963 df_bb_refs_verify (bb, refs, bool)
3964 df_bb_verify (bb)
3965 df_exit_block_bitmap_verify (bool)
3966 df_entry_block_bitmap_verify (bool)
3967 df_scan_verify ()
3968 ----------------------------------------------------------------------------*/
3969
3970
3971 /* Mark all refs in the reg chain. Verify that all of the registers
3972 are in the correct chain. */
3973
3974 static unsigned int
3975 df_reg_chain_mark (df_ref refs, unsigned int regno,
3976 bool is_def, bool is_eq_use)
3977 {
3978 unsigned int count = 0;
3979 df_ref ref;
3980 for (ref = refs; ref; ref = DF_REF_NEXT_REG (ref))
3981 {
3982 gcc_assert (!DF_REF_IS_REG_MARKED (ref));
3983
3984 /* If there are no def-use or use-def chains, make sure that all
3985 of the chains are clear. */
3986 if (!df_chain)
3987 gcc_assert (!DF_REF_CHAIN (ref));
3988
3989 /* Check to make sure the ref is in the correct chain. */
3990 gcc_assert (DF_REF_REGNO (ref) == regno);
3991 if (is_def)
3992 gcc_assert (DF_REF_REG_DEF_P (ref));
3993 else
3994 gcc_assert (!DF_REF_REG_DEF_P (ref));
3995
3996 if (is_eq_use)
3997 gcc_assert ((DF_REF_FLAGS (ref) & DF_REF_IN_NOTE));
3998 else
3999 gcc_assert ((DF_REF_FLAGS (ref) & DF_REF_IN_NOTE) == 0);
4000
4001 if (DF_REF_NEXT_REG (ref))
4002 gcc_assert (DF_REF_PREV_REG (DF_REF_NEXT_REG (ref)) == ref);
4003 count++;
4004 DF_REF_REG_MARK (ref);
4005 }
4006 return count;
4007 }
4008
4009
4010 /* Verify that all of the registers in the chain are unmarked. */
4011
4012 static void
4013 df_reg_chain_verify_unmarked (df_ref refs)
4014 {
4015 df_ref ref;
4016 for (ref = refs; ref; ref = DF_REF_NEXT_REG (ref))
4017 gcc_assert (!DF_REF_IS_REG_MARKED (ref));
4018 }
4019
4020
4021 /* Verify that NEW_REC and OLD_REC have exactly the same members. */
4022
4023 static bool
4024 df_refs_verify (const vec<df_ref, va_heap> *new_rec, df_ref old_rec,
4025 bool abort_if_fail)
4026 {
4027 unsigned int ix;
4028 df_ref new_ref;
4029
4030 FOR_EACH_VEC_ELT (*new_rec, ix, new_ref)
4031 {
4032 if (old_rec == NULL || !df_ref_equal_p (new_ref, old_rec))
4033 {
4034 if (abort_if_fail)
4035 gcc_assert (0);
4036 else
4037 return false;
4038 }
4039
4040 /* Abort if fail is called from the function level verifier. If
4041 that is the context, mark this reg as being seem. */
4042 if (abort_if_fail)
4043 {
4044 gcc_assert (DF_REF_IS_REG_MARKED (old_rec));
4045 DF_REF_REG_UNMARK (old_rec);
4046 }
4047
4048 old_rec = DF_REF_NEXT_LOC (old_rec);
4049 }
4050
4051 if (abort_if_fail)
4052 gcc_assert (old_rec == NULL);
4053 else
4054 return old_rec == NULL;
4055 return false;
4056 }
4057
4058
4059 /* Verify that NEW_REC and OLD_REC have exactly the same members. */
4060
4061 static bool
4062 df_mws_verify (const vec<df_mw_hardreg *, va_heap> *new_rec,
4063 struct df_mw_hardreg *old_rec,
4064 bool abort_if_fail)
4065 {
4066 unsigned int ix;
4067 struct df_mw_hardreg *new_reg;
4068
4069 FOR_EACH_VEC_ELT (*new_rec, ix, new_reg)
4070 {
4071 if (old_rec == NULL || !df_mw_equal_p (new_reg, old_rec))
4072 {
4073 if (abort_if_fail)
4074 gcc_assert (0);
4075 else
4076 return false;
4077 }
4078 old_rec = DF_MWS_NEXT (old_rec);
4079 }
4080
4081 if (abort_if_fail)
4082 gcc_assert (old_rec == NULL);
4083 else
4084 return old_rec == NULL;
4085 return false;
4086 }
4087
4088
4089 /* Return true if the existing insn refs information is complete and
4090 correct. Otherwise (i.e. if there's any missing or extra refs),
4091 return the correct df_ref chain in REFS_RETURN.
4092
4093 If ABORT_IF_FAIL, leave the refs that are verified (already in the
4094 ref chain) as DF_REF_MARKED(). If it's false, then it's a per-insn
4095 verification mode instead of the whole function, so unmark
4096 everything.
4097
4098 If ABORT_IF_FAIL is set, this function never returns false. */
4099
4100 static bool
4101 df_insn_refs_verify (struct df_collection_rec *collection_rec,
4102 basic_block bb,
4103 rtx_insn *insn,
4104 bool abort_if_fail)
4105 {
4106 bool ret1, ret2, ret3;
4107 unsigned int uid = INSN_UID (insn);
4108 struct df_insn_info *insn_info = DF_INSN_INFO_GET (insn);
4109
4110 df_insn_refs_collect (collection_rec, bb, insn_info);
4111
4112 /* Unfortunately we cannot opt out early if one of these is not
4113 right and abort_if_fail is set because the marks will not get cleared. */
4114 ret1 = df_refs_verify (&collection_rec->def_vec, DF_INSN_UID_DEFS (uid),
4115 abort_if_fail);
4116 if (!ret1 && !abort_if_fail)
4117 return false;
4118 ret2 = df_refs_verify (&collection_rec->use_vec, DF_INSN_UID_USES (uid),
4119 abort_if_fail);
4120 if (!ret2 && !abort_if_fail)
4121 return false;
4122 ret3 = df_refs_verify (&collection_rec->eq_use_vec, DF_INSN_UID_EQ_USES (uid),
4123 abort_if_fail);
4124 if (!ret3 && !abort_if_fail)
4125 return false;
4126 if (! df_mws_verify (&collection_rec->mw_vec, DF_INSN_UID_MWS (uid),
4127 abort_if_fail))
4128 return false;
4129 return (ret1 && ret2 && ret3);
4130 }
4131
4132
4133 /* Return true if all refs in the basic block are correct and complete.
4134 Due to df_ref_chain_verify, it will cause all refs
4135 that are verified to have DF_REF_MARK bit set. */
4136
4137 static bool
4138 df_bb_verify (basic_block bb)
4139 {
4140 rtx_insn *insn;
4141 struct df_scan_bb_info *bb_info = df_scan_get_bb_info (bb->index);
4142 struct df_collection_rec collection_rec;
4143
4144 gcc_assert (bb_info);
4145
4146 /* Scan the block, one insn at a time, from beginning to end. */
4147 FOR_BB_INSNS_REVERSE (bb, insn)
4148 {
4149 if (!INSN_P (insn))
4150 continue;
4151 df_insn_refs_verify (&collection_rec, bb, insn, true);
4152 df_free_collection_rec (&collection_rec);
4153 }
4154
4155 /* Do the artificial defs and uses. */
4156 df_bb_refs_collect (&collection_rec, bb);
4157 df_refs_verify (&collection_rec.def_vec, df_get_artificial_defs (bb->index), true);
4158 df_refs_verify (&collection_rec.use_vec, df_get_artificial_uses (bb->index), true);
4159 df_free_collection_rec (&collection_rec);
4160
4161 return true;
4162 }
4163
4164
4165 /* Returns true if the entry block has correct and complete df_ref set.
4166 If not it either aborts if ABORT_IF_FAIL is true or returns false. */
4167
4168 static bool
4169 df_entry_block_bitmap_verify (bool abort_if_fail)
4170 {
4171 bool is_eq;
4172
4173 auto_bitmap entry_block_defs (&df_bitmap_obstack);
4174 df_get_entry_block_def_set (entry_block_defs);
4175
4176 is_eq = bitmap_equal_p (entry_block_defs, df->entry_block_defs);
4177
4178 if (!is_eq && abort_if_fail)
4179 {
4180 fprintf (stderr, "entry_block_defs = ");
4181 df_print_regset (stderr, entry_block_defs);
4182 fprintf (stderr, "df->entry_block_defs = ");
4183 df_print_regset (stderr, df->entry_block_defs);
4184 gcc_assert (0);
4185 }
4186
4187 return is_eq;
4188 }
4189
4190
4191 /* Returns true if the exit block has correct and complete df_ref set.
4192 If not it either aborts if ABORT_IF_FAIL is true or returns false. */
4193
4194 static bool
4195 df_exit_block_bitmap_verify (bool abort_if_fail)
4196 {
4197 bool is_eq;
4198
4199 auto_bitmap exit_block_uses (&df_bitmap_obstack);
4200 df_get_exit_block_use_set (exit_block_uses);
4201
4202 is_eq = bitmap_equal_p (exit_block_uses, df->exit_block_uses);
4203
4204 if (!is_eq && abort_if_fail)
4205 {
4206 fprintf (stderr, "exit_block_uses = ");
4207 df_print_regset (stderr, exit_block_uses);
4208 fprintf (stderr, "df->exit_block_uses = ");
4209 df_print_regset (stderr, df->exit_block_uses);
4210 gcc_assert (0);
4211 }
4212
4213 return is_eq;
4214 }
4215
4216
4217 /* Return true if df_ref information for all insns in all blocks are
4218 correct and complete. */
4219
4220 void
4221 df_scan_verify (void)
4222 {
4223 unsigned int i;
4224 basic_block bb;
4225
4226 if (!df)
4227 return;
4228
4229 /* Verification is a 4 step process. */
4230
4231 /* (1) All of the refs are marked by going through the reg chains. */
4232 for (i = 0; i < DF_REG_SIZE (df); i++)
4233 {
4234 gcc_assert (df_reg_chain_mark (DF_REG_DEF_CHAIN (i), i, true, false)
4235 == DF_REG_DEF_COUNT (i));
4236 gcc_assert (df_reg_chain_mark (DF_REG_USE_CHAIN (i), i, false, false)
4237 == DF_REG_USE_COUNT (i));
4238 gcc_assert (df_reg_chain_mark (DF_REG_EQ_USE_CHAIN (i), i, false, true)
4239 == DF_REG_EQ_USE_COUNT (i));
4240 }
4241
4242 /* (2) There are various bitmaps whose value may change over the
4243 course of the compilation. This step recomputes them to make
4244 sure that they have not slipped out of date. */
4245 auto_bitmap regular_block_artificial_uses (&df_bitmap_obstack);
4246 auto_bitmap eh_block_artificial_uses (&df_bitmap_obstack);
4247
4248 df_get_regular_block_artificial_uses (regular_block_artificial_uses);
4249 df_get_eh_block_artificial_uses (eh_block_artificial_uses);
4250
4251 bitmap_ior_into (eh_block_artificial_uses,
4252 regular_block_artificial_uses);
4253
4254 /* Check artificial_uses bitmaps didn't change. */
4255 gcc_assert (bitmap_equal_p (regular_block_artificial_uses,
4256 &df->regular_block_artificial_uses));
4257 gcc_assert (bitmap_equal_p (eh_block_artificial_uses,
4258 &df->eh_block_artificial_uses));
4259
4260 /* Verify entry block and exit block. These only verify the bitmaps,
4261 the refs are verified in df_bb_verify. */
4262 df_entry_block_bitmap_verify (true);
4263 df_exit_block_bitmap_verify (true);
4264
4265 /* (3) All of the insns in all of the blocks are traversed and the
4266 marks are cleared both in the artificial refs attached to the
4267 blocks and the real refs inside the insns. It is a failure to
4268 clear a mark that has not been set as this means that the ref in
4269 the block or insn was not in the reg chain. */
4270
4271 FOR_ALL_BB_FN (bb, cfun)
4272 df_bb_verify (bb);
4273
4274 /* (4) See if all reg chains are traversed a second time. This time
4275 a check is made that the marks are clear. A set mark would be a
4276 from a reg that is not in any insn or basic block. */
4277
4278 for (i = 0; i < DF_REG_SIZE (df); i++)
4279 {
4280 df_reg_chain_verify_unmarked (DF_REG_DEF_CHAIN (i));
4281 df_reg_chain_verify_unmarked (DF_REG_USE_CHAIN (i));
4282 df_reg_chain_verify_unmarked (DF_REG_EQ_USE_CHAIN (i));
4283 }
4284 }
Mirror of the offical gcc git repository hosted at gcc.gnu.org