1 /* Instruction scheduling pass.
2 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 Free Software Foundation, Inc.
5 Contributed by Michael Tiemann (tiemann@cygnus.com) Enhanced by,
6 and currently maintained by, Jim Wilson (wilson@cygnus.com)
8 This file is part of GCC.
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
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
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/>. */
26 #include "coretypes.h"
31 #include "hard-reg-set.h"
35 #include "insn-config.h"
36 #include "insn-attr.h"
40 #include "cfglayout.h"
42 #include "sched-int.h"
47 /* The number of insns scheduled so far. */
48 static int sched_n_insns
;
50 /* The number of insns to be scheduled in total. */
53 /* Set of blocks, that already have their dependencies calculated. */
54 static bitmap_head dont_calc_deps
;
56 /* Last basic block in current ebb. */
57 static basic_block last_bb
;
59 /* Implementations of the sched_info functions for region scheduling. */
60 static void init_ready_list (void);
61 static void begin_schedule_ready (rtx
, rtx
);
62 static int schedule_more_p (void);
63 static const char *ebb_print_insn (rtx
, int);
64 static int rank (rtx
, rtx
);
65 static int contributes_to_priority (rtx
, rtx
);
66 static void compute_jump_reg_dependencies (rtx
, regset
, regset
, regset
);
67 static basic_block
earliest_block_with_similiar_load (basic_block
, rtx
);
68 static void add_deps_for_risky_insns (rtx
, rtx
);
69 static basic_block
schedule_ebb (rtx
, rtx
);
71 static void add_remove_insn (rtx
, int);
72 static void add_block1 (basic_block
, basic_block
);
73 static basic_block
advance_target_bb (basic_block
, rtx
);
74 static void fix_recovery_cfg (int, int, int);
76 /* Return nonzero if there are more insns that should be scheduled. */
79 schedule_more_p (void)
81 return sched_n_insns
< n_insns
;
84 /* Print dependency information about ebb between HEAD and TAIL. */
86 debug_ebb_dependencies (rtx head
, rtx tail
)
89 ";; --------------- forward dependences: ------------ \n");
91 fprintf (sched_dump
, "\n;; --- EBB Dependences --- from bb%d to bb%d \n",
92 BLOCK_NUM (head
), BLOCK_NUM (tail
));
94 debug_dependencies (head
, tail
);
97 /* Add all insns that are initially ready to the ready list READY. Called
98 once before scheduling a set of insns. */
101 init_ready_list (void)
104 rtx prev_head
= current_sched_info
->prev_head
;
105 rtx next_tail
= current_sched_info
->next_tail
;
110 /* Print debugging information. */
111 if (sched_verbose
>= 5)
112 debug_ebb_dependencies (NEXT_INSN (prev_head
), PREV_INSN (next_tail
));
114 /* Initialize ready list with all 'ready' insns in target block.
115 Count number of insns in the target block being scheduled. */
116 for (insn
= NEXT_INSN (prev_head
); insn
!= next_tail
; insn
= NEXT_INSN (insn
))
122 gcc_assert (n
== n_insns
);
125 /* INSN is being scheduled after LAST. Update counters. */
127 begin_schedule_ready (rtx insn
, rtx last
)
131 if (BLOCK_FOR_INSN (insn
) == last_bb
132 /* INSN is a jump in the last block, ... */
133 && control_flow_insn_p (insn
)
134 /* that is going to be moved over some instructions. */
135 && last
!= PREV_INSN (insn
))
141 /* An obscure special case, where we do have partially dead
142 instruction scheduled after last control flow instruction.
143 In this case we can create new basic block. It is
144 always exactly one basic block last in the sequence. */
146 FOR_EACH_EDGE (e
, ei
, last_bb
->succs
)
147 if (e
->flags
& EDGE_FALLTHRU
)
150 #ifdef ENABLE_CHECKING
151 gcc_assert (!e
|| !(e
->flags
& EDGE_COMPLEX
));
153 gcc_assert (BLOCK_FOR_INSN (insn
) == last_bb
154 && !IS_SPECULATION_CHECK_P (insn
)
155 && BB_HEAD (last_bb
) != insn
156 && BB_END (last_bb
) == insn
);
161 x
= NEXT_INSN (insn
);
163 gcc_assert (NOTE_P (x
) || LABEL_P (x
));
165 gcc_assert (BARRIER_P (x
));
172 gcc_assert (NOTE_INSN_BASIC_BLOCK_P (BB_END (bb
)));
175 /* Create an empty unreachable block after the INSN. */
176 bb
= create_basic_block (NEXT_INSN (insn
), NULL_RTX
, last_bb
);
178 /* split_edge () creates BB before E->DEST. Keep in mind, that
179 this operation extends scheduling region till the end of BB.
180 Hence, we need to shift NEXT_TAIL, so haifa-sched.c won't go out
181 of the scheduling region. */
182 current_sched_info
->next_tail
= NEXT_INSN (BB_END (bb
));
183 gcc_assert (current_sched_info
->next_tail
);
185 add_block (bb
, last_bb
);
186 gcc_assert (last_bb
== bb
);
190 /* Return a string that contains the insn uid and optionally anything else
191 necessary to identify this insn in an output. It's valid to use a
192 static buffer for this. The ALIGNED parameter should cause the string
193 to be formatted so that multiple output lines will line up nicely. */
196 ebb_print_insn (rtx insn
, int aligned ATTRIBUTE_UNUSED
)
200 sprintf (tmp
, "%4d", INSN_UID (insn
));
204 /* Compare priority of two insns. Return a positive number if the second
205 insn is to be preferred for scheduling, and a negative one if the first
206 is to be preferred. Zero if they are equally good. */
209 rank (rtx insn1
, rtx insn2
)
211 basic_block bb1
= BLOCK_FOR_INSN (insn1
);
212 basic_block bb2
= BLOCK_FOR_INSN (insn2
);
214 if (bb1
->count
> bb2
->count
215 || bb1
->frequency
> bb2
->frequency
)
217 if (bb1
->count
< bb2
->count
218 || bb1
->frequency
< bb2
->frequency
)
223 /* NEXT is an instruction that depends on INSN (a backward dependence);
224 return nonzero if we should include this dependence in priority
228 contributes_to_priority (rtx next ATTRIBUTE_UNUSED
,
229 rtx insn ATTRIBUTE_UNUSED
)
234 /* INSN is a JUMP_INSN, COND_SET is the set of registers that are
235 conditionally set before INSN. Store the set of registers that
236 must be considered as used by this jump in USED and that of
237 registers that must be considered as set in SET. */
240 compute_jump_reg_dependencies (rtx insn
, regset cond_set
, regset used
,
243 basic_block b
= BLOCK_FOR_INSN (insn
);
247 FOR_EACH_EDGE (e
, ei
, b
->succs
)
248 if (e
->flags
& EDGE_FALLTHRU
)
249 /* The jump may be a by-product of a branch that has been merged
250 in the main codepath after being conditionalized. Therefore
251 it may guard the fallthrough block from using a value that has
252 conditionally overwritten that of the main codepath. So we
253 consider that it restores the value of the main codepath. */
254 bitmap_and (set
, df_get_live_in (e
->dest
), cond_set
);
256 bitmap_ior_into (used
, df_get_live_in (e
->dest
));
259 /* Used in schedule_insns to initialize current_sched_info for scheduling
260 regions (or single basic blocks). */
262 static struct sched_info ebb_sched_info
=
270 contributes_to_priority
,
271 compute_jump_reg_dependencies
,
278 begin_schedule_ready
,
283 /* We can create new blocks in begin_schedule_ready (). */
287 /* Returns the earliest block in EBB currently being processed where a
288 "similar load" 'insn2' is found, and hence LOAD_INSN can move
289 speculatively into the found block. All the following must hold:
291 (1) both loads have 1 base register (PFREE_CANDIDATEs).
292 (2) load_insn and load2 have a def-use dependence upon
293 the same insn 'insn1'.
295 From all these we can conclude that the two loads access memory
296 addresses that differ at most by a constant, and hence if moving
297 load_insn would cause an exception, it would have been caused by
300 The function uses list (given by LAST_BLOCK) of already processed
301 blocks in EBB. The list is formed in `add_deps_for_risky_insns'. */
304 earliest_block_with_similiar_load (basic_block last_block
, rtx load_insn
)
306 sd_iterator_def back_sd_it
;
308 basic_block bb
, earliest_block
= NULL
;
310 FOR_EACH_DEP (load_insn
, SD_LIST_BACK
, back_sd_it
, back_dep
)
312 rtx insn1
= DEP_PRO (back_dep
);
314 if (DEP_TYPE (back_dep
) == REG_DEP_TRUE
)
315 /* Found a DEF-USE dependence (insn1, load_insn). */
317 sd_iterator_def fore_sd_it
;
320 FOR_EACH_DEP (insn1
, SD_LIST_FORW
, fore_sd_it
, fore_dep
)
322 rtx insn2
= DEP_CON (fore_dep
);
323 basic_block insn2_block
= BLOCK_FOR_INSN (insn2
);
325 if (DEP_TYPE (fore_dep
) == REG_DEP_TRUE
)
327 if (earliest_block
!= NULL
328 && earliest_block
->index
< insn2_block
->index
)
331 /* Found a DEF-USE dependence (insn1, insn2). */
332 if (haifa_classify_insn (insn2
) != PFREE_CANDIDATE
)
333 /* insn2 not guaranteed to be a 1 base reg load. */
336 for (bb
= last_block
; bb
; bb
= bb
->aux
)
337 if (insn2_block
== bb
)
341 /* insn2 is the similar load. */
342 earliest_block
= insn2_block
;
348 return earliest_block
;
351 /* The following function adds dependencies between jumps and risky
352 insns in given ebb. */
355 add_deps_for_risky_insns (rtx head
, rtx tail
)
359 rtx last_jump
= NULL_RTX
;
360 rtx next_tail
= NEXT_INSN (tail
);
361 basic_block last_block
= NULL
, bb
;
363 for (insn
= head
; insn
!= next_tail
; insn
= NEXT_INSN (insn
))
364 if (control_flow_insn_p (insn
))
366 bb
= BLOCK_FOR_INSN (insn
);
367 bb
->aux
= last_block
;
371 else if (INSN_P (insn
) && last_jump
!= NULL_RTX
)
373 class = haifa_classify_insn (insn
);
377 case PFREE_CANDIDATE
:
378 if (flag_schedule_speculative_load
)
380 bb
= earliest_block_with_similiar_load (last_block
, insn
);
392 case PRISKY_CANDIDATE
:
393 /* ??? We could implement better checking PRISKY_CANDIDATEs
394 analogous to sched-rgn.c. */
395 /* We can not change the mode of the backward
396 dependency because REG_DEP_ANTI has the lowest
398 if (! sched_insns_conditions_mutex_p (insn
, prev
))
400 dep_def _dep
, *dep
= &_dep
;
402 init_dep (dep
, prev
, insn
, REG_DEP_ANTI
);
404 if (!(current_sched_info
->flags
& USE_DEPS_LIST
))
406 enum DEPS_ADJUST_RESULT res
;
408 res
= sd_add_or_update_dep (dep
, false);
410 /* We can't change an existing dependency with
412 gcc_assert (res
!= DEP_CHANGED
);
416 if ((current_sched_info
->flags
& DO_SPECULATION
)
417 && (spec_info
->mask
& BEGIN_CONTROL
))
418 DEP_STATUS (dep
) = set_dep_weak (DEP_ANTI
, BEGIN_CONTROL
,
421 sd_add_or_update_dep (dep
, false);
423 /* Dep_status could have been changed.
424 No assertion here. */
434 /* Maintain the invariant that bb->aux is clear after use. */
437 bb
= last_block
->aux
;
438 last_block
->aux
= NULL
;
443 /* Schedule a single extended basic block, defined by the boundaries HEAD
447 schedule_ebb (rtx head
, rtx tail
)
449 basic_block first_bb
, target_bb
;
450 struct deps tmp_deps
;
452 first_bb
= BLOCK_FOR_INSN (head
);
453 last_bb
= BLOCK_FOR_INSN (tail
);
455 if (no_real_insns_p (head
, tail
))
456 return BLOCK_FOR_INSN (tail
);
458 gcc_assert (INSN_P (head
) && INSN_P (tail
));
460 if (!bitmap_bit_p (&dont_calc_deps
, first_bb
->index
))
464 /* Compute dependencies. */
465 init_deps (&tmp_deps
);
466 sched_analyze (&tmp_deps
, head
, tail
);
467 free_deps (&tmp_deps
);
469 add_deps_for_risky_insns (head
, tail
);
471 if (targetm
.sched
.dependencies_evaluation_hook
)
472 targetm
.sched
.dependencies_evaluation_hook (head
, tail
);
474 finish_deps_global ();
477 /* Only recovery blocks can have their dependencies already calculated,
478 and they always are single block ebbs. */
479 gcc_assert (first_bb
== last_bb
);
481 /* Set priorities. */
482 current_sched_info
->sched_max_insns_priority
= 0;
483 n_insns
= set_priorities (head
, tail
);
484 current_sched_info
->sched_max_insns_priority
++;
486 current_sched_info
->prev_head
= PREV_INSN (head
);
487 current_sched_info
->next_tail
= NEXT_INSN (tail
);
489 /* rm_other_notes only removes notes which are _inside_ the
490 block---that is, it won't remove notes before the first real insn
491 or after the last real insn of the block. So if the first insn
492 has a REG_SAVE_NOTE which would otherwise be emitted before the
493 insn, it is redundant with the note before the start of the
494 block, and so we have to take it out. */
499 for (note
= REG_NOTES (head
); note
; note
= XEXP (note
, 1))
500 if (REG_NOTE_KIND (note
) == REG_SAVE_NOTE
)
501 remove_note (head
, note
);
504 /* Remove remaining note insns from the block, save them in
505 note_list. These notes are restored at the end of
506 schedule_block (). */
507 rm_other_notes (head
, tail
);
509 unlink_bb_notes (first_bb
, last_bb
);
511 current_sched_info
->queue_must_finish_empty
= 1;
513 target_bb
= first_bb
;
514 schedule_block (&target_bb
, n_insns
);
516 /* We might pack all instructions into fewer blocks,
517 so we may made some of them empty. Can't assert (b == last_bb). */
519 /* Sanity check: verify that all region insns were scheduled. */
520 gcc_assert (sched_n_insns
== n_insns
);
522 /* Free dependencies. */
523 sched_free_deps (current_sched_info
->head
, current_sched_info
->tail
, true);
525 gcc_assert (haifa_recovery_bb_ever_added_p
526 || deps_pools_are_empty_p ());
528 if (EDGE_COUNT (last_bb
->preds
) == 0)
529 /* LAST_BB is unreachable. */
531 gcc_assert (first_bb
!= last_bb
532 && EDGE_COUNT (last_bb
->succs
) == 0);
533 last_bb
= last_bb
->prev_bb
;
534 delete_basic_block (last_bb
->next_bb
);
540 /* The one entry point in this file. */
546 int probability_cutoff
;
549 if (profile_info
&& flag_branch_probabilities
)
550 probability_cutoff
= PARAM_VALUE (TRACER_MIN_BRANCH_PROBABILITY_FEEDBACK
);
552 probability_cutoff
= PARAM_VALUE (TRACER_MIN_BRANCH_PROBABILITY
);
553 probability_cutoff
= REG_BR_PROB_BASE
/ 100 * probability_cutoff
;
555 /* Taking care of this degenerate case makes the rest of
556 this code simpler. */
557 if (n_basic_blocks
== NUM_FIXED_BLOCKS
)
560 /* We need current_sched_info in init_dependency_caches, which is
561 invoked via sched_init. */
562 current_sched_info
= &ebb_sched_info
;
564 df_set_flags (DF_LR_RUN_DCE
);
565 df_note_add_problem ();
567 df_clear_flags (DF_LR_RUN_DCE
);
568 regstat_compute_calls_crossed ();
571 compute_bb_for_insn ();
573 /* Initialize DONT_CALC_DEPS and ebb-{start, end} markers. */
574 bitmap_initialize (&dont_calc_deps
, 0);
575 bitmap_clear (&dont_calc_deps
);
577 /* Schedule every region in the subroutine. */
580 rtx head
= BB_HEAD (bb
);
587 if (bb
->next_bb
== EXIT_BLOCK_PTR
588 || LABEL_P (BB_HEAD (bb
->next_bb
)))
590 FOR_EACH_EDGE (e
, ei
, bb
->succs
)
591 if ((e
->flags
& EDGE_FALLTHRU
) != 0)
595 if (e
->probability
<= probability_cutoff
)
600 /* Blah. We should fix the rest of the code not to get confused by
605 head
= NEXT_INSN (head
);
606 else if (NOTE_P (tail
))
607 tail
= PREV_INSN (tail
);
608 else if (LABEL_P (head
))
609 head
= NEXT_INSN (head
);
614 bb
= schedule_ebb (head
, tail
);
616 bitmap_clear (&dont_calc_deps
);
618 /* Reposition the prologue and epilogue notes in case we moved the
619 prologue/epilogue insns. */
620 if (reload_completed
)
621 reposition_prologue_and_epilogue_notes ();
624 regstat_free_calls_crossed ();
627 /* INSN has been added to/removed from current ebb. */
629 add_remove_insn (rtx insn ATTRIBUTE_UNUSED
, int remove_p
)
637 /* BB was added to ebb after AFTER. */
639 add_block1 (basic_block bb
, basic_block after
)
641 /* Recovery blocks are always bounded by BARRIERS,
642 therefore, they always form single block EBB,
643 therefore, we can use rec->index to identify such EBBs. */
644 if (after
== EXIT_BLOCK_PTR
)
645 bitmap_set_bit (&dont_calc_deps
, bb
->index
);
646 else if (after
== last_bb
)
650 /* Return next block in ebb chain. For parameter meaning please refer to
651 sched-int.h: struct sched_info: advance_target_bb. */
653 advance_target_bb (basic_block bb
, rtx insn
)
657 if (BLOCK_FOR_INSN (insn
) != bb
658 && control_flow_insn_p (insn
)
659 /* We handle interblock movement of the speculation check
660 or over a speculation check in
661 haifa-sched.c: move_block_after_check (). */
662 && !IS_SPECULATION_BRANCHY_CHECK_P (insn
)
663 && !IS_SPECULATION_BRANCHY_CHECK_P (BB_END (bb
)))
665 /* Assert that we don't move jumps across blocks. */
666 gcc_assert (!control_flow_insn_p (BB_END (bb
))
667 && NOTE_INSN_BASIC_BLOCK_P (BB_HEAD (bb
->next_bb
)));
674 /* Return next non empty block. */
678 gcc_assert (bb
!= last_bb
);
682 while (bb_note (bb
) == BB_END (bb
));
688 /* Fix internal data after interblock movement of jump instruction.
689 For parameter meaning please refer to
690 sched-int.h: struct sched_info: fix_recovery_cfg. */
692 fix_recovery_cfg (int bbi ATTRIBUTE_UNUSED
, int jump_bbi
, int jump_bb_nexti
)
694 gcc_assert (last_bb
->index
!= bbi
);
696 if (jump_bb_nexti
== last_bb
->index
)
697 last_bb
= BASIC_BLOCK (jump_bbi
);