OSDN Git Service

976098f4326a024504ca4d6943da951746fa1563
[pf3gnuchains/gcc-fork.git] / gcc / ifcvt.c
1 /* If-conversion support.
2    Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
3
4    This file is part of GCC.
5
6    GCC is free software; you can redistribute it and/or modify it
7    under the terms of the GNU General Public License as published by
8    the Free Software Foundation; either version 2, or (at your option)
9    any later version.
10
11    GCC is distributed in the hope that it will be useful, but WITHOUT
12    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
14    License for more details.
15
16    You should have received a copy of the GNU General Public License
17    along with GCC; see the file COPYING.  If not, write to the Free
18    Software Foundation, 59 Temple Place - Suite 330, Boston, MA
19    02111-1307, USA.  */
20
21 #include "config.h"
22 #include "system.h"
23 #include "coretypes.h"
24 #include "tm.h"
25
26 #include "rtl.h"
27 #include "regs.h"
28 #include "function.h"
29 #include "flags.h"
30 #include "insn-config.h"
31 #include "recog.h"
32 #include "except.h"
33 #include "hard-reg-set.h"
34 #include "basic-block.h"
35 #include "expr.h"
36 #include "real.h"
37 #include "output.h"
38 #include "optabs.h"
39 #include "toplev.h"
40 #include "tm_p.h"
41 #include "cfgloop.h"
42 #include "target.h"
43
44
45 #ifndef HAVE_conditional_execution
46 #define HAVE_conditional_execution 0
47 #endif
48 #ifndef HAVE_conditional_move
49 #define HAVE_conditional_move 0
50 #endif
51 #ifndef HAVE_incscc
52 #define HAVE_incscc 0
53 #endif
54 #ifndef HAVE_decscc
55 #define HAVE_decscc 0
56 #endif
57 #ifndef HAVE_trap
58 #define HAVE_trap 0
59 #endif
60 #ifndef HAVE_conditional_trap
61 #define HAVE_conditional_trap 0
62 #endif
63
64 #ifndef MAX_CONDITIONAL_EXECUTE
65 #define MAX_CONDITIONAL_EXECUTE   (BRANCH_COST + 1)
66 #endif
67
68 #define NULL_EDGE       ((struct edge_def *)NULL)
69 #define NULL_BLOCK      ((struct basic_block_def *)NULL)
70
71 /* # of IF-THEN or IF-THEN-ELSE blocks we looked at  */
72 static int num_possible_if_blocks;
73
74 /* # of IF-THEN or IF-THEN-ELSE blocks were converted to conditional
75    execution.  */
76 static int num_updated_if_blocks;
77
78 /* # of changes made which require life information to be updated.  */
79 static int num_true_changes;
80
81 /* Whether conditional execution changes were made.  */
82 static int cond_exec_changed_p;
83
84 /* True if life data ok at present.  */
85 static bool life_data_ok;
86
87 /* Forward references.  */
88 static int count_bb_insns (basic_block);
89 static rtx first_active_insn (basic_block);
90 static rtx last_active_insn (basic_block, int);
91 static int seq_contains_jump (rtx);
92 static basic_block block_fallthru (basic_block);
93 static int cond_exec_process_insns (ce_if_block_t *, rtx, rtx, rtx, rtx, int);
94 static rtx cond_exec_get_condition (rtx);
95 static int cond_exec_process_if_block (ce_if_block_t *, int);
96 static rtx noce_get_condition (rtx, rtx *);
97 static int noce_operand_ok (rtx);
98 static int noce_process_if_block (ce_if_block_t *);
99 static int process_if_block (ce_if_block_t *);
100 static void merge_if_block (ce_if_block_t *);
101 static int find_cond_trap (basic_block, edge, edge);
102 static basic_block find_if_header (basic_block, int);
103 static int block_jumps_and_fallthru_p (basic_block, basic_block);
104 static int find_if_block (ce_if_block_t *);
105 static int find_if_case_1 (basic_block, edge, edge);
106 static int find_if_case_2 (basic_block, edge, edge);
107 static int find_memory (rtx *, void *);
108 static int dead_or_predicable (basic_block, basic_block, basic_block,
109                                basic_block, int);
110 static void noce_emit_move_insn (rtx, rtx);
111 static rtx block_has_only_trap (basic_block);
112 static void mark_loop_exit_edges (void);
113 \f
114 /* Sets EDGE_LOOP_EXIT flag for all loop exits.  */
115 static void
116 mark_loop_exit_edges (void)
117 {
118   struct loops loops;
119   basic_block bb;
120   edge e;
121   
122   flow_loops_find (&loops, LOOP_TREE);
123   free_dominance_info (CDI_DOMINATORS);
124   
125   if (loops.num > 1)
126     {
127       FOR_EACH_BB (bb)
128         {
129           for (e = bb->succ; e; e = e->succ_next)
130             {
131               if (find_common_loop (bb->loop_father, e->dest->loop_father)
132                   != bb->loop_father)
133                 e->flags |= EDGE_LOOP_EXIT;
134               else
135                 e->flags &= ~EDGE_LOOP_EXIT;
136             }
137         }
138     }
139
140   flow_loops_free (&loops);
141 }
142
143 /* Count the number of non-jump active insns in BB.  */
144
145 static int
146 count_bb_insns (basic_block bb)
147 {
148   int count = 0;
149   rtx insn = BB_HEAD (bb);
150
151   while (1)
152     {
153       if (GET_CODE (insn) == CALL_INSN || GET_CODE (insn) == INSN)
154         count++;
155
156       if (insn == BB_END (bb))
157         break;
158       insn = NEXT_INSN (insn);
159     }
160
161   return count;
162 }
163
164 /* Return the first non-jump active insn in the basic block.  */
165
166 static rtx
167 first_active_insn (basic_block bb)
168 {
169   rtx insn = BB_HEAD (bb);
170
171   if (GET_CODE (insn) == CODE_LABEL)
172     {
173       if (insn == BB_END (bb))
174         return NULL_RTX;
175       insn = NEXT_INSN (insn);
176     }
177
178   while (GET_CODE (insn) == NOTE)
179     {
180       if (insn == BB_END (bb))
181         return NULL_RTX;
182       insn = NEXT_INSN (insn);
183     }
184
185   if (GET_CODE (insn) == JUMP_INSN)
186     return NULL_RTX;
187
188   return insn;
189 }
190
191 /* Return the last non-jump active (non-jump) insn in the basic block.  */
192
193 static rtx
194 last_active_insn (basic_block bb, int skip_use_p)
195 {
196   rtx insn = BB_END (bb);
197   rtx head = BB_HEAD (bb);
198
199   while (GET_CODE (insn) == NOTE
200          || GET_CODE (insn) == JUMP_INSN
201          || (skip_use_p
202              && GET_CODE (insn) == INSN
203              && GET_CODE (PATTERN (insn)) == USE))
204     {
205       if (insn == head)
206         return NULL_RTX;
207       insn = PREV_INSN (insn);
208     }
209
210   if (GET_CODE (insn) == CODE_LABEL)
211     return NULL_RTX;
212
213   return insn;
214 }
215
216 /* It is possible, especially when having dealt with multi-word
217    arithmetic, for the expanders to have emitted jumps.  Search
218    through the sequence and return TRUE if a jump exists so that
219    we can abort the conversion.  */
220
221 static int
222 seq_contains_jump (rtx insn)
223 {
224   while (insn)
225     {
226       if (GET_CODE (insn) == JUMP_INSN)
227         return 1;
228       insn = NEXT_INSN (insn);
229     }
230   return 0;
231 }
232
233 static basic_block
234 block_fallthru (basic_block bb)
235 {
236   edge e;
237
238   for (e = bb->succ;
239        e != NULL_EDGE && (e->flags & EDGE_FALLTHRU) == 0;
240        e = e->succ_next)
241     ;
242
243   return (e) ? e->dest : NULL_BLOCK;
244 }
245 \f
246 /* Go through a bunch of insns, converting them to conditional
247    execution format if possible.  Return TRUE if all of the non-note
248    insns were processed.  */
249
250 static int
251 cond_exec_process_insns (ce_if_block_t *ce_info ATTRIBUTE_UNUSED,
252                          /* if block information */rtx start,
253                          /* first insn to look at */rtx end,
254                          /* last insn to look at */rtx test,
255                          /* conditional execution test */rtx prob_val,
256                          /* probability of branch taken. */int mod_ok)
257 {
258   int must_be_last = FALSE;
259   rtx insn;
260   rtx xtest;
261   rtx pattern;
262
263   if (!start || !end)
264     return FALSE;
265
266   for (insn = start; ; insn = NEXT_INSN (insn))
267     {
268       if (GET_CODE (insn) == NOTE)
269         goto insn_done;
270
271       if (GET_CODE (insn) != INSN && GET_CODE (insn) != CALL_INSN)
272         abort ();
273
274       /* Remove USE insns that get in the way.  */
275       if (reload_completed && GET_CODE (PATTERN (insn)) == USE)
276         {
277           /* ??? Ug.  Actually unlinking the thing is problematic,
278              given what we'd have to coordinate with our callers.  */
279           PUT_CODE (insn, NOTE);
280           NOTE_LINE_NUMBER (insn) = NOTE_INSN_DELETED;
281           NOTE_SOURCE_FILE (insn) = 0;
282           goto insn_done;
283         }
284
285       /* Last insn wasn't last?  */
286       if (must_be_last)
287         return FALSE;
288
289       if (modified_in_p (test, insn))
290         {
291           if (!mod_ok)
292             return FALSE;
293           must_be_last = TRUE;
294         }
295
296       /* Now build the conditional form of the instruction.  */
297       pattern = PATTERN (insn);
298       xtest = copy_rtx (test);
299
300       /* If this is already a COND_EXEC, rewrite the test to be an AND of the
301          two conditions.  */
302       if (GET_CODE (pattern) == COND_EXEC)
303         {
304           if (GET_MODE (xtest) != GET_MODE (COND_EXEC_TEST (pattern)))
305             return FALSE;
306
307           xtest = gen_rtx_AND (GET_MODE (xtest), xtest,
308                                COND_EXEC_TEST (pattern));
309           pattern = COND_EXEC_CODE (pattern);
310         }
311
312       pattern = gen_rtx_COND_EXEC (VOIDmode, xtest, pattern);
313
314       /* If the machine needs to modify the insn being conditionally executed,
315          say for example to force a constant integer operand into a temp
316          register, do so here.  */
317 #ifdef IFCVT_MODIFY_INSN
318       IFCVT_MODIFY_INSN (ce_info, pattern, insn);
319       if (! pattern)
320         return FALSE;
321 #endif
322
323       validate_change (insn, &PATTERN (insn), pattern, 1);
324
325       if (GET_CODE (insn) == CALL_INSN && prob_val)
326         validate_change (insn, &REG_NOTES (insn),
327                          alloc_EXPR_LIST (REG_BR_PROB, prob_val,
328                                           REG_NOTES (insn)), 1);
329
330     insn_done:
331       if (insn == end)
332         break;
333     }
334
335   return TRUE;
336 }
337
338 /* Return the condition for a jump.  Do not do any special processing.  */
339
340 static rtx
341 cond_exec_get_condition (rtx jump)
342 {
343   rtx test_if, cond;
344
345   if (any_condjump_p (jump))
346     test_if = SET_SRC (pc_set (jump));
347   else
348     return NULL_RTX;
349   cond = XEXP (test_if, 0);
350
351   /* If this branches to JUMP_LABEL when the condition is false,
352      reverse the condition.  */
353   if (GET_CODE (XEXP (test_if, 2)) == LABEL_REF
354       && XEXP (XEXP (test_if, 2), 0) == JUMP_LABEL (jump))
355     {
356       enum rtx_code rev = reversed_comparison_code (cond, jump);
357       if (rev == UNKNOWN)
358         return NULL_RTX;
359
360       cond = gen_rtx_fmt_ee (rev, GET_MODE (cond), XEXP (cond, 0),
361                              XEXP (cond, 1));
362     }
363
364   return cond;
365 }
366
367 /* Given a simple IF-THEN or IF-THEN-ELSE block, attempt to convert it
368    to conditional execution.  Return TRUE if we were successful at
369    converting the block.  */
370
371 static int
372 cond_exec_process_if_block (ce_if_block_t * ce_info,
373                             /* if block information */int do_multiple_p)
374 {
375   basic_block test_bb = ce_info->test_bb;       /* last test block */
376   basic_block then_bb = ce_info->then_bb;       /* THEN */
377   basic_block else_bb = ce_info->else_bb;       /* ELSE or NULL */
378   rtx test_expr;                /* expression in IF_THEN_ELSE that is tested */
379   rtx then_start;               /* first insn in THEN block */
380   rtx then_end;                 /* last insn + 1 in THEN block */
381   rtx else_start = NULL_RTX;    /* first insn in ELSE block or NULL */
382   rtx else_end = NULL_RTX;      /* last insn + 1 in ELSE block */
383   int max;                      /* max # of insns to convert.  */
384   int then_mod_ok;              /* whether conditional mods are ok in THEN */
385   rtx true_expr;                /* test for else block insns */
386   rtx false_expr;               /* test for then block insns */
387   rtx true_prob_val;            /* probability of else block */
388   rtx false_prob_val;           /* probability of then block */
389   int n_insns;
390   enum rtx_code false_code;
391
392   /* If test is comprised of && or || elements, and we've failed at handling
393      all of them together, just use the last test if it is the special case of
394      && elements without an ELSE block.  */
395   if (!do_multiple_p && ce_info->num_multiple_test_blocks)
396     {
397       if (else_bb || ! ce_info->and_and_p)
398         return FALSE;
399
400       ce_info->test_bb = test_bb = ce_info->last_test_bb;
401       ce_info->num_multiple_test_blocks = 0;
402       ce_info->num_and_and_blocks = 0;
403       ce_info->num_or_or_blocks = 0;
404     }
405
406   /* Find the conditional jump to the ELSE or JOIN part, and isolate
407      the test.  */
408   test_expr = cond_exec_get_condition (BB_END (test_bb));
409   if (! test_expr)
410     return FALSE;
411
412   /* If the conditional jump is more than just a conditional jump,
413      then we can not do conditional execution conversion on this block.  */
414   if (! onlyjump_p (BB_END (test_bb)))
415     return FALSE;
416
417   /* Collect the bounds of where we're to search, skipping any labels, jumps
418      and notes at the beginning and end of the block.  Then count the total
419      number of insns and see if it is small enough to convert.  */
420   then_start = first_active_insn (then_bb);
421   then_end = last_active_insn (then_bb, TRUE);
422   n_insns = ce_info->num_then_insns = count_bb_insns (then_bb);
423   max = MAX_CONDITIONAL_EXECUTE;
424
425   if (else_bb)
426     {
427       max *= 2;
428       else_start = first_active_insn (else_bb);
429       else_end = last_active_insn (else_bb, TRUE);
430       n_insns += ce_info->num_else_insns = count_bb_insns (else_bb);
431     }
432
433   if (n_insns > max)
434     return FALSE;
435
436   /* Map test_expr/test_jump into the appropriate MD tests to use on
437      the conditionally executed code.  */
438
439   true_expr = test_expr;
440
441   false_code = reversed_comparison_code (true_expr, BB_END (test_bb));
442   if (false_code != UNKNOWN)
443     false_expr = gen_rtx_fmt_ee (false_code, GET_MODE (true_expr),
444                                  XEXP (true_expr, 0), XEXP (true_expr, 1));
445   else
446     false_expr = NULL_RTX;
447
448 #ifdef IFCVT_MODIFY_TESTS
449   /* If the machine description needs to modify the tests, such as setting a
450      conditional execution register from a comparison, it can do so here.  */
451   IFCVT_MODIFY_TESTS (ce_info, true_expr, false_expr);
452
453   /* See if the conversion failed.  */
454   if (!true_expr || !false_expr)
455     goto fail;
456 #endif
457
458   true_prob_val = find_reg_note (BB_END (test_bb), REG_BR_PROB, NULL_RTX);
459   if (true_prob_val)
460     {
461       true_prob_val = XEXP (true_prob_val, 0);
462       false_prob_val = GEN_INT (REG_BR_PROB_BASE - INTVAL (true_prob_val));
463     }
464   else
465     false_prob_val = NULL_RTX;
466
467   /* If we have && or || tests, do them here.  These tests are in the adjacent
468      blocks after the first block containing the test.  */
469   if (ce_info->num_multiple_test_blocks > 0)
470     {
471       basic_block bb = test_bb;
472       basic_block last_test_bb = ce_info->last_test_bb;
473
474       if (! false_expr)
475         goto fail;
476
477       do
478         {
479           rtx start, end;
480           rtx t, f;
481
482           bb = block_fallthru (bb);
483           start = first_active_insn (bb);
484           end = last_active_insn (bb, TRUE);
485           if (start
486               && ! cond_exec_process_insns (ce_info, start, end, false_expr,
487                                             false_prob_val, FALSE))
488             goto fail;
489
490           /* If the conditional jump is more than just a conditional jump, then
491              we can not do conditional execution conversion on this block.  */
492           if (! onlyjump_p (BB_END (bb)))
493             goto fail;
494
495           /* Find the conditional jump and isolate the test.  */
496           t = cond_exec_get_condition (BB_END (bb));
497           if (! t)
498             goto fail;
499
500           f = gen_rtx_fmt_ee (reverse_condition (GET_CODE (t)),
501                               GET_MODE (t),
502                               XEXP (t, 0),
503                               XEXP (t, 1));
504
505           if (ce_info->and_and_p)
506             {
507               t = gen_rtx_AND (GET_MODE (t), true_expr, t);
508               f = gen_rtx_IOR (GET_MODE (t), false_expr, f);
509             }
510           else
511             {
512               t = gen_rtx_IOR (GET_MODE (t), true_expr, t);
513               f = gen_rtx_AND (GET_MODE (t), false_expr, f);
514             }
515
516           /* If the machine description needs to modify the tests, such as
517              setting a conditional execution register from a comparison, it can
518              do so here.  */
519 #ifdef IFCVT_MODIFY_MULTIPLE_TESTS
520           IFCVT_MODIFY_MULTIPLE_TESTS (ce_info, bb, t, f);
521
522           /* See if the conversion failed.  */
523           if (!t || !f)
524             goto fail;
525 #endif
526
527           true_expr = t;
528           false_expr = f;
529         }
530       while (bb != last_test_bb);
531     }
532
533   /* For IF-THEN-ELSE blocks, we don't allow modifications of the test
534      on then THEN block.  */
535   then_mod_ok = (else_bb == NULL_BLOCK);
536
537   /* Go through the THEN and ELSE blocks converting the insns if possible
538      to conditional execution.  */
539
540   if (then_end
541       && (! false_expr
542           || ! cond_exec_process_insns (ce_info, then_start, then_end,
543                                         false_expr, false_prob_val,
544                                         then_mod_ok)))
545     goto fail;
546
547   if (else_bb && else_end
548       && ! cond_exec_process_insns (ce_info, else_start, else_end,
549                                     true_expr, true_prob_val, TRUE))
550     goto fail;
551
552   /* If we cannot apply the changes, fail.  Do not go through the normal fail
553      processing, since apply_change_group will call cancel_changes.  */
554   if (! apply_change_group ())
555     {
556 #ifdef IFCVT_MODIFY_CANCEL
557       /* Cancel any machine dependent changes.  */
558       IFCVT_MODIFY_CANCEL (ce_info);
559 #endif
560       return FALSE;
561     }
562
563 #ifdef IFCVT_MODIFY_FINAL
564   /* Do any machine dependent final modifications.  */
565   IFCVT_MODIFY_FINAL (ce_info);
566 #endif
567
568   /* Conversion succeeded.  */
569   if (dump_file)
570     fprintf (dump_file, "%d insn%s converted to conditional execution.\n",
571              n_insns, (n_insns == 1) ? " was" : "s were");
572
573   /* Merge the blocks!  */
574   merge_if_block (ce_info);
575   cond_exec_changed_p = TRUE;
576   return TRUE;
577
578  fail:
579 #ifdef IFCVT_MODIFY_CANCEL
580   /* Cancel any machine dependent changes.  */
581   IFCVT_MODIFY_CANCEL (ce_info);
582 #endif
583
584   cancel_changes (0);
585   return FALSE;
586 }
587 \f
588 /* Used by noce_process_if_block to communicate with its subroutines.
589
590    The subroutines know that A and B may be evaluated freely.  They
591    know that X is a register.  They should insert new instructions
592    before cond_earliest.  */
593
594 struct noce_if_info
595 {
596   basic_block test_bb;
597   rtx insn_a, insn_b;
598   rtx x, a, b;
599   rtx jump, cond, cond_earliest;
600 };
601
602 static rtx noce_emit_store_flag (struct noce_if_info *, rtx, int, int);
603 static int noce_try_move (struct noce_if_info *);
604 static int noce_try_store_flag (struct noce_if_info *);
605 static int noce_try_addcc (struct noce_if_info *);
606 static int noce_try_store_flag_constants (struct noce_if_info *);
607 static int noce_try_store_flag_mask (struct noce_if_info *);
608 static rtx noce_emit_cmove (struct noce_if_info *, rtx, enum rtx_code, rtx,
609                             rtx, rtx, rtx);
610 static int noce_try_cmove (struct noce_if_info *);
611 static int noce_try_cmove_arith (struct noce_if_info *);
612 static rtx noce_get_alt_condition (struct noce_if_info *, rtx, rtx *);
613 static int noce_try_minmax (struct noce_if_info *);
614 static int noce_try_abs (struct noce_if_info *);
615
616 /* Helper function for noce_try_store_flag*.  */
617
618 static rtx
619 noce_emit_store_flag (struct noce_if_info *if_info, rtx x, int reversep,
620                       int normalize)
621 {
622   rtx cond = if_info->cond;
623   int cond_complex;
624   enum rtx_code code;
625
626   cond_complex = (! general_operand (XEXP (cond, 0), VOIDmode)
627                   || ! general_operand (XEXP (cond, 1), VOIDmode));
628
629   /* If earliest == jump, or when the condition is complex, try to
630      build the store_flag insn directly.  */
631
632   if (cond_complex)
633     cond = XEXP (SET_SRC (pc_set (if_info->jump)), 0);
634
635   if (reversep)
636     code = reversed_comparison_code (cond, if_info->jump);
637   else
638     code = GET_CODE (cond);
639
640   if ((if_info->cond_earliest == if_info->jump || cond_complex)
641       && (normalize == 0 || STORE_FLAG_VALUE == normalize))
642     {
643       rtx tmp;
644
645       tmp = gen_rtx_fmt_ee (code, GET_MODE (x), XEXP (cond, 0),
646                             XEXP (cond, 1));
647       tmp = gen_rtx_SET (VOIDmode, x, tmp);
648
649       start_sequence ();
650       tmp = emit_insn (tmp);
651
652       if (recog_memoized (tmp) >= 0)
653         {
654           tmp = get_insns ();
655           end_sequence ();
656           emit_insn (tmp);
657
658           if_info->cond_earliest = if_info->jump;
659
660           return x;
661         }
662
663       end_sequence ();
664     }
665
666   /* Don't even try if the comparison operands or the mode of X are weird.  */
667   if (cond_complex || !SCALAR_INT_MODE_P (GET_MODE (x)))
668     return NULL_RTX;
669
670   return emit_store_flag (x, code, XEXP (cond, 0),
671                           XEXP (cond, 1), VOIDmode,
672                           (code == LTU || code == LEU
673                            || code == GEU || code == GTU), normalize);
674 }
675
676 /* Emit instruction to move an rtx, possibly into STRICT_LOW_PART.
677    X is the destination/target and Y is the value to copy.  */
678
679 static void
680 noce_emit_move_insn (rtx x, rtx y)
681 {
682   enum machine_mode outmode, inmode;
683   rtx outer, inner;
684   int bitpos;
685
686   if (GET_CODE (x) != STRICT_LOW_PART)
687     {
688       emit_move_insn (x, y);
689       return;
690     }
691
692   outer = XEXP (x, 0);
693   inner = XEXP (outer, 0);
694   outmode = GET_MODE (outer);
695   inmode = GET_MODE (inner);
696   bitpos = SUBREG_BYTE (outer) * BITS_PER_UNIT;
697   store_bit_field (inner, GET_MODE_BITSIZE (outmode), bitpos, outmode, y,
698                    GET_MODE_BITSIZE (inmode));
699 }
700
701 /* Unshare sequence SEQ produced by if conversion.  We care to mark
702    all arguments that may be shared with outer instruction stream.  */
703 static void
704 unshare_ifcvt_sequence (struct noce_if_info *if_info, rtx seq)
705 {
706   set_used_flags (if_info->x);
707   set_used_flags (if_info->cond);
708   unshare_all_rtl_in_chain (seq);
709 }
710
711 /* Convert "if (a != b) x = a; else x = b" into "x = a" and
712    "if (a == b) x = a; else x = b" into "x = b".  */
713
714 static int
715 noce_try_move (struct noce_if_info *if_info)
716 {
717   rtx cond = if_info->cond;
718   enum rtx_code code = GET_CODE (cond);
719   rtx y, seq;
720
721   if (code != NE && code != EQ)
722     return FALSE;
723
724   /* This optimization isn't valid if either A or B could be a NaN
725      or a signed zero.  */
726   if (HONOR_NANS (GET_MODE (if_info->x))
727       || HONOR_SIGNED_ZEROS (GET_MODE (if_info->x)))
728     return FALSE;
729
730   /* Check whether the operands of the comparison are A and in
731      either order.  */
732   if ((rtx_equal_p (if_info->a, XEXP (cond, 0))
733        && rtx_equal_p (if_info->b, XEXP (cond, 1)))
734       || (rtx_equal_p (if_info->a, XEXP (cond, 1))
735           && rtx_equal_p (if_info->b, XEXP (cond, 0))))
736     {
737       y = (code == EQ) ? if_info->a : if_info->b;
738
739       /* Avoid generating the move if the source is the destination.  */
740       if (! rtx_equal_p (if_info->x, y))
741         {
742           start_sequence ();
743           noce_emit_move_insn (if_info->x, y);
744           seq = get_insns ();
745           unshare_ifcvt_sequence (if_info, seq);
746           end_sequence ();
747           emit_insn_before_setloc (seq, if_info->jump,
748                                    INSN_LOCATOR (if_info->insn_a));
749         }
750       return TRUE;
751     }
752   return FALSE;
753 }
754
755 /* Convert "if (test) x = 1; else x = 0".
756
757    Only try 0 and STORE_FLAG_VALUE here.  Other combinations will be
758    tried in noce_try_store_flag_constants after noce_try_cmove has had
759    a go at the conversion.  */
760
761 static int
762 noce_try_store_flag (struct noce_if_info *if_info)
763 {
764   int reversep;
765   rtx target, seq;
766
767   if (GET_CODE (if_info->b) == CONST_INT
768       && INTVAL (if_info->b) == STORE_FLAG_VALUE
769       && if_info->a == const0_rtx)
770     reversep = 0;
771   else if (if_info->b == const0_rtx
772            && GET_CODE (if_info->a) == CONST_INT
773            && INTVAL (if_info->a) == STORE_FLAG_VALUE
774            && (reversed_comparison_code (if_info->cond, if_info->jump)
775                != UNKNOWN))
776     reversep = 1;
777   else
778     return FALSE;
779
780   start_sequence ();
781
782   target = noce_emit_store_flag (if_info, if_info->x, reversep, 0);
783   if (target)
784     {
785       if (target != if_info->x)
786         noce_emit_move_insn (if_info->x, target);
787
788       seq = get_insns ();
789       unshare_ifcvt_sequence (if_info, seq);
790       end_sequence ();
791       emit_insn_before_setloc (seq, if_info->jump, INSN_LOCATOR (if_info->insn_a));
792
793       return TRUE;
794     }
795   else
796     {
797       end_sequence ();
798       return FALSE;
799     }
800 }
801
802 /* Convert "if (test) x = a; else x = b", for A and B constant.  */
803
804 static int
805 noce_try_store_flag_constants (struct noce_if_info *if_info)
806 {
807   rtx target, seq;
808   int reversep;
809   HOST_WIDE_INT itrue, ifalse, diff, tmp;
810   int normalize, can_reverse;
811   enum machine_mode mode;
812
813   if (! no_new_pseudos
814       && GET_CODE (if_info->a) == CONST_INT
815       && GET_CODE (if_info->b) == CONST_INT)
816     {
817       mode = GET_MODE (if_info->x);
818       ifalse = INTVAL (if_info->a);
819       itrue = INTVAL (if_info->b);
820
821       /* Make sure we can represent the difference between the two values.  */
822       if ((itrue - ifalse > 0)
823           != ((ifalse < 0) != (itrue < 0) ? ifalse < 0 : ifalse < itrue))
824         return FALSE;
825
826       diff = trunc_int_for_mode (itrue - ifalse, mode);
827
828       can_reverse = (reversed_comparison_code (if_info->cond, if_info->jump)
829                      != UNKNOWN);
830
831       reversep = 0;
832       if (diff == STORE_FLAG_VALUE || diff == -STORE_FLAG_VALUE)
833         normalize = 0;
834       else if (ifalse == 0 && exact_log2 (itrue) >= 0
835                && (STORE_FLAG_VALUE == 1
836                    || BRANCH_COST >= 2))
837         normalize = 1;
838       else if (itrue == 0 && exact_log2 (ifalse) >= 0 && can_reverse
839                && (STORE_FLAG_VALUE == 1 || BRANCH_COST >= 2))
840         normalize = 1, reversep = 1;
841       else if (itrue == -1
842                && (STORE_FLAG_VALUE == -1
843                    || BRANCH_COST >= 2))
844         normalize = -1;
845       else if (ifalse == -1 && can_reverse
846                && (STORE_FLAG_VALUE == -1 || BRANCH_COST >= 2))
847         normalize = -1, reversep = 1;
848       else if ((BRANCH_COST >= 2 && STORE_FLAG_VALUE == -1)
849                || BRANCH_COST >= 3)
850         normalize = -1;
851       else
852         return FALSE;
853
854       if (reversep)
855         {
856           tmp = itrue; itrue = ifalse; ifalse = tmp;
857           diff = trunc_int_for_mode (-diff, mode);
858         }
859
860       start_sequence ();
861       target = noce_emit_store_flag (if_info, if_info->x, reversep, normalize);
862       if (! target)
863         {
864           end_sequence ();
865           return FALSE;
866         }
867
868       /* if (test) x = 3; else x = 4;
869          =>   x = 3 + (test == 0);  */
870       if (diff == STORE_FLAG_VALUE || diff == -STORE_FLAG_VALUE)
871         {
872           target = expand_simple_binop (mode,
873                                         (diff == STORE_FLAG_VALUE
874                                          ? PLUS : MINUS),
875                                         GEN_INT (ifalse), target, if_info->x, 0,
876                                         OPTAB_WIDEN);
877         }
878
879       /* if (test) x = 8; else x = 0;
880          =>   x = (test != 0) << 3;  */
881       else if (ifalse == 0 && (tmp = exact_log2 (itrue)) >= 0)
882         {
883           target = expand_simple_binop (mode, ASHIFT,
884                                         target, GEN_INT (tmp), if_info->x, 0,
885                                         OPTAB_WIDEN);
886         }
887
888       /* if (test) x = -1; else x = b;
889          =>   x = -(test != 0) | b;  */
890       else if (itrue == -1)
891         {
892           target = expand_simple_binop (mode, IOR,
893                                         target, GEN_INT (ifalse), if_info->x, 0,
894                                         OPTAB_WIDEN);
895         }
896
897       /* if (test) x = a; else x = b;
898          =>   x = (-(test != 0) & (b - a)) + a;  */
899       else
900         {
901           target = expand_simple_binop (mode, AND,
902                                         target, GEN_INT (diff), if_info->x, 0,
903                                         OPTAB_WIDEN);
904           if (target)
905             target = expand_simple_binop (mode, PLUS,
906                                           target, GEN_INT (ifalse),
907                                           if_info->x, 0, OPTAB_WIDEN);
908         }
909
910       if (! target)
911         {
912           end_sequence ();
913           return FALSE;
914         }
915
916       if (target != if_info->x)
917         noce_emit_move_insn (if_info->x, target);
918
919       seq = get_insns ();
920       unshare_ifcvt_sequence (if_info, seq);
921       end_sequence ();
922
923       if (seq_contains_jump (seq))
924         return FALSE;
925
926       emit_insn_before_setloc (seq, if_info->jump, INSN_LOCATOR (if_info->insn_a));
927
928       return TRUE;
929     }
930
931   return FALSE;
932 }
933
934 /* Convert "if (test) foo++" into "foo += (test != 0)", and
935    similarly for "foo--".  */
936
937 static int
938 noce_try_addcc (struct noce_if_info *if_info)
939 {
940   rtx target, seq;
941   int subtract, normalize;
942
943   if (! no_new_pseudos
944       && GET_CODE (if_info->a) == PLUS
945       && rtx_equal_p (XEXP (if_info->a, 0), if_info->b)
946       && (reversed_comparison_code (if_info->cond, if_info->jump)
947           != UNKNOWN))
948     {
949       rtx cond = if_info->cond;
950       enum rtx_code code = reversed_comparison_code (cond, if_info->jump);
951
952       /* First try to use addcc pattern.  */
953       if (general_operand (XEXP (cond, 0), VOIDmode)
954           && general_operand (XEXP (cond, 1), VOIDmode))
955         {
956           start_sequence ();
957           target = emit_conditional_add (if_info->x, code,
958                                          XEXP (cond, 0),
959                                          XEXP (cond, 1),
960                                          VOIDmode,
961                                          if_info->b,
962                                          XEXP (if_info->a, 1),
963                                          GET_MODE (if_info->x),
964                                          (code == LTU || code == GEU
965                                           || code == LEU || code == GTU));
966           if (target)
967             {
968               if (target != if_info->x)
969                 noce_emit_move_insn (if_info->x, target);
970
971               seq = get_insns ();
972               unshare_ifcvt_sequence (if_info, seq);
973               end_sequence ();
974               emit_insn_before_setloc (seq, if_info->jump,
975                                       INSN_LOCATOR (if_info->insn_a));
976               return TRUE;
977             }
978           end_sequence ();
979         }
980
981       /* If that fails, construct conditional increment or decrement using
982          setcc.  */
983       if (BRANCH_COST >= 2
984           && (XEXP (if_info->a, 1) == const1_rtx
985               || XEXP (if_info->a, 1) == constm1_rtx))
986         {
987           start_sequence ();
988           if (STORE_FLAG_VALUE == INTVAL (XEXP (if_info->a, 1)))
989             subtract = 0, normalize = 0;
990           else if (-STORE_FLAG_VALUE == INTVAL (XEXP (if_info->a, 1)))
991             subtract = 1, normalize = 0;
992           else
993             subtract = 0, normalize = INTVAL (XEXP (if_info->a, 1));
994
995
996           target = noce_emit_store_flag (if_info,
997                                          gen_reg_rtx (GET_MODE (if_info->x)),
998                                          1, normalize);
999
1000           if (target)
1001             target = expand_simple_binop (GET_MODE (if_info->x),
1002                                           subtract ? MINUS : PLUS,
1003                                           if_info->b, target, if_info->x,
1004                                           0, OPTAB_WIDEN);
1005           if (target)
1006             {
1007               if (target != if_info->x)
1008                 noce_emit_move_insn (if_info->x, target);
1009
1010               seq = get_insns ();
1011               unshare_ifcvt_sequence (if_info, seq);
1012               end_sequence ();
1013
1014               if (seq_contains_jump (seq))
1015                 return FALSE;
1016
1017               emit_insn_before_setloc (seq, if_info->jump,
1018                                       INSN_LOCATOR (if_info->insn_a));
1019
1020               return TRUE;
1021             }
1022           end_sequence ();
1023         }
1024     }
1025
1026   return FALSE;
1027 }
1028
1029 /* Convert "if (test) x = 0;" to "x &= -(test == 0);"  */
1030
1031 static int
1032 noce_try_store_flag_mask (struct noce_if_info *if_info)
1033 {
1034   rtx target, seq;
1035   int reversep;
1036
1037   reversep = 0;
1038   if (! no_new_pseudos
1039       && (BRANCH_COST >= 2
1040           || STORE_FLAG_VALUE == -1)
1041       && ((if_info->a == const0_rtx
1042            && rtx_equal_p (if_info->b, if_info->x))
1043           || ((reversep = (reversed_comparison_code (if_info->cond,
1044                                                      if_info->jump)
1045                            != UNKNOWN))
1046               && if_info->b == const0_rtx
1047               && rtx_equal_p (if_info->a, if_info->x))))
1048     {
1049       start_sequence ();
1050       target = noce_emit_store_flag (if_info,
1051                                      gen_reg_rtx (GET_MODE (if_info->x)),
1052                                      reversep, -1);
1053       if (target)
1054         target = expand_simple_binop (GET_MODE (if_info->x), AND,
1055                                       if_info->x,
1056                                       target, if_info->x, 0,
1057                                       OPTAB_WIDEN);
1058
1059       if (target)
1060         {
1061           if (target != if_info->x)
1062             noce_emit_move_insn (if_info->x, target);
1063
1064           seq = get_insns ();
1065           unshare_ifcvt_sequence (if_info, seq);
1066           end_sequence ();
1067
1068           if (seq_contains_jump (seq))
1069             return FALSE;
1070
1071           emit_insn_before_setloc (seq, if_info->jump,
1072                                   INSN_LOCATOR (if_info->insn_a));
1073
1074           return TRUE;
1075         }
1076
1077       end_sequence ();
1078     }
1079
1080   return FALSE;
1081 }
1082
1083 /* Helper function for noce_try_cmove and noce_try_cmove_arith.  */
1084
1085 static rtx
1086 noce_emit_cmove (struct noce_if_info *if_info, rtx x, enum rtx_code code,
1087                  rtx cmp_a, rtx cmp_b, rtx vfalse, rtx vtrue)
1088 {
1089   /* If earliest == jump, try to build the cmove insn directly.
1090      This is helpful when combine has created some complex condition
1091      (like for alpha's cmovlbs) that we can't hope to regenerate
1092      through the normal interface.  */
1093
1094   if (if_info->cond_earliest == if_info->jump)
1095     {
1096       rtx tmp;
1097
1098       tmp = gen_rtx_fmt_ee (code, GET_MODE (if_info->cond), cmp_a, cmp_b);
1099       tmp = gen_rtx_IF_THEN_ELSE (GET_MODE (x), tmp, vtrue, vfalse);
1100       tmp = gen_rtx_SET (VOIDmode, x, tmp);
1101
1102       start_sequence ();
1103       tmp = emit_insn (tmp);
1104
1105       if (recog_memoized (tmp) >= 0)
1106         {
1107           tmp = get_insns ();
1108           end_sequence ();
1109           emit_insn (tmp);
1110
1111           return x;
1112         }
1113
1114       end_sequence ();
1115     }
1116
1117   /* Don't even try if the comparison operands are weird.  */
1118   if (! general_operand (cmp_a, GET_MODE (cmp_a))
1119       || ! general_operand (cmp_b, GET_MODE (cmp_b)))
1120     return NULL_RTX;
1121
1122 #if HAVE_conditional_move
1123   return emit_conditional_move (x, code, cmp_a, cmp_b, VOIDmode,
1124                                 vtrue, vfalse, GET_MODE (x),
1125                                 (code == LTU || code == GEU
1126                                  || code == LEU || code == GTU));
1127 #else
1128   /* We'll never get here, as noce_process_if_block doesn't call the
1129      functions involved.  Ifdef code, however, should be discouraged
1130      because it leads to typos in the code not selected.  However,
1131      emit_conditional_move won't exist either.  */
1132   return NULL_RTX;
1133 #endif
1134 }
1135
1136 /* Try only simple constants and registers here.  More complex cases
1137    are handled in noce_try_cmove_arith after noce_try_store_flag_arith
1138    has had a go at it.  */
1139
1140 static int
1141 noce_try_cmove (struct noce_if_info *if_info)
1142 {
1143   enum rtx_code code;
1144   rtx target, seq;
1145
1146   if ((CONSTANT_P (if_info->a) || register_operand (if_info->a, VOIDmode))
1147       && (CONSTANT_P (if_info->b) || register_operand (if_info->b, VOIDmode)))
1148     {
1149       start_sequence ();
1150
1151       code = GET_CODE (if_info->cond);
1152       target = noce_emit_cmove (if_info, if_info->x, code,
1153                                 XEXP (if_info->cond, 0),
1154                                 XEXP (if_info->cond, 1),
1155                                 if_info->a, if_info->b);
1156
1157       if (target)
1158         {
1159           if (target != if_info->x)
1160             noce_emit_move_insn (if_info->x, target);
1161
1162           seq = get_insns ();
1163           unshare_ifcvt_sequence (if_info, seq);
1164           end_sequence ();
1165           emit_insn_before_setloc (seq, if_info->jump,
1166                                   INSN_LOCATOR (if_info->insn_a));
1167           return TRUE;
1168         }
1169       else
1170         {
1171           end_sequence ();
1172           return FALSE;
1173         }
1174     }
1175
1176   return FALSE;
1177 }
1178
1179 /* Try more complex cases involving conditional_move.  */
1180
1181 static int
1182 noce_try_cmove_arith (struct noce_if_info *if_info)
1183 {
1184   rtx a = if_info->a;
1185   rtx b = if_info->b;
1186   rtx x = if_info->x;
1187   rtx insn_a, insn_b;
1188   rtx tmp, target;
1189   int is_mem = 0;
1190   enum rtx_code code;
1191
1192   /* A conditional move from two memory sources is equivalent to a
1193      conditional on their addresses followed by a load.  Don't do this
1194      early because it'll screw alias analysis.  Note that we've
1195      already checked for no side effects.  */
1196   if (! no_new_pseudos && cse_not_expected
1197       && GET_CODE (a) == MEM && GET_CODE (b) == MEM
1198       && BRANCH_COST >= 5)
1199     {
1200       a = XEXP (a, 0);
1201       b = XEXP (b, 0);
1202       x = gen_reg_rtx (Pmode);
1203       is_mem = 1;
1204     }
1205
1206   /* ??? We could handle this if we knew that a load from A or B could
1207      not fault.  This is also true if we've already loaded
1208      from the address along the path from ENTRY.  */
1209   else if (may_trap_p (a) || may_trap_p (b))
1210     return FALSE;
1211
1212   /* if (test) x = a + b; else x = c - d;
1213      => y = a + b;
1214         x = c - d;
1215         if (test)
1216           x = y;
1217   */
1218
1219   code = GET_CODE (if_info->cond);
1220   insn_a = if_info->insn_a;
1221   insn_b = if_info->insn_b;
1222
1223   /* Possibly rearrange operands to make things come out more natural.  */
1224   if (reversed_comparison_code (if_info->cond, if_info->jump) != UNKNOWN)
1225     {
1226       int reversep = 0;
1227       if (rtx_equal_p (b, x))
1228         reversep = 1;
1229       else if (general_operand (b, GET_MODE (b)))
1230         reversep = 1;
1231
1232       if (reversep)
1233         {
1234           code = reversed_comparison_code (if_info->cond, if_info->jump);
1235           tmp = a, a = b, b = tmp;
1236           tmp = insn_a, insn_a = insn_b, insn_b = tmp;
1237         }
1238     }
1239
1240   start_sequence ();
1241
1242   /* If either operand is complex, load it into a register first.
1243      The best way to do this is to copy the original insn.  In this
1244      way we preserve any clobbers etc that the insn may have had.
1245      This is of course not possible in the IS_MEM case.  */
1246   if (! general_operand (a, GET_MODE (a)))
1247     {
1248       rtx set;
1249
1250       if (no_new_pseudos)
1251         goto end_seq_and_fail;
1252
1253       if (is_mem)
1254         {
1255           tmp = gen_reg_rtx (GET_MODE (a));
1256           tmp = emit_insn (gen_rtx_SET (VOIDmode, tmp, a));
1257         }
1258       else if (! insn_a)
1259         goto end_seq_and_fail;
1260       else
1261         {
1262           a = gen_reg_rtx (GET_MODE (a));
1263           tmp = copy_rtx (insn_a);
1264           set = single_set (tmp);
1265           SET_DEST (set) = a;
1266           tmp = emit_insn (PATTERN (tmp));
1267         }
1268       if (recog_memoized (tmp) < 0)
1269         goto end_seq_and_fail;
1270     }
1271   if (! general_operand (b, GET_MODE (b)))
1272     {
1273       rtx set;
1274
1275       if (no_new_pseudos)
1276         goto end_seq_and_fail;
1277
1278       if (is_mem)
1279         {
1280           tmp = gen_reg_rtx (GET_MODE (b));
1281           tmp = emit_insn (gen_rtx_SET (VOIDmode,
1282                                         tmp,
1283                                         b));
1284         }
1285       else if (! insn_b)
1286         goto end_seq_and_fail;
1287       else
1288         {
1289           b = gen_reg_rtx (GET_MODE (b));
1290           tmp = copy_rtx (insn_b);
1291           set = single_set (tmp);
1292           SET_DEST (set) = b;
1293           tmp = emit_insn (PATTERN (tmp));
1294         }
1295       if (recog_memoized (tmp) < 0)
1296         goto end_seq_and_fail;
1297     }
1298
1299   target = noce_emit_cmove (if_info, x, code, XEXP (if_info->cond, 0),
1300                             XEXP (if_info->cond, 1), a, b);
1301
1302   if (! target)
1303     goto end_seq_and_fail;
1304
1305   /* If we're handling a memory for above, emit the load now.  */
1306   if (is_mem)
1307     {
1308       tmp = gen_rtx_MEM (GET_MODE (if_info->x), target);
1309
1310       /* Copy over flags as appropriate.  */
1311       if (MEM_VOLATILE_P (if_info->a) || MEM_VOLATILE_P (if_info->b))
1312         MEM_VOLATILE_P (tmp) = 1;
1313       if (MEM_IN_STRUCT_P (if_info->a) && MEM_IN_STRUCT_P (if_info->b))
1314         MEM_IN_STRUCT_P (tmp) = 1;
1315       if (MEM_SCALAR_P (if_info->a) && MEM_SCALAR_P (if_info->b))
1316         MEM_SCALAR_P (tmp) = 1;
1317       if (MEM_ALIAS_SET (if_info->a) == MEM_ALIAS_SET (if_info->b))
1318         set_mem_alias_set (tmp, MEM_ALIAS_SET (if_info->a));
1319       set_mem_align (tmp,
1320                      MIN (MEM_ALIGN (if_info->a), MEM_ALIGN (if_info->b)));
1321
1322       noce_emit_move_insn (if_info->x, tmp);
1323     }
1324   else if (target != x)
1325     noce_emit_move_insn (x, target);
1326
1327   tmp = get_insns ();
1328   unshare_ifcvt_sequence (if_info, tmp);
1329   end_sequence ();
1330   emit_insn_before_setloc (tmp, if_info->jump, INSN_LOCATOR (if_info->insn_a));
1331   return TRUE;
1332
1333  end_seq_and_fail:
1334   end_sequence ();
1335   return FALSE;
1336 }
1337
1338 /* For most cases, the simplified condition we found is the best
1339    choice, but this is not the case for the min/max/abs transforms.
1340    For these we wish to know that it is A or B in the condition.  */
1341
1342 static rtx
1343 noce_get_alt_condition (struct noce_if_info *if_info, rtx target,
1344                         rtx *earliest)
1345 {
1346   rtx cond, set, insn;
1347   int reverse;
1348
1349   /* If target is already mentioned in the known condition, return it.  */
1350   if (reg_mentioned_p (target, if_info->cond))
1351     {
1352       *earliest = if_info->cond_earliest;
1353       return if_info->cond;
1354     }
1355
1356   set = pc_set (if_info->jump);
1357   cond = XEXP (SET_SRC (set), 0);
1358   reverse
1359     = GET_CODE (XEXP (SET_SRC (set), 2)) == LABEL_REF
1360       && XEXP (XEXP (SET_SRC (set), 2), 0) == JUMP_LABEL (if_info->jump);
1361
1362   /* If we're looking for a constant, try to make the conditional
1363      have that constant in it.  There are two reasons why it may
1364      not have the constant we want:
1365
1366      1. GCC may have needed to put the constant in a register, because
1367         the target can't compare directly against that constant.  For
1368         this case, we look for a SET immediately before the comparison
1369         that puts a constant in that register.
1370
1371      2. GCC may have canonicalized the conditional, for example
1372         replacing "if x < 4" with "if x <= 3".  We can undo that (or
1373         make equivalent types of changes) to get the constants we need
1374         if they're off by one in the right direction.  */
1375
1376   if (GET_CODE (target) == CONST_INT)
1377     {
1378       enum rtx_code code = GET_CODE (if_info->cond);
1379       rtx op_a = XEXP (if_info->cond, 0);
1380       rtx op_b = XEXP (if_info->cond, 1);
1381       rtx prev_insn;
1382
1383       /* First, look to see if we put a constant in a register.  */
1384       prev_insn = PREV_INSN (if_info->cond_earliest);
1385       if (prev_insn
1386           && INSN_P (prev_insn)
1387           && GET_CODE (PATTERN (prev_insn)) == SET)
1388         {
1389           rtx src = find_reg_equal_equiv_note (prev_insn);
1390           if (!src)
1391             src = SET_SRC (PATTERN (prev_insn));
1392           if (GET_CODE (src) == CONST_INT)
1393             {
1394               if (rtx_equal_p (op_a, SET_DEST (PATTERN (prev_insn))))
1395                 op_a = src;
1396               else if (rtx_equal_p (op_b, SET_DEST (PATTERN (prev_insn))))
1397                 op_b = src;
1398
1399               if (GET_CODE (op_a) == CONST_INT)
1400                 {
1401                   rtx tmp = op_a;
1402                   op_a = op_b;
1403                   op_b = tmp;
1404                   code = swap_condition (code);
1405                 }
1406             }
1407         }
1408
1409       /* Now, look to see if we can get the right constant by
1410          adjusting the conditional.  */
1411       if (GET_CODE (op_b) == CONST_INT)
1412         {
1413           HOST_WIDE_INT desired_val = INTVAL (target);
1414           HOST_WIDE_INT actual_val = INTVAL (op_b);
1415
1416           switch (code)
1417             {
1418             case LT:
1419               if (actual_val == desired_val + 1)
1420                 {
1421                   code = LE;
1422                   op_b = GEN_INT (desired_val);
1423                 }
1424               break;
1425             case LE:
1426               if (actual_val == desired_val - 1)
1427                 {
1428                   code = LT;
1429                   op_b = GEN_INT (desired_val);
1430                 }
1431               break;
1432             case GT:
1433               if (actual_val == desired_val - 1)
1434                 {
1435                   code = GE;
1436                   op_b = GEN_INT (desired_val);
1437                 }
1438               break;
1439             case GE:
1440               if (actual_val == desired_val + 1)
1441                 {
1442                   code = GT;
1443                   op_b = GEN_INT (desired_val);
1444                 }
1445               break;
1446             default:
1447               break;
1448             }
1449         }
1450
1451       /* If we made any changes, generate a new conditional that is
1452          equivalent to what we started with, but has the right
1453          constants in it.  */
1454       if (code != GET_CODE (if_info->cond)
1455           || op_a != XEXP (if_info->cond, 0)
1456           || op_b != XEXP (if_info->cond, 1))
1457         {
1458           cond = gen_rtx_fmt_ee (code, GET_MODE (cond), op_a, op_b);
1459           *earliest = if_info->cond_earliest;
1460           return cond;
1461         }
1462     }
1463
1464   cond = canonicalize_condition (if_info->jump, cond, reverse,
1465                                  earliest, target, false);
1466   if (! cond || ! reg_mentioned_p (target, cond))
1467     return NULL;
1468
1469   /* We almost certainly searched back to a different place.
1470      Need to re-verify correct lifetimes.  */
1471
1472   /* X may not be mentioned in the range (cond_earliest, jump].  */
1473   for (insn = if_info->jump; insn != *earliest; insn = PREV_INSN (insn))
1474     if (INSN_P (insn) && reg_overlap_mentioned_p (if_info->x, PATTERN (insn)))
1475       return NULL;
1476
1477   /* A and B may not be modified in the range [cond_earliest, jump).  */
1478   for (insn = *earliest; insn != if_info->jump; insn = NEXT_INSN (insn))
1479     if (INSN_P (insn)
1480         && (modified_in_p (if_info->a, insn)
1481             || modified_in_p (if_info->b, insn)))
1482       return NULL;
1483
1484   return cond;
1485 }
1486
1487 /* Convert "if (a < b) x = a; else x = b;" to "x = min(a, b);", etc.  */
1488
1489 static int
1490 noce_try_minmax (struct noce_if_info *if_info)
1491 {
1492   rtx cond, earliest, target, seq;
1493   enum rtx_code code, op;
1494   int unsignedp;
1495
1496   /* ??? Can't guarantee that expand_binop won't create pseudos.  */
1497   if (no_new_pseudos)
1498     return FALSE;
1499
1500   /* ??? Reject modes with NaNs or signed zeros since we don't know how
1501      they will be resolved with an SMIN/SMAX.  It wouldn't be too hard
1502      to get the target to tell us...  */
1503   if (HONOR_SIGNED_ZEROS (GET_MODE (if_info->x))
1504       || HONOR_NANS (GET_MODE (if_info->x)))
1505     return FALSE;
1506
1507   cond = noce_get_alt_condition (if_info, if_info->a, &earliest);
1508   if (!cond)
1509     return FALSE;
1510
1511   /* Verify the condition is of the form we expect, and canonicalize
1512      the comparison code.  */
1513   code = GET_CODE (cond);
1514   if (rtx_equal_p (XEXP (cond, 0), if_info->a))
1515     {
1516       if (! rtx_equal_p (XEXP (cond, 1), if_info->b))
1517         return FALSE;
1518     }
1519   else if (rtx_equal_p (XEXP (cond, 1), if_info->a))
1520     {
1521       if (! rtx_equal_p (XEXP (cond, 0), if_info->b))
1522         return FALSE;
1523       code = swap_condition (code);
1524     }
1525   else
1526     return FALSE;
1527
1528   /* Determine what sort of operation this is.  Note that the code is for
1529      a taken branch, so the code->operation mapping appears backwards.  */
1530   switch (code)
1531     {
1532     case LT:
1533     case LE:
1534     case UNLT:
1535     case UNLE:
1536       op = SMAX;
1537       unsignedp = 0;
1538       break;
1539     case GT:
1540     case GE:
1541     case UNGT:
1542     case UNGE:
1543       op = SMIN;
1544       unsignedp = 0;
1545       break;
1546     case LTU:
1547     case LEU:
1548       op = UMAX;
1549       unsignedp = 1;
1550       break;
1551     case GTU:
1552     case GEU:
1553       op = UMIN;
1554       unsignedp = 1;
1555       break;
1556     default:
1557       return FALSE;
1558     }
1559
1560   start_sequence ();
1561
1562   target = expand_simple_binop (GET_MODE (if_info->x), op,
1563                                 if_info->a, if_info->b,
1564                                 if_info->x, unsignedp, OPTAB_WIDEN);
1565   if (! target)
1566     {
1567       end_sequence ();
1568       return FALSE;
1569     }
1570   if (target != if_info->x)
1571     noce_emit_move_insn (if_info->x, target);
1572
1573   seq = get_insns ();
1574   unshare_ifcvt_sequence (if_info, seq);
1575   end_sequence ();
1576
1577   if (seq_contains_jump (seq))
1578     return FALSE;
1579
1580   emit_insn_before_setloc (seq, if_info->jump, INSN_LOCATOR (if_info->insn_a));
1581   if_info->cond = cond;
1582   if_info->cond_earliest = earliest;
1583
1584   return TRUE;
1585 }
1586
1587 /* Convert "if (a < 0) x = -a; else x = a;" to "x = abs(a);", etc.  */
1588
1589 static int
1590 noce_try_abs (struct noce_if_info *if_info)
1591 {
1592   rtx cond, earliest, target, seq, a, b, c;
1593   int negate;
1594
1595   /* ??? Can't guarantee that expand_binop won't create pseudos.  */
1596   if (no_new_pseudos)
1597     return FALSE;
1598
1599   /* Recognize A and B as constituting an ABS or NABS.  */
1600   a = if_info->a;
1601   b = if_info->b;
1602   if (GET_CODE (a) == NEG && rtx_equal_p (XEXP (a, 0), b))
1603     negate = 0;
1604   else if (GET_CODE (b) == NEG && rtx_equal_p (XEXP (b, 0), a))
1605     {
1606       c = a; a = b; b = c;
1607       negate = 1;
1608     }
1609   else
1610     return FALSE;
1611
1612   cond = noce_get_alt_condition (if_info, b, &earliest);
1613   if (!cond)
1614     return FALSE;
1615
1616   /* Verify the condition is of the form we expect.  */
1617   if (rtx_equal_p (XEXP (cond, 0), b))
1618     c = XEXP (cond, 1);
1619   else if (rtx_equal_p (XEXP (cond, 1), b))
1620     c = XEXP (cond, 0);
1621   else
1622     return FALSE;
1623
1624   /* Verify that C is zero.  Search backward through the block for
1625      a REG_EQUAL note if necessary.  */
1626   if (REG_P (c))
1627     {
1628       rtx insn, note = NULL;
1629       for (insn = earliest;
1630            insn != BB_HEAD (if_info->test_bb);
1631            insn = PREV_INSN (insn))
1632         if (INSN_P (insn)
1633             && ((note = find_reg_note (insn, REG_EQUAL, c))
1634                 || (note = find_reg_note (insn, REG_EQUIV, c))))
1635           break;
1636       if (! note)
1637         return FALSE;
1638       c = XEXP (note, 0);
1639     }
1640   if (GET_CODE (c) == MEM
1641       && GET_CODE (XEXP (c, 0)) == SYMBOL_REF
1642       && CONSTANT_POOL_ADDRESS_P (XEXP (c, 0)))
1643     c = get_pool_constant (XEXP (c, 0));
1644
1645   /* Work around funny ideas get_condition has wrt canonicalization.
1646      Note that these rtx constants are known to be CONST_INT, and
1647      therefore imply integer comparisons.  */
1648   if (c == constm1_rtx && GET_CODE (cond) == GT)
1649     ;
1650   else if (c == const1_rtx && GET_CODE (cond) == LT)
1651     ;
1652   else if (c != CONST0_RTX (GET_MODE (b)))
1653     return FALSE;
1654
1655   /* Determine what sort of operation this is.  */
1656   switch (GET_CODE (cond))
1657     {
1658     case LT:
1659     case LE:
1660     case UNLT:
1661     case UNLE:
1662       negate = !negate;
1663       break;
1664     case GT:
1665     case GE:
1666     case UNGT:
1667     case UNGE:
1668       break;
1669     default:
1670       return FALSE;
1671     }
1672
1673   start_sequence ();
1674
1675   target = expand_abs_nojump (GET_MODE (if_info->x), b, if_info->x, 1);
1676
1677   /* ??? It's a quandary whether cmove would be better here, especially
1678      for integers.  Perhaps combine will clean things up.  */
1679   if (target && negate)
1680     target = expand_simple_unop (GET_MODE (target), NEG, target, if_info->x, 0);
1681
1682   if (! target)
1683     {
1684       end_sequence ();
1685       return FALSE;
1686     }
1687
1688   if (target != if_info->x)
1689     noce_emit_move_insn (if_info->x, target);
1690
1691   seq = get_insns ();
1692   unshare_ifcvt_sequence (if_info, seq);
1693   end_sequence ();
1694
1695   if (seq_contains_jump (seq))
1696     return FALSE;
1697
1698   emit_insn_before_setloc (seq, if_info->jump, INSN_LOCATOR (if_info->insn_a));
1699   if_info->cond = cond;
1700   if_info->cond_earliest = earliest;
1701
1702   return TRUE;
1703 }
1704
1705 /* Similar to get_condition, only the resulting condition must be
1706    valid at JUMP, instead of at EARLIEST.  */
1707
1708 static rtx
1709 noce_get_condition (rtx jump, rtx *earliest)
1710 {
1711   rtx cond, set, tmp, insn;
1712   bool reverse;
1713
1714   if (! any_condjump_p (jump))
1715     return NULL_RTX;
1716
1717   set = pc_set (jump);
1718
1719   /* If this branches to JUMP_LABEL when the condition is false,
1720      reverse the condition.  */
1721   reverse = (GET_CODE (XEXP (SET_SRC (set), 2)) == LABEL_REF
1722              && XEXP (XEXP (SET_SRC (set), 2), 0) == JUMP_LABEL (jump));
1723
1724   /* If the condition variable is a register and is MODE_INT, accept it.  */
1725
1726   cond = XEXP (SET_SRC (set), 0);
1727   tmp = XEXP (cond, 0);
1728   if (REG_P (tmp) && GET_MODE_CLASS (GET_MODE (tmp)) == MODE_INT)
1729     {
1730       *earliest = jump;
1731
1732       if (reverse)
1733         cond = gen_rtx_fmt_ee (reverse_condition (GET_CODE (cond)),
1734                                GET_MODE (cond), tmp, XEXP (cond, 1));
1735       return cond;
1736     }
1737
1738   /* Otherwise, fall back on canonicalize_condition to do the dirty
1739      work of manipulating MODE_CC values and COMPARE rtx codes.  */
1740
1741   tmp = canonicalize_condition (jump, cond, reverse, earliest, NULL_RTX,
1742                                 false);
1743   if (!tmp)
1744     return NULL_RTX;
1745
1746   /* We are going to insert code before JUMP, not before EARLIEST.
1747      We must therefore be certain that the given condition is valid
1748      at JUMP by virtue of not having been modified since.  */
1749   for (insn = *earliest; insn != jump; insn = NEXT_INSN (insn))
1750     if (INSN_P (insn) && modified_in_p (tmp, insn))
1751       break;
1752   if (insn == jump)
1753     return tmp;
1754
1755   /* The condition was modified.  See if we can get a partial result
1756      that doesn't follow all the reversals.  Perhaps combine can fold
1757      them together later.  */
1758   tmp = XEXP (tmp, 0);
1759   if (!REG_P (tmp) || GET_MODE_CLASS (GET_MODE (tmp)) != MODE_INT)
1760     return NULL_RTX;
1761   tmp = canonicalize_condition (jump, cond, reverse, earliest, tmp,
1762                                 false);
1763   if (!tmp)
1764     return NULL_RTX;
1765
1766   /* For sanity's sake, re-validate the new result.  */
1767   for (insn = *earliest; insn != jump; insn = NEXT_INSN (insn))
1768     if (INSN_P (insn) && modified_in_p (tmp, insn))
1769       return NULL_RTX;
1770
1771   return tmp;
1772 }
1773
1774 /* Return true if OP is ok for if-then-else processing.  */
1775
1776 static int
1777 noce_operand_ok (rtx op)
1778 {
1779   /* We special-case memories, so handle any of them with
1780      no address side effects.  */
1781   if (GET_CODE (op) == MEM)
1782     return ! side_effects_p (XEXP (op, 0));
1783
1784   if (side_effects_p (op))
1785     return FALSE;
1786
1787   return ! may_trap_p (op);
1788 }
1789
1790 /* Given a simple IF-THEN or IF-THEN-ELSE block, attempt to convert it
1791    without using conditional execution.  Return TRUE if we were
1792    successful at converting the block.  */
1793
1794 static int
1795 noce_process_if_block (struct ce_if_block * ce_info)
1796 {
1797   basic_block test_bb = ce_info->test_bb;       /* test block */
1798   basic_block then_bb = ce_info->then_bb;       /* THEN */
1799   basic_block else_bb = ce_info->else_bb;       /* ELSE or NULL */
1800   struct noce_if_info if_info;
1801   rtx insn_a, insn_b;
1802   rtx set_a, set_b;
1803   rtx orig_x, x, a, b;
1804   rtx jump, cond;
1805
1806   /* We're looking for patterns of the form
1807
1808      (1) if (...) x = a; else x = b;
1809      (2) x = b; if (...) x = a;
1810      (3) if (...) x = a;   // as if with an initial x = x.
1811
1812      The later patterns require jumps to be more expensive.
1813
1814      ??? For future expansion, look for multiple X in such patterns.  */
1815
1816   /* If test is comprised of && or || elements, don't handle it unless it is
1817      the special case of && elements without an ELSE block.  */
1818   if (ce_info->num_multiple_test_blocks)
1819     {
1820       if (else_bb || ! ce_info->and_and_p)
1821         return FALSE;
1822
1823       ce_info->test_bb = test_bb = ce_info->last_test_bb;
1824       ce_info->num_multiple_test_blocks = 0;
1825       ce_info->num_and_and_blocks = 0;
1826       ce_info->num_or_or_blocks = 0;
1827     }
1828
1829   /* If this is not a standard conditional jump, we can't parse it.  */
1830   jump = BB_END (test_bb);
1831   cond = noce_get_condition (jump, &if_info.cond_earliest);
1832   if (! cond)
1833     return FALSE;
1834
1835   /* If the conditional jump is more than just a conditional
1836      jump, then we can not do if-conversion on this block.  */
1837   if (! onlyjump_p (jump))
1838     return FALSE;
1839
1840   /* We must be comparing objects whose modes imply the size.  */
1841   if (GET_MODE (XEXP (cond, 0)) == BLKmode)
1842     return FALSE;
1843
1844   /* Look for one of the potential sets.  */
1845   insn_a = first_active_insn (then_bb);
1846   if (! insn_a
1847       || insn_a != last_active_insn (then_bb, FALSE)
1848       || (set_a = single_set (insn_a)) == NULL_RTX)
1849     return FALSE;
1850
1851   x = SET_DEST (set_a);
1852   a = SET_SRC (set_a);
1853
1854   /* Look for the other potential set.  Make sure we've got equivalent
1855      destinations.  */
1856   /* ??? This is overconservative.  Storing to two different mems is
1857      as easy as conditionally computing the address.  Storing to a
1858      single mem merely requires a scratch memory to use as one of the
1859      destination addresses; often the memory immediately below the
1860      stack pointer is available for this.  */
1861   set_b = NULL_RTX;
1862   if (else_bb)
1863     {
1864       insn_b = first_active_insn (else_bb);
1865       if (! insn_b
1866           || insn_b != last_active_insn (else_bb, FALSE)
1867           || (set_b = single_set (insn_b)) == NULL_RTX
1868           || ! rtx_equal_p (x, SET_DEST (set_b)))
1869         return FALSE;
1870     }
1871   else
1872     {
1873       insn_b = prev_nonnote_insn (if_info.cond_earliest);
1874       /* We're going to be moving the evaluation of B down from above
1875          COND_EARLIEST to JUMP.  Make sure the relevant data is still
1876          intact.  */
1877       if (! insn_b
1878           || GET_CODE (insn_b) != INSN
1879           || (set_b = single_set (insn_b)) == NULL_RTX
1880           || ! rtx_equal_p (x, SET_DEST (set_b))
1881           || reg_overlap_mentioned_p (x, SET_SRC (set_b))
1882           || modified_between_p (SET_SRC (set_b),
1883                                  PREV_INSN (if_info.cond_earliest), jump)
1884           /* Likewise with X.  In particular this can happen when
1885              noce_get_condition looks farther back in the instruction
1886              stream than one might expect.  */
1887           || reg_overlap_mentioned_p (x, cond)
1888           || reg_overlap_mentioned_p (x, a)
1889           || modified_between_p (x, PREV_INSN (if_info.cond_earliest), jump))
1890         insn_b = set_b = NULL_RTX;
1891     }
1892
1893   /* If x has side effects then only the if-then-else form is safe to
1894      convert.  But even in that case we would need to restore any notes
1895      (such as REG_INC) at then end.  That can be tricky if
1896      noce_emit_move_insn expands to more than one insn, so disable the
1897      optimization entirely for now if there are side effects.  */
1898   if (side_effects_p (x))
1899     return FALSE;
1900
1901   b = (set_b ? SET_SRC (set_b) : x);
1902
1903   /* Only operate on register destinations, and even then avoid extending
1904      the lifetime of hard registers on small register class machines.  */
1905   orig_x = x;
1906   if (GET_CODE (x) != REG
1907       || (SMALL_REGISTER_CLASSES
1908           && REGNO (x) < FIRST_PSEUDO_REGISTER))
1909     {
1910       if (no_new_pseudos || GET_MODE (x) == BLKmode)
1911         return FALSE;
1912       x = gen_reg_rtx (GET_MODE (GET_CODE (x) == STRICT_LOW_PART
1913                                  ? XEXP (x, 0) : x));
1914     }
1915
1916   /* Don't operate on sources that may trap or are volatile.  */
1917   if (! noce_operand_ok (a) || ! noce_operand_ok (b))
1918     return FALSE;
1919
1920   /* Set up the info block for our subroutines.  */
1921   if_info.test_bb = test_bb;
1922   if_info.cond = cond;
1923   if_info.jump = jump;
1924   if_info.insn_a = insn_a;
1925   if_info.insn_b = insn_b;
1926   if_info.x = x;
1927   if_info.a = a;
1928   if_info.b = b;
1929
1930   /* Try optimizations in some approximation of a useful order.  */
1931   /* ??? Should first look to see if X is live incoming at all.  If it
1932      isn't, we don't need anything but an unconditional set.  */
1933
1934   /* Look and see if A and B are really the same.  Avoid creating silly
1935      cmove constructs that no one will fix up later.  */
1936   if (rtx_equal_p (a, b))
1937     {
1938       /* If we have an INSN_B, we don't have to create any new rtl.  Just
1939          move the instruction that we already have.  If we don't have an
1940          INSN_B, that means that A == X, and we've got a noop move.  In
1941          that case don't do anything and let the code below delete INSN_A.  */
1942       if (insn_b && else_bb)
1943         {
1944           rtx note;
1945
1946           if (else_bb && insn_b == BB_END (else_bb))
1947             BB_END (else_bb) = PREV_INSN (insn_b);
1948           reorder_insns (insn_b, insn_b, PREV_INSN (jump));
1949
1950           /* If there was a REG_EQUAL note, delete it since it may have been
1951              true due to this insn being after a jump.  */
1952           if ((note = find_reg_note (insn_b, REG_EQUAL, NULL_RTX)) != 0)
1953             remove_note (insn_b, note);
1954
1955           insn_b = NULL_RTX;
1956         }
1957       /* If we have "x = b; if (...) x = a;", and x has side-effects, then
1958          x must be executed twice.  */
1959       else if (insn_b && side_effects_p (orig_x))
1960         return FALSE;
1961
1962       x = orig_x;
1963       goto success;
1964     }
1965
1966   /* Disallow the "if (...) x = a;" form (with an implicit "else x = x;")
1967      for most optimizations if writing to x may trap, i.e. it's a memory
1968      other than a static var or a stack slot.  */
1969   if (! set_b
1970       && GET_CODE (orig_x) == MEM
1971       && ! MEM_NOTRAP_P (orig_x)
1972       && rtx_addr_can_trap_p (XEXP (orig_x, 0)))
1973     {
1974       if (HAVE_conditional_move)
1975         {
1976           if (noce_try_cmove (&if_info))
1977             goto success;
1978           if (! HAVE_conditional_execution
1979               && noce_try_cmove_arith (&if_info))
1980             goto success;
1981         }
1982       return FALSE;
1983     }
1984
1985   if (noce_try_move (&if_info))
1986     goto success;
1987   if (noce_try_store_flag (&if_info))
1988     goto success;
1989   if (noce_try_minmax (&if_info))
1990     goto success;
1991   if (noce_try_abs (&if_info))
1992     goto success;
1993   if (HAVE_conditional_move
1994       && noce_try_cmove (&if_info))
1995     goto success;
1996   if (! HAVE_conditional_execution)
1997     {
1998       if (noce_try_store_flag_constants (&if_info))
1999         goto success;
2000       if (noce_try_addcc (&if_info))
2001         goto success;
2002       if (noce_try_store_flag_mask (&if_info))
2003         goto success;
2004       if (HAVE_conditional_move
2005           && noce_try_cmove_arith (&if_info))
2006         goto success;
2007     }
2008
2009   return FALSE;
2010
2011  success:
2012   /* The original sets may now be killed.  */
2013   delete_insn (insn_a);
2014
2015   /* Several special cases here: First, we may have reused insn_b above,
2016      in which case insn_b is now NULL.  Second, we want to delete insn_b
2017      if it came from the ELSE block, because follows the now correct
2018      write that appears in the TEST block.  However, if we got insn_b from
2019      the TEST block, it may in fact be loading data needed for the comparison.
2020      We'll let life_analysis remove the insn if it's really dead.  */
2021   if (insn_b && else_bb)
2022     delete_insn (insn_b);
2023
2024   /* The new insns will have been inserted immediately before the jump.  We
2025      should be able to remove the jump with impunity, but the condition itself
2026      may have been modified by gcse to be shared across basic blocks.  */
2027   delete_insn (jump);
2028
2029   /* If we used a temporary, fix it up now.  */
2030   if (orig_x != x)
2031     {
2032       start_sequence ();
2033       noce_emit_move_insn (orig_x, x);
2034       insn_b = get_insns ();
2035       set_used_flags (orig_x);
2036       unshare_all_rtl_in_chain (insn_b);
2037       end_sequence ();
2038
2039       emit_insn_after_setloc (insn_b, BB_END (test_bb), INSN_LOCATOR (insn_a));
2040     }
2041
2042   /* Merge the blocks!  */
2043   merge_if_block (ce_info);
2044
2045   return TRUE;
2046 }
2047 \f
2048 /* Attempt to convert an IF-THEN or IF-THEN-ELSE block into
2049    straight line code.  Return true if successful.  */
2050
2051 static int
2052 process_if_block (struct ce_if_block * ce_info)
2053 {
2054   if (! reload_completed
2055       && noce_process_if_block (ce_info))
2056     return TRUE;
2057
2058   if (HAVE_conditional_execution && reload_completed)
2059     {
2060       /* If we have && and || tests, try to first handle combining the && and
2061          || tests into the conditional code, and if that fails, go back and
2062          handle it without the && and ||, which at present handles the && case
2063          if there was no ELSE block.  */
2064       if (cond_exec_process_if_block (ce_info, TRUE))
2065         return TRUE;
2066
2067       if (ce_info->num_multiple_test_blocks)
2068         {
2069           cancel_changes (0);
2070
2071           if (cond_exec_process_if_block (ce_info, FALSE))
2072             return TRUE;
2073         }
2074     }
2075
2076   return FALSE;
2077 }
2078
2079 /* Merge the blocks and mark for local life update.  */
2080
2081 static void
2082 merge_if_block (struct ce_if_block * ce_info)
2083 {
2084   basic_block test_bb = ce_info->test_bb;       /* last test block */
2085   basic_block then_bb = ce_info->then_bb;       /* THEN */
2086   basic_block else_bb = ce_info->else_bb;       /* ELSE or NULL */
2087   basic_block join_bb = ce_info->join_bb;       /* join block */
2088   basic_block combo_bb;
2089
2090   /* All block merging is done into the lower block numbers.  */
2091
2092   combo_bb = test_bb;
2093
2094   /* Merge any basic blocks to handle && and || subtests.  Each of
2095      the blocks are on the fallthru path from the predecessor block.  */
2096   if (ce_info->num_multiple_test_blocks > 0)
2097     {
2098       basic_block bb = test_bb;
2099       basic_block last_test_bb = ce_info->last_test_bb;
2100       basic_block fallthru = block_fallthru (bb);
2101
2102       do
2103         {
2104           bb = fallthru;
2105           fallthru = block_fallthru (bb);
2106           merge_blocks (combo_bb, bb);
2107           num_true_changes++;
2108         }
2109       while (bb != last_test_bb);
2110     }
2111
2112   /* Merge TEST block into THEN block.  Normally the THEN block won't have a
2113      label, but it might if there were || tests.  That label's count should be
2114      zero, and it normally should be removed.  */
2115
2116   if (then_bb)
2117     {
2118       if (combo_bb->global_live_at_end)
2119         COPY_REG_SET (combo_bb->global_live_at_end,
2120                       then_bb->global_live_at_end);
2121       merge_blocks (combo_bb, then_bb);
2122       num_true_changes++;
2123     }
2124
2125   /* The ELSE block, if it existed, had a label.  That label count
2126      will almost always be zero, but odd things can happen when labels
2127      get their addresses taken.  */
2128   if (else_bb)
2129     {
2130       merge_blocks (combo_bb, else_bb);
2131       num_true_changes++;
2132     }
2133
2134   /* If there was no join block reported, that means it was not adjacent
2135      to the others, and so we cannot merge them.  */
2136
2137   if (! join_bb)
2138     {
2139       rtx last = BB_END (combo_bb);
2140
2141       /* The outgoing edge for the current COMBO block should already
2142          be correct.  Verify this.  */
2143       if (combo_bb->succ == NULL_EDGE)
2144         {
2145           if (find_reg_note (last, REG_NORETURN, NULL))
2146             ;
2147           else if (GET_CODE (last) == INSN
2148                    && GET_CODE (PATTERN (last)) == TRAP_IF
2149                    && TRAP_CONDITION (PATTERN (last)) == const_true_rtx)
2150             ;
2151           else
2152             abort ();
2153         }
2154
2155       /* There should still be something at the end of the THEN or ELSE
2156          blocks taking us to our final destination.  */
2157       else if (GET_CODE (last) == JUMP_INSN)
2158         ;
2159       else if (combo_bb->succ->dest == EXIT_BLOCK_PTR
2160                && GET_CODE (last) == CALL_INSN
2161                && SIBLING_CALL_P (last))
2162         ;
2163       else if ((combo_bb->succ->flags & EDGE_EH)
2164                && can_throw_internal (last))
2165         ;
2166       else
2167         abort ();
2168     }
2169
2170   /* The JOIN block may have had quite a number of other predecessors too.
2171      Since we've already merged the TEST, THEN and ELSE blocks, we should
2172      have only one remaining edge from our if-then-else diamond.  If there
2173      is more than one remaining edge, it must come from elsewhere.  There
2174      may be zero incoming edges if the THEN block didn't actually join
2175      back up (as with a call to abort).  */
2176   else if ((join_bb->pred == NULL
2177             || join_bb->pred->pred_next == NULL)
2178            && join_bb != EXIT_BLOCK_PTR)
2179     {
2180       /* We can merge the JOIN.  */
2181       if (combo_bb->global_live_at_end)
2182         COPY_REG_SET (combo_bb->global_live_at_end,
2183                       join_bb->global_live_at_end);
2184
2185       merge_blocks (combo_bb, join_bb);
2186       num_true_changes++;
2187     }
2188   else
2189     {
2190       /* We cannot merge the JOIN.  */
2191
2192       /* The outgoing edge for the current COMBO block should already
2193          be correct.  Verify this.  */
2194       if (combo_bb->succ->succ_next != NULL_EDGE
2195           || combo_bb->succ->dest != join_bb)
2196         abort ();
2197
2198       /* Remove the jump and cruft from the end of the COMBO block.  */
2199       if (join_bb != EXIT_BLOCK_PTR)
2200         tidy_fallthru_edge (combo_bb->succ);
2201     }
2202
2203   num_updated_if_blocks++;
2204 }
2205 \f
2206 /* Find a block ending in a simple IF condition and try to transform it
2207    in some way.  When converting a multi-block condition, put the new code
2208    in the first such block and delete the rest.  Return a pointer to this
2209    first block if some transformation was done.  Return NULL otherwise.  */
2210
2211 static basic_block
2212 find_if_header (basic_block test_bb, int pass)
2213 {
2214   ce_if_block_t ce_info;
2215   edge then_edge;
2216   edge else_edge;
2217
2218   /* The kind of block we're looking for has exactly two successors.  */
2219   if ((then_edge = test_bb->succ) == NULL_EDGE
2220       || (else_edge = then_edge->succ_next) == NULL_EDGE
2221       || else_edge->succ_next != NULL_EDGE)
2222     return NULL;
2223
2224   /* Neither edge should be abnormal.  */
2225   if ((then_edge->flags & EDGE_COMPLEX)
2226       || (else_edge->flags & EDGE_COMPLEX))
2227     return NULL;
2228
2229   /* Nor exit the loop.  */
2230   if ((then_edge->flags & EDGE_LOOP_EXIT)
2231       || (else_edge->flags & EDGE_LOOP_EXIT))
2232     return NULL;
2233
2234   /* The THEN edge is canonically the one that falls through.  */
2235   if (then_edge->flags & EDGE_FALLTHRU)
2236     ;
2237   else if (else_edge->flags & EDGE_FALLTHRU)
2238     {
2239       edge e = else_edge;
2240       else_edge = then_edge;
2241       then_edge = e;
2242     }
2243   else
2244     /* Otherwise this must be a multiway branch of some sort.  */
2245     return NULL;
2246
2247   memset (&ce_info, '\0', sizeof (ce_info));
2248   ce_info.test_bb = test_bb;
2249   ce_info.then_bb = then_edge->dest;
2250   ce_info.else_bb = else_edge->dest;
2251   ce_info.pass = pass;
2252
2253 #ifdef IFCVT_INIT_EXTRA_FIELDS
2254   IFCVT_INIT_EXTRA_FIELDS (&ce_info);
2255 #endif
2256
2257   if (find_if_block (&ce_info))
2258     goto success;
2259
2260   if (HAVE_trap && HAVE_conditional_trap
2261       && find_cond_trap (test_bb, then_edge, else_edge))
2262     goto success;
2263
2264   if (dom_computed[CDI_POST_DOMINATORS] >= DOM_NO_FAST_QUERY
2265       && (! HAVE_conditional_execution || reload_completed))
2266     {
2267       if (find_if_case_1 (test_bb, then_edge, else_edge))
2268         goto success;
2269       if (find_if_case_2 (test_bb, then_edge, else_edge))
2270         goto success;
2271     }
2272
2273   return NULL;
2274
2275  success:
2276   if (dump_file)
2277     fprintf (dump_file, "Conversion succeeded on pass %d.\n", pass);
2278   return ce_info.test_bb;
2279 }
2280
2281 /* Return true if a block has two edges, one of which falls through to the next
2282    block, and the other jumps to a specific block, so that we can tell if the
2283    block is part of an && test or an || test.  Returns either -1 or the number
2284    of non-note, non-jump, non-USE/CLOBBER insns in the block.  */
2285
2286 static int
2287 block_jumps_and_fallthru_p (basic_block cur_bb, basic_block target_bb)
2288 {
2289   edge cur_edge;
2290   int fallthru_p = FALSE;
2291   int jump_p = FALSE;
2292   rtx insn;
2293   rtx end;
2294   int n_insns = 0;
2295
2296   if (!cur_bb || !target_bb)
2297     return -1;
2298
2299   /* If no edges, obviously it doesn't jump or fallthru.  */
2300   if (cur_bb->succ == NULL_EDGE)
2301     return FALSE;
2302
2303   for (cur_edge = cur_bb->succ;
2304        cur_edge != NULL_EDGE;
2305        cur_edge = cur_edge->succ_next)
2306     {
2307       if (cur_edge->flags & EDGE_COMPLEX)
2308         /* Anything complex isn't what we want.  */
2309         return -1;
2310
2311       else if (cur_edge->flags & EDGE_FALLTHRU)
2312         fallthru_p = TRUE;
2313
2314       else if (cur_edge->dest == target_bb)
2315         jump_p = TRUE;
2316
2317       else
2318         return -1;
2319     }
2320
2321   if ((jump_p & fallthru_p) == 0)
2322     return -1;
2323
2324   /* Don't allow calls in the block, since this is used to group && and ||
2325      together for conditional execution support.  ??? we should support
2326      conditional execution support across calls for IA-64 some day, but
2327      for now it makes the code simpler.  */
2328   end = BB_END (cur_bb);
2329   insn = BB_HEAD (cur_bb);
2330
2331   while (insn != NULL_RTX)
2332     {
2333       if (GET_CODE (insn) == CALL_INSN)
2334         return -1;
2335
2336       if (INSN_P (insn)
2337           && GET_CODE (insn) != JUMP_INSN
2338           && GET_CODE (PATTERN (insn)) != USE
2339           && GET_CODE (PATTERN (insn)) != CLOBBER)
2340         n_insns++;
2341
2342       if (insn == end)
2343         break;
2344
2345       insn = NEXT_INSN (insn);
2346     }
2347
2348   return n_insns;
2349 }
2350
2351 /* Determine if a given basic block heads a simple IF-THEN or IF-THEN-ELSE
2352    block.  If so, we'll try to convert the insns to not require the branch.
2353    Return TRUE if we were successful at converting the block.  */
2354
2355 static int
2356 find_if_block (struct ce_if_block * ce_info)
2357 {
2358   basic_block test_bb = ce_info->test_bb;
2359   basic_block then_bb = ce_info->then_bb;
2360   basic_block else_bb = ce_info->else_bb;
2361   basic_block join_bb = NULL_BLOCK;
2362   edge then_succ = then_bb->succ;
2363   edge else_succ = else_bb->succ;
2364   int then_predecessors;
2365   int else_predecessors;
2366   edge cur_edge;
2367   basic_block next;
2368
2369   ce_info->last_test_bb = test_bb;
2370
2371   /* Discover if any fall through predecessors of the current test basic block
2372      were && tests (which jump to the else block) or || tests (which jump to
2373      the then block).  */
2374   if (HAVE_conditional_execution && reload_completed
2375       && test_bb->pred != NULL_EDGE
2376       && test_bb->pred->pred_next == NULL_EDGE
2377       && test_bb->pred->flags == EDGE_FALLTHRU)
2378     {
2379       basic_block bb = test_bb->pred->src;
2380       basic_block target_bb;
2381       int max_insns = MAX_CONDITIONAL_EXECUTE;
2382       int n_insns;
2383
2384       /* Determine if the preceding block is an && or || block.  */
2385       if ((n_insns = block_jumps_and_fallthru_p (bb, else_bb)) >= 0)
2386         {
2387           ce_info->and_and_p = TRUE;
2388           target_bb = else_bb;
2389         }
2390       else if ((n_insns = block_jumps_and_fallthru_p (bb, then_bb)) >= 0)
2391         {
2392           ce_info->and_and_p = FALSE;
2393           target_bb = then_bb;
2394         }
2395       else
2396         target_bb = NULL_BLOCK;
2397
2398       if (target_bb && n_insns <= max_insns)
2399         {
2400           int total_insns = 0;
2401           int blocks = 0;
2402
2403           ce_info->last_test_bb = test_bb;
2404
2405           /* Found at least one && or || block, look for more.  */
2406           do
2407             {
2408               ce_info->test_bb = test_bb = bb;
2409               total_insns += n_insns;
2410               blocks++;
2411
2412               if (bb->pred == NULL_EDGE || bb->pred->pred_next != NULL_EDGE)
2413                 break;
2414
2415               bb = bb->pred->src;
2416               n_insns = block_jumps_and_fallthru_p (bb, target_bb);
2417             }
2418           while (n_insns >= 0 && (total_insns + n_insns) <= max_insns);
2419
2420           ce_info->num_multiple_test_blocks = blocks;
2421           ce_info->num_multiple_test_insns = total_insns;
2422
2423           if (ce_info->and_and_p)
2424             ce_info->num_and_and_blocks = blocks;
2425           else
2426             ce_info->num_or_or_blocks = blocks;
2427         }
2428     }
2429
2430   /* Count the number of edges the THEN and ELSE blocks have.  */
2431   then_predecessors = 0;
2432   for (cur_edge = then_bb->pred;
2433        cur_edge != NULL_EDGE;
2434        cur_edge = cur_edge->pred_next)
2435     {
2436       then_predecessors++;
2437       if (cur_edge->flags & EDGE_COMPLEX)
2438         return FALSE;
2439     }
2440
2441   else_predecessors = 0;
2442   for (cur_edge = else_bb->pred;
2443        cur_edge != NULL_EDGE;
2444        cur_edge = cur_edge->pred_next)
2445     {
2446       else_predecessors++;
2447       if (cur_edge->flags & EDGE_COMPLEX)
2448         return FALSE;
2449     }
2450
2451   /* The THEN block of an IF-THEN combo must have exactly one predecessor,
2452      other than any || blocks which jump to the THEN block.  */
2453   if ((then_predecessors - ce_info->num_or_or_blocks) != 1)
2454     return FALSE;
2455
2456   /* The THEN block of an IF-THEN combo must have zero or one successors.  */
2457   if (then_succ != NULL_EDGE
2458       && (then_succ->succ_next != NULL_EDGE
2459           || (then_succ->flags & EDGE_COMPLEX)
2460           || (flow2_completed && tablejump_p (BB_END (then_bb), NULL, NULL))))
2461     return FALSE;
2462
2463   /* If the THEN block has no successors, conditional execution can still
2464      make a conditional call.  Don't do this unless the ELSE block has
2465      only one incoming edge -- the CFG manipulation is too ugly otherwise.
2466      Check for the last insn of the THEN block being an indirect jump, which
2467      is listed as not having any successors, but confuses the rest of the CE
2468      code processing.  ??? we should fix this in the future.  */
2469   if (then_succ == NULL)
2470     {
2471       if (else_bb->pred->pred_next == NULL_EDGE)
2472         {
2473           rtx last_insn = BB_END (then_bb);
2474
2475           while (last_insn
2476                  && GET_CODE (last_insn) == NOTE
2477                  && last_insn != BB_HEAD (then_bb))
2478             last_insn = PREV_INSN (last_insn);
2479
2480           if (last_insn
2481               && GET_CODE (last_insn) == JUMP_INSN
2482               && ! simplejump_p (last_insn))
2483             return FALSE;
2484
2485           join_bb = else_bb;
2486           else_bb = NULL_BLOCK;
2487         }
2488       else
2489         return FALSE;
2490     }
2491
2492   /* If the THEN block's successor is the other edge out of the TEST block,
2493      then we have an IF-THEN combo without an ELSE.  */
2494   else if (then_succ->dest == else_bb)
2495     {
2496       join_bb = else_bb;
2497       else_bb = NULL_BLOCK;
2498     }
2499
2500   /* If the THEN and ELSE block meet in a subsequent block, and the ELSE
2501      has exactly one predecessor and one successor, and the outgoing edge
2502      is not complex, then we have an IF-THEN-ELSE combo.  */
2503   else if (else_succ != NULL_EDGE
2504            && then_succ->dest == else_succ->dest
2505            && else_bb->pred->pred_next == NULL_EDGE
2506            && else_succ->succ_next == NULL_EDGE
2507            && ! (else_succ->flags & EDGE_COMPLEX)
2508            && ! (flow2_completed && tablejump_p (BB_END (else_bb), NULL, NULL)))
2509     join_bb = else_succ->dest;
2510
2511   /* Otherwise it is not an IF-THEN or IF-THEN-ELSE combination.  */
2512   else
2513     return FALSE;
2514
2515   num_possible_if_blocks++;
2516
2517   if (dump_file)
2518     {
2519       fprintf (dump_file,
2520                "\nIF-THEN%s block found, pass %d, start block %d "
2521                "[insn %d], then %d [%d]",
2522                (else_bb) ? "-ELSE" : "",
2523                ce_info->pass,
2524                test_bb->index,
2525                BB_HEAD (test_bb) ? (int)INSN_UID (BB_HEAD (test_bb)) : -1,
2526                then_bb->index,
2527                BB_HEAD (then_bb) ? (int)INSN_UID (BB_HEAD (then_bb)) : -1);
2528
2529       if (else_bb)
2530         fprintf (dump_file, ", else %d [%d]",
2531                  else_bb->index,
2532                  BB_HEAD (else_bb) ? (int)INSN_UID (BB_HEAD (else_bb)) : -1);
2533
2534       fprintf (dump_file, ", join %d [%d]",
2535                join_bb->index,
2536                BB_HEAD (join_bb) ? (int)INSN_UID (BB_HEAD (join_bb)) : -1);
2537
2538       if (ce_info->num_multiple_test_blocks > 0)
2539         fprintf (dump_file, ", %d %s block%s last test %d [%d]",
2540                  ce_info->num_multiple_test_blocks,
2541                  (ce_info->and_and_p) ? "&&" : "||",
2542                  (ce_info->num_multiple_test_blocks == 1) ? "" : "s",
2543                  ce_info->last_test_bb->index,
2544                  ((BB_HEAD (ce_info->last_test_bb))
2545                   ? (int)INSN_UID (BB_HEAD (ce_info->last_test_bb))
2546                   : -1));
2547
2548       fputc ('\n', dump_file);
2549     }
2550
2551   /* Make sure IF, THEN, and ELSE, blocks are adjacent.  Actually, we get the
2552      first condition for free, since we've already asserted that there's a
2553      fallthru edge from IF to THEN.  Likewise for the && and || blocks, since
2554      we checked the FALLTHRU flag, those are already adjacent to the last IF
2555      block.  */
2556   /* ??? As an enhancement, move the ELSE block.  Have to deal with
2557      BLOCK notes, if by no other means than aborting the merge if they
2558      exist.  Sticky enough I don't want to think about it now.  */
2559   next = then_bb;
2560   if (else_bb && (next = next->next_bb) != else_bb)
2561     return FALSE;
2562   if ((next = next->next_bb) != join_bb && join_bb != EXIT_BLOCK_PTR)
2563     {
2564       if (else_bb)
2565         join_bb = NULL;
2566       else
2567         return FALSE;
2568     }
2569
2570   /* Do the real work.  */
2571   ce_info->else_bb = else_bb;
2572   ce_info->join_bb = join_bb;
2573
2574   return process_if_block (ce_info);
2575 }
2576
2577 /* Convert a branch over a trap, or a branch
2578    to a trap, into a conditional trap.  */
2579
2580 static int
2581 find_cond_trap (basic_block test_bb, edge then_edge, edge else_edge)
2582 {
2583   basic_block then_bb = then_edge->dest;
2584   basic_block else_bb = else_edge->dest;
2585   basic_block other_bb, trap_bb;
2586   rtx trap, jump, cond, cond_earliest, seq;
2587   enum rtx_code code;
2588
2589   /* Locate the block with the trap instruction.  */
2590   /* ??? While we look for no successors, we really ought to allow
2591      EH successors.  Need to fix merge_if_block for that to work.  */
2592   if ((trap = block_has_only_trap (then_bb)) != NULL)
2593     trap_bb = then_bb, other_bb = else_bb;
2594   else if ((trap = block_has_only_trap (else_bb)) != NULL)
2595     trap_bb = else_bb, other_bb = then_bb;
2596   else
2597     return FALSE;
2598
2599   if (dump_file)
2600     {
2601       fprintf (dump_file, "\nTRAP-IF block found, start %d, trap %d\n",
2602                test_bb->index, trap_bb->index);
2603     }
2604
2605   /* If this is not a standard conditional jump, we can't parse it.  */
2606   jump = BB_END (test_bb);
2607   cond = noce_get_condition (jump, &cond_earliest);
2608   if (! cond)
2609     return FALSE;
2610
2611   /* If the conditional jump is more than just a conditional jump, then
2612      we can not do if-conversion on this block.  */
2613   if (! onlyjump_p (jump))
2614     return FALSE;
2615
2616   /* We must be comparing objects whose modes imply the size.  */
2617   if (GET_MODE (XEXP (cond, 0)) == BLKmode)
2618     return FALSE;
2619
2620   /* Reverse the comparison code, if necessary.  */
2621   code = GET_CODE (cond);
2622   if (then_bb == trap_bb)
2623     {
2624       code = reversed_comparison_code (cond, jump);
2625       if (code == UNKNOWN)
2626         return FALSE;
2627     }
2628
2629   /* Attempt to generate the conditional trap.  */
2630   seq = gen_cond_trap (code, XEXP (cond, 0),
2631                        XEXP (cond, 1),
2632                        TRAP_CODE (PATTERN (trap)));
2633   if (seq == NULL)
2634     return FALSE;
2635
2636   num_true_changes++;
2637
2638   /* Emit the new insns before cond_earliest.  */
2639   emit_insn_before_setloc (seq, cond_earliest, INSN_LOCATOR (trap));
2640
2641   /* Delete the trap block if possible.  */
2642   remove_edge (trap_bb == then_bb ? then_edge : else_edge);
2643   if (trap_bb->pred == NULL)
2644     delete_basic_block (trap_bb);
2645
2646   /* If the non-trap block and the test are now adjacent, merge them.
2647      Otherwise we must insert a direct branch.  */
2648   if (test_bb->next_bb == other_bb)
2649     {
2650       struct ce_if_block new_ce_info;
2651       delete_insn (jump);
2652       memset (&new_ce_info, '\0', sizeof (new_ce_info));
2653       new_ce_info.test_bb = test_bb;
2654       new_ce_info.then_bb = NULL;
2655       new_ce_info.else_bb = NULL;
2656       new_ce_info.join_bb = other_bb;
2657       merge_if_block (&new_ce_info);
2658     }
2659   else
2660     {
2661       rtx lab, newjump;
2662
2663       lab = JUMP_LABEL (jump);
2664       newjump = emit_jump_insn_after (gen_jump (lab), jump);
2665       LABEL_NUSES (lab) += 1;
2666       JUMP_LABEL (newjump) = lab;
2667       emit_barrier_after (newjump);
2668
2669       delete_insn (jump);
2670     }
2671
2672   return TRUE;
2673 }
2674
2675 /* Subroutine of find_cond_trap: if BB contains only a trap insn,
2676    return it.  */
2677
2678 static rtx
2679 block_has_only_trap (basic_block bb)
2680 {
2681   rtx trap;
2682
2683   /* We're not the exit block.  */
2684   if (bb == EXIT_BLOCK_PTR)
2685     return NULL_RTX;
2686
2687   /* The block must have no successors.  */
2688   if (bb->succ)
2689     return NULL_RTX;
2690
2691   /* The only instruction in the THEN block must be the trap.  */
2692   trap = first_active_insn (bb);
2693   if (! (trap == BB_END (bb)
2694          && GET_CODE (PATTERN (trap)) == TRAP_IF
2695          && TRAP_CONDITION (PATTERN (trap)) == const_true_rtx))
2696     return NULL_RTX;
2697
2698   return trap;
2699 }
2700
2701 /* Look for IF-THEN-ELSE cases in which one of THEN or ELSE is
2702    transformable, but not necessarily the other.  There need be no
2703    JOIN block.
2704
2705    Return TRUE if we were successful at converting the block.
2706
2707    Cases we'd like to look at:
2708
2709    (1)
2710         if (test) goto over; // x not live
2711         x = a;
2712         goto label;
2713         over:
2714
2715    becomes
2716
2717         x = a;
2718         if (! test) goto label;
2719
2720    (2)
2721         if (test) goto E; // x not live
2722         x = big();
2723         goto L;
2724         E:
2725         x = b;
2726         goto M;
2727
2728    becomes
2729
2730         x = b;
2731         if (test) goto M;
2732         x = big();
2733         goto L;
2734
2735    (3) // This one's really only interesting for targets that can do
2736        // multiway branching, e.g. IA-64 BBB bundles.  For other targets
2737        // it results in multiple branches on a cache line, which often
2738        // does not sit well with predictors.
2739
2740         if (test1) goto E; // predicted not taken
2741         x = a;
2742         if (test2) goto F;
2743         ...
2744         E:
2745         x = b;
2746         J:
2747
2748    becomes
2749
2750         x = a;
2751         if (test1) goto E;
2752         if (test2) goto F;
2753
2754    Notes:
2755
2756    (A) Don't do (2) if the branch is predicted against the block we're
2757    eliminating.  Do it anyway if we can eliminate a branch; this requires
2758    that the sole successor of the eliminated block postdominate the other
2759    side of the if.
2760
2761    (B) With CE, on (3) we can steal from both sides of the if, creating
2762
2763         if (test1) x = a;
2764         if (!test1) x = b;
2765         if (test1) goto J;
2766         if (test2) goto F;
2767         ...
2768         J:
2769
2770    Again, this is most useful if J postdominates.
2771
2772    (C) CE substitutes for helpful life information.
2773
2774    (D) These heuristics need a lot of work.  */
2775
2776 /* Tests for case 1 above.  */
2777
2778 static int
2779 find_if_case_1 (basic_block test_bb, edge then_edge, edge else_edge)
2780 {
2781   basic_block then_bb = then_edge->dest;
2782   basic_block else_bb = else_edge->dest, new_bb;
2783   edge then_succ = then_bb->succ;
2784   int then_bb_index;
2785
2786   /* THEN has one successor.  */
2787   if (!then_succ || then_succ->succ_next != NULL)
2788     return FALSE;
2789
2790   /* THEN does not fall through, but is not strange either.  */
2791   if (then_succ->flags & (EDGE_COMPLEX | EDGE_FALLTHRU))
2792     return FALSE;
2793
2794   /* THEN has one predecessor.  */
2795   if (then_bb->pred->pred_next != NULL)
2796     return FALSE;
2797
2798   /* THEN must do something.  */
2799   if (forwarder_block_p (then_bb))
2800     return FALSE;
2801
2802   num_possible_if_blocks++;
2803   if (dump_file)
2804     fprintf (dump_file,
2805              "\nIF-CASE-1 found, start %d, then %d\n",
2806              test_bb->index, then_bb->index);
2807
2808   /* THEN is small.  */
2809   if (count_bb_insns (then_bb) > BRANCH_COST)
2810     return FALSE;
2811
2812   /* Registers set are dead, or are predicable.  */
2813   if (! dead_or_predicable (test_bb, then_bb, else_bb,
2814                             then_bb->succ->dest, 1))
2815     return FALSE;
2816
2817   /* Conversion went ok, including moving the insns and fixing up the
2818      jump.  Adjust the CFG to match.  */
2819
2820   bitmap_operation (test_bb->global_live_at_end,
2821                     else_bb->global_live_at_start,
2822                     then_bb->global_live_at_end, BITMAP_IOR);
2823
2824   new_bb = redirect_edge_and_branch_force (FALLTHRU_EDGE (test_bb), else_bb);
2825   then_bb_index = then_bb->index;
2826   delete_basic_block (then_bb);
2827
2828   /* Make rest of code believe that the newly created block is the THEN_BB
2829      block we removed.  */
2830   if (new_bb)
2831     {
2832       new_bb->index = then_bb_index;
2833       BASIC_BLOCK (then_bb_index) = new_bb;
2834     }
2835   /* We've possibly created jump to next insn, cleanup_cfg will solve that
2836      later.  */
2837
2838   num_true_changes++;
2839   num_updated_if_blocks++;
2840
2841   return TRUE;
2842 }
2843
2844 /* Test for case 2 above.  */
2845
2846 static int
2847 find_if_case_2 (basic_block test_bb, edge then_edge, edge else_edge)
2848 {
2849   basic_block then_bb = then_edge->dest;
2850   basic_block else_bb = else_edge->dest;
2851   edge else_succ = else_bb->succ;
2852   rtx note;
2853
2854   /* ELSE has one successor.  */
2855   if (!else_succ || else_succ->succ_next != NULL)
2856     return FALSE;
2857
2858   /* ELSE outgoing edge is not complex.  */
2859   if (else_succ->flags & EDGE_COMPLEX)
2860     return FALSE;
2861
2862   /* ELSE has one predecessor.  */
2863   if (else_bb->pred->pred_next != NULL)
2864     return FALSE;
2865
2866   /* THEN is not EXIT.  */
2867   if (then_bb->index < 0)
2868     return FALSE;
2869
2870   /* ELSE is predicted or SUCC(ELSE) postdominates THEN.  */
2871   note = find_reg_note (BB_END (test_bb), REG_BR_PROB, NULL_RTX);
2872   if (note && INTVAL (XEXP (note, 0)) >= REG_BR_PROB_BASE / 2)
2873     ;
2874   else if (else_succ->dest->index < 0
2875            || dominated_by_p (CDI_POST_DOMINATORS, then_bb,
2876                               else_succ->dest))
2877     ;
2878   else
2879     return FALSE;
2880
2881   num_possible_if_blocks++;
2882   if (dump_file)
2883     fprintf (dump_file,
2884              "\nIF-CASE-2 found, start %d, else %d\n",
2885              test_bb->index, else_bb->index);
2886
2887   /* ELSE is small.  */
2888   if (count_bb_insns (else_bb) > BRANCH_COST)
2889     return FALSE;
2890
2891   /* Registers set are dead, or are predicable.  */
2892   if (! dead_or_predicable (test_bb, else_bb, then_bb, else_succ->dest, 0))
2893     return FALSE;
2894
2895   /* Conversion went ok, including moving the insns and fixing up the
2896      jump.  Adjust the CFG to match.  */
2897
2898   bitmap_operation (test_bb->global_live_at_end,
2899                     then_bb->global_live_at_start,
2900                     else_bb->global_live_at_end, BITMAP_IOR);
2901
2902   delete_basic_block (else_bb);
2903
2904   num_true_changes++;
2905   num_updated_if_blocks++;
2906
2907   /* ??? We may now fallthru from one of THEN's successors into a join
2908      block.  Rerun cleanup_cfg?  Examine things manually?  Wait?  */
2909
2910   return TRUE;
2911 }
2912
2913 /* A subroutine of dead_or_predicable called through for_each_rtx.
2914    Return 1 if a memory is found.  */
2915
2916 static int
2917 find_memory (rtx *px, void *data ATTRIBUTE_UNUSED)
2918 {
2919   return GET_CODE (*px) == MEM;
2920 }
2921
2922 /* Used by the code above to perform the actual rtl transformations.
2923    Return TRUE if successful.
2924
2925    TEST_BB is the block containing the conditional branch.  MERGE_BB
2926    is the block containing the code to manipulate.  NEW_DEST is the
2927    label TEST_BB should be branching to after the conversion.
2928    REVERSEP is true if the sense of the branch should be reversed.  */
2929
2930 static int
2931 dead_or_predicable (basic_block test_bb, basic_block merge_bb,
2932                     basic_block other_bb, basic_block new_dest, int reversep)
2933 {
2934   rtx head, end, jump, earliest, old_dest, new_label = NULL_RTX;
2935
2936   jump = BB_END (test_bb);
2937
2938   /* Find the extent of the real code in the merge block.  */
2939   head = BB_HEAD (merge_bb);
2940   end = BB_END (merge_bb);
2941
2942   if (GET_CODE (head) == CODE_LABEL)
2943     head = NEXT_INSN (head);
2944   if (GET_CODE (head) == NOTE)
2945     {
2946       if (head == end)
2947         {
2948           head = end = NULL_RTX;
2949           goto no_body;
2950         }
2951       head = NEXT_INSN (head);
2952     }
2953
2954   if (GET_CODE (end) == JUMP_INSN)
2955     {
2956       if (head == end)
2957         {
2958           head = end = NULL_RTX;
2959           goto no_body;
2960         }
2961       end = PREV_INSN (end);
2962     }
2963
2964   /* Disable handling dead code by conditional execution if the machine needs
2965      to do anything funny with the tests, etc.  */
2966 #ifndef IFCVT_MODIFY_TESTS
2967   if (HAVE_conditional_execution)
2968     {
2969       /* In the conditional execution case, we have things easy.  We know
2970          the condition is reversible.  We don't have to check life info
2971          because we're going to conditionally execute the code anyway.
2972          All that's left is making sure the insns involved can actually
2973          be predicated.  */
2974
2975       rtx cond, prob_val;
2976
2977       cond = cond_exec_get_condition (jump);
2978       if (! cond)
2979         return FALSE;
2980
2981       prob_val = find_reg_note (jump, REG_BR_PROB, NULL_RTX);
2982       if (prob_val)
2983         prob_val = XEXP (prob_val, 0);
2984
2985       if (reversep)
2986         {
2987           enum rtx_code rev = reversed_comparison_code (cond, jump);
2988           if (rev == UNKNOWN)
2989             return FALSE;
2990           cond = gen_rtx_fmt_ee (rev, GET_MODE (cond), XEXP (cond, 0),
2991                                  XEXP (cond, 1));
2992           if (prob_val)
2993             prob_val = GEN_INT (REG_BR_PROB_BASE - INTVAL (prob_val));
2994         }
2995
2996       if (! cond_exec_process_insns ((ce_if_block_t *)0, head, end, cond,
2997                                      prob_val, 0))
2998         goto cancel;
2999
3000       earliest = jump;
3001     }
3002   else
3003 #endif
3004     {
3005       /* In the non-conditional execution case, we have to verify that there
3006          are no trapping operations, no calls, no references to memory, and
3007          that any registers modified are dead at the branch site.  */
3008
3009       rtx insn, cond, prev;
3010       regset_head merge_set_head, tmp_head, test_live_head, test_set_head;
3011       regset merge_set, tmp, test_live, test_set;
3012       struct propagate_block_info *pbi;
3013       int i, fail = 0;
3014
3015       /* Check for no calls or trapping operations.  */
3016       for (insn = head; ; insn = NEXT_INSN (insn))
3017         {
3018           if (GET_CODE (insn) == CALL_INSN)
3019             return FALSE;
3020           if (INSN_P (insn))
3021             {
3022               if (may_trap_p (PATTERN (insn)))
3023                 return FALSE;
3024
3025               /* ??? Even non-trapping memories such as stack frame
3026                  references must be avoided.  For stores, we collect
3027                  no lifetime info; for reads, we'd have to assert
3028                  true_dependence false against every store in the
3029                  TEST range.  */
3030               if (for_each_rtx (&PATTERN (insn), find_memory, NULL))
3031                 return FALSE;
3032             }
3033           if (insn == end)
3034             break;
3035         }
3036
3037       if (! any_condjump_p (jump))
3038         return FALSE;
3039
3040       /* Find the extent of the conditional.  */
3041       cond = noce_get_condition (jump, &earliest);
3042       if (! cond)
3043         return FALSE;
3044
3045       /* Collect:
3046            MERGE_SET = set of registers set in MERGE_BB
3047            TEST_LIVE = set of registers live at EARLIEST
3048            TEST_SET  = set of registers set between EARLIEST and the
3049                        end of the block.  */
3050
3051       tmp = INITIALIZE_REG_SET (tmp_head);
3052       merge_set = INITIALIZE_REG_SET (merge_set_head);
3053       test_live = INITIALIZE_REG_SET (test_live_head);
3054       test_set = INITIALIZE_REG_SET (test_set_head);
3055
3056       /* ??? bb->local_set is only valid during calculate_global_regs_live,
3057          so we must recompute usage for MERGE_BB.  Not so bad, I suppose,
3058          since we've already asserted that MERGE_BB is small.  */
3059       propagate_block (merge_bb, tmp, merge_set, merge_set, 0);
3060
3061       /* For small register class machines, don't lengthen lifetimes of
3062          hard registers before reload.  */
3063       if (SMALL_REGISTER_CLASSES && ! reload_completed)
3064         {
3065           EXECUTE_IF_SET_IN_BITMAP
3066             (merge_set, 0, i,
3067              {
3068                if (i < FIRST_PSEUDO_REGISTER
3069                    && ! fixed_regs[i]
3070                    && ! global_regs[i])
3071                 fail = 1;
3072              });
3073         }
3074
3075       /* For TEST, we're interested in a range of insns, not a whole block.
3076          Moreover, we're interested in the insns live from OTHER_BB.  */
3077
3078       COPY_REG_SET (test_live, other_bb->global_live_at_start);
3079       pbi = init_propagate_block_info (test_bb, test_live, test_set, test_set,
3080                                        0);
3081
3082       for (insn = jump; ; insn = prev)
3083         {
3084           prev = propagate_one_insn (pbi, insn);
3085           if (insn == earliest)
3086             break;
3087         }
3088
3089       free_propagate_block_info (pbi);
3090
3091       /* We can perform the transformation if
3092            MERGE_SET & (TEST_SET | TEST_LIVE)
3093          and
3094            TEST_SET & merge_bb->global_live_at_start
3095          are empty.  */
3096
3097       bitmap_operation (tmp, test_set, test_live, BITMAP_IOR);
3098       bitmap_operation (tmp, tmp, merge_set, BITMAP_AND);
3099       EXECUTE_IF_SET_IN_BITMAP(tmp, 0, i, fail = 1);
3100
3101       bitmap_operation (tmp, test_set, merge_bb->global_live_at_start,
3102                         BITMAP_AND);
3103       EXECUTE_IF_SET_IN_BITMAP(tmp, 0, i, fail = 1);
3104
3105       FREE_REG_SET (tmp);
3106       FREE_REG_SET (merge_set);
3107       FREE_REG_SET (test_live);
3108       FREE_REG_SET (test_set);
3109
3110       if (fail)
3111         return FALSE;
3112     }
3113
3114  no_body:
3115   /* We don't want to use normal invert_jump or redirect_jump because
3116      we don't want to delete_insn called.  Also, we want to do our own
3117      change group management.  */
3118
3119   old_dest = JUMP_LABEL (jump);
3120   if (other_bb != new_dest)
3121     {
3122       new_label = block_label (new_dest);
3123       if (reversep
3124           ? ! invert_jump_1 (jump, new_label)
3125           : ! redirect_jump_1 (jump, new_label))
3126         goto cancel;
3127     }
3128
3129   if (! apply_change_group ())
3130     return FALSE;
3131
3132   if (other_bb != new_dest)
3133     {
3134       if (old_dest)
3135         LABEL_NUSES (old_dest) -= 1;
3136       if (new_label)
3137         LABEL_NUSES (new_label) += 1;
3138       JUMP_LABEL (jump) = new_label;
3139       if (reversep)
3140         invert_br_probabilities (jump);
3141
3142       redirect_edge_succ (BRANCH_EDGE (test_bb), new_dest);
3143       if (reversep)
3144         {
3145           gcov_type count, probability;
3146           count = BRANCH_EDGE (test_bb)->count;
3147           BRANCH_EDGE (test_bb)->count = FALLTHRU_EDGE (test_bb)->count;
3148           FALLTHRU_EDGE (test_bb)->count = count;
3149           probability = BRANCH_EDGE (test_bb)->probability;
3150           BRANCH_EDGE (test_bb)->probability
3151             = FALLTHRU_EDGE (test_bb)->probability;
3152           FALLTHRU_EDGE (test_bb)->probability = probability;
3153           update_br_prob_note (test_bb);
3154         }
3155     }
3156
3157   /* Move the insns out of MERGE_BB to before the branch.  */
3158   if (head != NULL)
3159     {
3160       if (end == BB_END (merge_bb))
3161         BB_END (merge_bb) = PREV_INSN (head);
3162
3163       if (squeeze_notes (&head, &end))
3164         return TRUE;
3165
3166       reorder_insns (head, end, PREV_INSN (earliest));
3167     }
3168
3169   /* Remove the jump and edge if we can.  */
3170   if (other_bb == new_dest)
3171     {
3172       delete_insn (jump);
3173       remove_edge (BRANCH_EDGE (test_bb));
3174       /* ??? Can't merge blocks here, as then_bb is still in use.
3175          At minimum, the merge will get done just before bb-reorder.  */
3176     }
3177
3178   return TRUE;
3179
3180  cancel:
3181   cancel_changes (0);
3182   return FALSE;
3183 }
3184 \f
3185 /* Main entry point for all if-conversion.  */
3186
3187 void
3188 if_convert (int x_life_data_ok)
3189 {
3190   basic_block bb;
3191   int pass;
3192
3193   num_possible_if_blocks = 0;
3194   num_updated_if_blocks = 0;
3195   num_true_changes = 0;
3196   life_data_ok = (x_life_data_ok != 0);
3197
3198   if (! (* targetm.cannot_modify_jumps_p) ())
3199     mark_loop_exit_edges ();
3200
3201   /* Free up basic_block_for_insn so that we don't have to keep it
3202      up to date, either here or in merge_blocks.  */
3203   free_basic_block_vars (1);
3204
3205   /* Compute postdominators if we think we'll use them.  */
3206   if (HAVE_conditional_execution || life_data_ok)
3207     calculate_dominance_info (CDI_POST_DOMINATORS);
3208
3209   if (life_data_ok)
3210     clear_bb_flags ();
3211
3212   /* Go through each of the basic blocks looking for things to convert.  If we
3213      have conditional execution, we make multiple passes to allow us to handle
3214      IF-THEN{-ELSE} blocks within other IF-THEN{-ELSE} blocks.  */
3215   pass = 0;
3216   do
3217     {
3218       cond_exec_changed_p = FALSE;
3219       pass++;
3220
3221 #ifdef IFCVT_MULTIPLE_DUMPS
3222       if (dump_file && pass > 1)
3223         fprintf (dump_file, "\n\n========== Pass %d ==========\n", pass);
3224 #endif
3225
3226       FOR_EACH_BB (bb)
3227         {
3228           basic_block new_bb;
3229           while ((new_bb = find_if_header (bb, pass)))
3230             bb = new_bb;
3231         }
3232
3233 #ifdef IFCVT_MULTIPLE_DUMPS
3234       if (dump_file && cond_exec_changed_p)
3235         print_rtl_with_bb (dump_file, get_insns ());
3236 #endif
3237     }
3238   while (cond_exec_changed_p);
3239
3240 #ifdef IFCVT_MULTIPLE_DUMPS
3241   if (dump_file)
3242     fprintf (dump_file, "\n\n========== no more changes\n");
3243 #endif
3244
3245   free_dominance_info (CDI_POST_DOMINATORS);
3246
3247   if (dump_file)
3248     fflush (dump_file);
3249
3250   clear_aux_for_blocks ();
3251
3252   /* Rebuild life info for basic blocks that require it.  */
3253   if (num_true_changes && life_data_ok)
3254     {
3255       /* If we allocated new pseudos, we must resize the array for sched1.  */
3256       if (max_regno < max_reg_num ())
3257         {
3258           max_regno = max_reg_num ();
3259           allocate_reg_info (max_regno, FALSE, FALSE);
3260         }
3261       update_life_info_in_dirty_blocks (UPDATE_LIFE_GLOBAL_RM_NOTES,
3262                                         PROP_DEATH_NOTES | PROP_SCAN_DEAD_CODE
3263                                         | PROP_KILL_DEAD_CODE);
3264     }
3265
3266   /* Write the final stats.  */
3267   if (dump_file && num_possible_if_blocks > 0)
3268     {
3269       fprintf (dump_file,
3270                "\n%d possible IF blocks searched.\n",
3271                num_possible_if_blocks);
3272       fprintf (dump_file,
3273                "%d IF blocks converted.\n",
3274                num_updated_if_blocks);
3275       fprintf (dump_file,
3276                "%d true changes made.\n\n\n",
3277                num_true_changes);
3278     }
3279
3280 #ifdef ENABLE_CHECKING
3281   verify_flow_info ();
3282 #endif
3283 }