68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
1 /* Post-reload compare elimination.
|
131
|
2 Copyright (C) 2010-2018 Free Software Foundation, Inc.
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
3
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
4 This file is part of GCC.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
5
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
6 GCC is free software; you can redistribute it and/or modify it under
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
7 the terms of the GNU General Public License as published by the Free
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
8 Software Foundation; either version 3, or (at your option) any later
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
9 version.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
10
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
14 for more details.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
15
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
16 You should have received a copy of the GNU General Public License
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
17 along with GCC; see the file COPYING3. If not see
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
18 <http://www.gnu.org/licenses/>. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
19
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
20 /* There is a set of targets whose general-purpose move or addition
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
21 instructions clobber the flags. These targets cannot split their
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
22 CBRANCH/CSTORE etc patterns before reload is complete, lest reload
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
23 itself insert these instructions in between the flags setter and user.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
24 Because these targets cannot split the compare from the use, they
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
25 cannot make use of the comparison elimination offered by the combine pass.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
26
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
27 This is a small pass intended to provide comparison elimination similar to
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
28 what is available via NOTICE_UPDATE_CC for cc0 targets. This should help
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
29 encourage cc0 targets to convert to an explicit post-reload representation
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
30 of the flags.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
31
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
32 This pass assumes:
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
33
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
34 (0) CBRANCH/CSTORE etc have been split in pass_split_after_reload.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
35
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
36 (1) All comparison patterns are represented as
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
37
|
111
|
38 [(set (reg:CC) (compare:CC (reg) (reg_or_immediate)))]
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
39
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
40 (2) All insn patterns that modify the flags are represented as
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
41
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
42 [(set (reg) (operation)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
43 (clobber (reg:CC))]
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
44
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
45 (3) If an insn of form (2) can usefully set the flags, there is
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
46 another pattern of the form
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
47
|
111
|
48 [(set (reg:CCM) (compare:CCM (operation) (immediate)))
|
|
49 (set (reg) (operation)]
|
|
50
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
51 The mode CCM will be chosen as if by SELECT_CC_MODE.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
52
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
53 Note that unlike NOTICE_UPDATE_CC, we do not handle memory operands.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
54 This could be handled as a future enhancement.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
55 */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
56
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
57 #include "config.h"
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
58 #include "system.h"
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
59 #include "coretypes.h"
|
111
|
60 #include "backend.h"
|
|
61 #include "target.h"
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
62 #include "rtl.h"
|
111
|
63 #include "df.h"
|
|
64 #include "memmodel.h"
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
65 #include "tm_p.h"
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
66 #include "insn-config.h"
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
67 #include "recog.h"
|
111
|
68 #include "emit-rtl.h"
|
|
69 #include "cfgrtl.h"
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
70 #include "tree-pass.h"
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
71 #include "domwalk.h"
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
72
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
73
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
74 /* These structures describe a comparison and how it is used. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
75
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
76 /* The choice of maximum 3 uses comes from wanting to eliminate the two
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
77 duplicate compares from a three-way branch on the sign of a value.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
78 This is also sufficient to eliminate the duplicate compare against the
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
79 high-part of a double-word comparison. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
80 #define MAX_CMP_USE 3
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
81
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
82 struct comparison_use
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
83 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
84 /* The instruction in which the result of the compare is used. */
|
111
|
85 rtx_insn *insn;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
86 /* The location of the flags register within the use. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
87 rtx *loc;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
88 /* The comparison code applied against the flags register. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
89 enum rtx_code code;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
90 };
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
91
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
92 struct comparison
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
93 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
94 /* The comparison instruction. */
|
111
|
95 rtx_insn *insn;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
96
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
97 /* The insn prior to the comparison insn that clobbers the flags. */
|
111
|
98 rtx_insn *prev_clobber;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
99
|
131
|
100 /* The insn prior to the comparison insn that sets in_a REG. */
|
|
101 rtx_insn *in_a_setter;
|
|
102
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
103 /* The two values being compared. These will be either REGs or
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
104 constants. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
105 rtx in_a, in_b;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
106
|
111
|
107 /* The REG_EH_REGION of the comparison. */
|
|
108 rtx eh_note;
|
|
109
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
110 /* Information about how this comparison is used. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
111 struct comparison_use uses[MAX_CMP_USE];
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
112
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
113 /* The original CC_MODE for this comparison. */
|
111
|
114 machine_mode orig_mode;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
115
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
116 /* The number of uses identified for this comparison. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
117 unsigned short n_uses;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
118
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
119 /* True if not all uses of this comparison have been identified.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
120 This can happen either for overflowing the array above, or if
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
121 the flags register is used in some unusual context. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
122 bool missing_uses;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
123
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
124 /* True if its inputs are still valid at the end of the block. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
125 bool inputs_valid;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
126 };
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
127
|
111
|
128 static vec<comparison *> all_compares;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
129
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
130 /* Look for a "conforming" comparison, as defined above. If valid, return
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
131 the rtx for the COMPARE itself. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
132
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
133 static rtx
|
111
|
134 conforming_compare (rtx_insn *insn)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
135 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
136 rtx set, src, dest;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
137
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
138 set = single_set (insn);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
139 if (set == NULL)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
140 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
141
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
142 src = SET_SRC (set);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
143 if (GET_CODE (src) != COMPARE)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
144 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
145
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
146 dest = SET_DEST (set);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
147 if (!REG_P (dest) || REGNO (dest) != targetm.flags_regnum)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
148 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
149
|
111
|
150 if (!REG_P (XEXP (src, 0)))
|
|
151 return NULL;
|
|
152
|
|
153 if (CONSTANT_P (XEXP (src, 1)) || REG_P (XEXP (src, 1)))
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
154 return src;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
155
|
111
|
156 if (GET_CODE (XEXP (src, 1)) == UNSPEC)
|
|
157 {
|
|
158 for (int i = 0; i < XVECLEN (XEXP (src, 1), 0); i++)
|
|
159 if (!REG_P (XVECEXP (XEXP (src, 1), 0, i)))
|
|
160 return NULL;
|
|
161 return src;
|
|
162 }
|
|
163
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
164 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
165 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
166
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
167 /* Look for a pattern of the "correct" form for an insn with a flags clobber
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
168 for which we may be able to eliminate a compare later. We're not looking
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
169 to validate any inputs at this time, merely see that the basic shape is
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
170 correct. The term "arithmetic" may be somewhat misleading... */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
171
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
172 static bool
|
111
|
173 arithmetic_flags_clobber_p (rtx_insn *insn)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
174 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
175 rtx pat, x;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
176
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
177 if (!NONJUMP_INSN_P (insn))
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
178 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
179 pat = PATTERN (insn);
|
111
|
180 if (asm_noperands (pat) >= 0)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
181 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
182
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
183 if (GET_CODE (pat) == PARALLEL && XVECLEN (pat, 0) == 2)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
184 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
185 x = XVECEXP (pat, 0, 0);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
186 if (GET_CODE (x) != SET)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
187 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
188 x = SET_DEST (x);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
189 if (!REG_P (x))
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
190 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
191
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
192 x = XVECEXP (pat, 0, 1);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
193 if (GET_CODE (x) == CLOBBER)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
194 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
195 x = XEXP (x, 0);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
196 if (REG_P (x) && REGNO (x) == targetm.flags_regnum)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
197 return true;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
198 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
199 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
200
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
201 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
202 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
203
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
204 /* Look for uses of FLAGS in INSN. If we find one we can analyze, record
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
205 it in CMP; otherwise indicate that we've missed a use. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
206
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
207 static void
|
111
|
208 find_flags_uses_in_insn (struct comparison *cmp, rtx_insn *insn)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
209 {
|
111
|
210 df_ref use;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
211
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
212 /* If we've already lost track of uses, don't bother collecting more. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
213 if (cmp->missing_uses)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
214 return;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
215
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
216 /* Find a USE of the flags register. */
|
111
|
217 FOR_EACH_INSN_USE (use, insn)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
218 if (DF_REF_REGNO (use) == targetm.flags_regnum)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
219 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
220 rtx x, *loc;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
221
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
222 /* If this is an unusual use, quit. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
223 if (DF_REF_TYPE (use) != DF_REF_REG_USE)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
224 goto fail;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
225
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
226 /* If we've run out of slots to record uses, quit. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
227 if (cmp->n_uses == MAX_CMP_USE)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
228 goto fail;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
229
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
230 /* Unfortunately the location of the flags register, while present
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
231 in the reference structure, doesn't help. We need to find the
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
232 comparison code that is outer to the actual flags use. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
233 loc = DF_REF_LOC (use);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
234 x = PATTERN (insn);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
235 if (GET_CODE (x) == PARALLEL)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
236 x = XVECEXP (x, 0, 0);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
237 x = SET_SRC (x);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
238 if (GET_CODE (x) == IF_THEN_ELSE)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
239 x = XEXP (x, 0);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
240 if (COMPARISON_P (x)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
241 && loc == &XEXP (x, 0)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
242 && XEXP (x, 1) == const0_rtx)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
243 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
244 /* We've found a use of the flags that we understand. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
245 struct comparison_use *cuse = &cmp->uses[cmp->n_uses++];
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
246 cuse->insn = insn;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
247 cuse->loc = loc;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
248 cuse->code = GET_CODE (x);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
249 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
250 else
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
251 goto fail;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
252 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
253 return;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
254
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
255 fail:
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
256 /* We failed to recognize this use of the flags register. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
257 cmp->missing_uses = true;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
258 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
259
|
111
|
260 class find_comparison_dom_walker : public dom_walker
|
|
261 {
|
|
262 public:
|
|
263 find_comparison_dom_walker (cdi_direction direction)
|
|
264 : dom_walker (direction) {}
|
|
265
|
|
266 virtual edge before_dom_children (basic_block);
|
|
267 };
|
|
268
|
|
269 /* Return true if conforming COMPARE with EH_NOTE is redundant with comparison
|
|
270 CMP and can thus be eliminated. */
|
|
271
|
|
272 static bool
|
|
273 can_eliminate_compare (rtx compare, rtx eh_note, struct comparison *cmp)
|
|
274 {
|
|
275 /* Take care that it's in the same EH region. */
|
|
276 if (cfun->can_throw_non_call_exceptions
|
|
277 && !rtx_equal_p (eh_note, cmp->eh_note))
|
|
278 return false;
|
|
279
|
|
280 /* Make sure the compare is redundant with the previous. */
|
|
281 if (!rtx_equal_p (XEXP (compare, 0), cmp->in_a)
|
|
282 || !rtx_equal_p (XEXP (compare, 1), cmp->in_b))
|
|
283 return false;
|
|
284
|
|
285 /* New mode must be compatible with the previous compare mode. */
|
|
286 machine_mode new_mode
|
|
287 = targetm.cc_modes_compatible (GET_MODE (compare), cmp->orig_mode);
|
|
288
|
|
289 if (new_mode == VOIDmode)
|
|
290 return false;
|
|
291
|
|
292 if (cmp->orig_mode != new_mode)
|
|
293 {
|
|
294 /* Generate new comparison for substitution. */
|
|
295 rtx flags = gen_rtx_REG (new_mode, targetm.flags_regnum);
|
|
296 rtx x = gen_rtx_COMPARE (new_mode, cmp->in_a, cmp->in_b);
|
|
297 x = gen_rtx_SET (flags, x);
|
|
298
|
|
299 if (!validate_change (cmp->insn, &PATTERN (cmp->insn), x, false))
|
|
300 return false;
|
|
301
|
|
302 cmp->orig_mode = new_mode;
|
|
303 }
|
|
304
|
|
305 return true;
|
|
306 }
|
|
307
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
308 /* Identify comparison instructions within BB. If the flags from the last
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
309 compare in the BB is live at the end of the block, install the compare
|
111
|
310 in BB->AUX. Called via dom_walker.walk (). */
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
311
|
111
|
312 edge
|
|
313 find_comparison_dom_walker::before_dom_children (basic_block bb)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
314 {
|
131
|
315 rtx_insn *insn, *next;
|
111
|
316 bool need_purge = false;
|
131
|
317 rtx_insn *last_setter[FIRST_PSEUDO_REGISTER];
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
318
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
319 /* The last comparison that was made. Will be reset to NULL
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
320 once the flags are clobbered. */
|
131
|
321 struct comparison *last_cmp = NULL;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
322
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
323 /* True iff the last comparison has not been clobbered, nor
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
324 have its inputs. Used to eliminate duplicate compares. */
|
131
|
325 bool last_cmp_valid = false;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
326
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
327 /* The last insn that clobbered the flags, if that insn is of
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
328 a form that may be valid for eliminating a following compare.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
329 To be reset to NULL once the flags are set otherwise. */
|
131
|
330 rtx_insn *last_clobber = NULL;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
331
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
332 /* Propagate the last live comparison throughout the extended basic block. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
333 if (single_pred_p (bb))
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
334 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
335 last_cmp = (struct comparison *) single_pred (bb)->aux;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
336 if (last_cmp)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
337 last_cmp_valid = last_cmp->inputs_valid;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
338 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
339
|
131
|
340 memset (last_setter, 0, sizeof (last_setter));
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
341 for (insn = BB_HEAD (bb); insn; insn = next)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
342 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
343 rtx src;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
344
|
111
|
345 next = (insn == BB_END (bb) ? NULL : NEXT_INSN (insn));
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
346 if (!NONDEBUG_INSN_P (insn))
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
347 continue;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
348
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
349 src = conforming_compare (insn);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
350 if (src)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
351 {
|
111
|
352 rtx eh_note = NULL;
|
|
353
|
|
354 if (cfun->can_throw_non_call_exceptions)
|
|
355 eh_note = find_reg_note (insn, REG_EH_REGION, NULL);
|
|
356
|
|
357 if (last_cmp_valid && can_eliminate_compare (src, eh_note, last_cmp))
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
358 {
|
111
|
359 if (eh_note)
|
|
360 need_purge = true;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
361 delete_insn (insn);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
362 continue;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
363 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
364
|
111
|
365 last_cmp = XCNEW (struct comparison);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
366 last_cmp->insn = insn;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
367 last_cmp->prev_clobber = last_clobber;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
368 last_cmp->in_a = XEXP (src, 0);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
369 last_cmp->in_b = XEXP (src, 1);
|
111
|
370 last_cmp->eh_note = eh_note;
|
|
371 last_cmp->orig_mode = GET_MODE (src);
|
131
|
372 if (last_cmp->in_b == const0_rtx
|
|
373 && last_setter[REGNO (last_cmp->in_a)])
|
|
374 {
|
|
375 rtx set = single_set (last_setter[REGNO (last_cmp->in_a)]);
|
|
376 if (set && rtx_equal_p (SET_DEST (set), last_cmp->in_a))
|
|
377 last_cmp->in_a_setter = last_setter[REGNO (last_cmp->in_a)];
|
|
378 }
|
111
|
379 all_compares.safe_push (last_cmp);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
380
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
381 /* It's unusual, but be prepared for comparison patterns that
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
382 also clobber an input, or perhaps a scratch. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
383 last_clobber = NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
384 last_cmp_valid = true;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
385 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
386
|
111
|
387 else
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
388 {
|
111
|
389 /* Notice if this instruction uses the flags register. */
|
|
390 if (last_cmp)
|
|
391 find_flags_uses_in_insn (last_cmp, insn);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
392
|
111
|
393 /* Notice if this instruction kills the flags register. */
|
131
|
394 df_ref def;
|
|
395 FOR_EACH_INSN_DEF (def, insn)
|
|
396 if (DF_REF_REGNO (def) == targetm.flags_regnum)
|
|
397 {
|
|
398 /* See if this insn could be the "clobber" that eliminates
|
|
399 a future comparison. */
|
|
400 last_clobber = (arithmetic_flags_clobber_p (insn)
|
|
401 ? insn : NULL);
|
111
|
402
|
131
|
403 /* In either case, the previous compare is no longer valid. */
|
|
404 last_cmp = NULL;
|
|
405 last_cmp_valid = false;
|
|
406 break;
|
|
407 }
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
408 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
409
|
131
|
410 /* Notice if any of the inputs to the comparison have changed
|
|
411 and remember last insn that sets each register. */
|
|
412 df_ref def;
|
|
413 FOR_EACH_INSN_DEF (def, insn)
|
|
414 {
|
|
415 if (last_cmp_valid
|
|
416 && (DF_REF_REGNO (def) == REGNO (last_cmp->in_a)
|
|
417 || (REG_P (last_cmp->in_b)
|
|
418 && DF_REF_REGNO (def) == REGNO (last_cmp->in_b))))
|
|
419 last_cmp_valid = false;
|
|
420 last_setter[DF_REF_REGNO (def)] = insn;
|
|
421 }
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
422 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
423
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
424 /* Remember the live comparison for subsequent members of
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
425 the extended basic block. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
426 if (last_cmp)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
427 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
428 bb->aux = last_cmp;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
429 last_cmp->inputs_valid = last_cmp_valid;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
430
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
431 /* Look to see if the flags register is live outgoing here, and
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
432 incoming to any successor not part of the extended basic block. */
|
111
|
433 if (bitmap_bit_p (df_get_live_out (bb), targetm.flags_regnum))
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
434 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
435 edge e;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
436 edge_iterator ei;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
437
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
438 FOR_EACH_EDGE (e, ei, bb->succs)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
439 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
440 basic_block dest = e->dest;
|
111
|
441 if (bitmap_bit_p (df_get_live_in (bb), targetm.flags_regnum)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
442 && !single_pred_p (dest))
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
443 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
444 last_cmp->missing_uses = true;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
445 break;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
446 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
447 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
448 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
449 }
|
111
|
450
|
|
451 /* If we deleted a compare with a REG_EH_REGION note, we may need to
|
|
452 remove EH edges. */
|
|
453 if (need_purge)
|
|
454 purge_dead_edges (bb);
|
|
455
|
|
456 return NULL;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
457 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
458
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
459 /* Find all comparisons in the function. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
460
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
461 static void
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
462 find_comparisons (void)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
463 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
464 calculate_dominance_info (CDI_DOMINATORS);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
465
|
111
|
466 find_comparison_dom_walker (CDI_DOMINATORS)
|
|
467 .walk (cfun->cfg->x_entry_block_ptr);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
468
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
469 clear_aux_for_blocks ();
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
470 free_dominance_info (CDI_DOMINATORS);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
471 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
472
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
473 /* Select an alternate CC_MODE for a comparison insn comparing A and B.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
474 Note that inputs are almost certainly different than the IN_A and IN_B
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
475 stored in CMP -- we're called while attempting to eliminate the compare
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
476 after all. Return the new FLAGS rtx if successful, else return NULL.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
477 Note that this function may start a change group. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
478
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
479 static rtx
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
480 maybe_select_cc_mode (struct comparison *cmp, rtx a ATTRIBUTE_UNUSED,
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
481 rtx b ATTRIBUTE_UNUSED)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
482 {
|
111
|
483 machine_mode sel_mode;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
484 const int n = cmp->n_uses;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
485 rtx flags = NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
486
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
487 #ifndef SELECT_CC_MODE
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
488 /* Minimize code differences when this target macro is undefined. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
489 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
490 #define SELECT_CC_MODE(A,B,C) (gcc_unreachable (), VOIDmode)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
491 #endif
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
492
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
493 /* If we don't have access to all of the uses, we can't validate. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
494 if (cmp->missing_uses || n == 0)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
495 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
496
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
497 /* Find a new mode that works for all of the uses. Special case the
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
498 common case of exactly one use. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
499 if (n == 1)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
500 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
501 sel_mode = SELECT_CC_MODE (cmp->uses[0].code, a, b);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
502 if (sel_mode != cmp->orig_mode)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
503 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
504 flags = gen_rtx_REG (sel_mode, targetm.flags_regnum);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
505 validate_change (cmp->uses[0].insn, cmp->uses[0].loc, flags, true);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
506 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
507 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
508 else
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
509 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
510 int i;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
511
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
512 sel_mode = SELECT_CC_MODE (cmp->uses[0].code, a, b);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
513 for (i = 1; i < n; ++i)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
514 {
|
111
|
515 machine_mode new_mode = SELECT_CC_MODE (cmp->uses[i].code, a, b);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
516 if (new_mode != sel_mode)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
517 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
518 sel_mode = targetm.cc_modes_compatible (sel_mode, new_mode);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
519 if (sel_mode == VOIDmode)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
520 return NULL;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
521 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
522 }
|
111
|
523
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
524 if (sel_mode != cmp->orig_mode)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
525 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
526 flags = gen_rtx_REG (sel_mode, targetm.flags_regnum);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
527 for (i = 0; i < n; ++i)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
528 validate_change (cmp->uses[i].insn, cmp->uses[i].loc, flags, true);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
529 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
530 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
531
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
532 return flags;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
533 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
534
|
111
|
535 /* Return a register RTX holding the same value at START as REG at END, or
|
|
536 NULL_RTX if there is none. */
|
|
537
|
|
538 static rtx
|
|
539 equivalent_reg_at_start (rtx reg, rtx_insn *end, rtx_insn *start)
|
|
540 {
|
|
541 machine_mode orig_mode = GET_MODE (reg);
|
|
542 rtx_insn *bb_head = BB_HEAD (BLOCK_FOR_INSN (end));
|
|
543
|
|
544 for (rtx_insn *insn = PREV_INSN (end);
|
|
545 insn != start;
|
|
546 insn = PREV_INSN (insn))
|
|
547 {
|
|
548 const int abnormal_flags
|
|
549 = (DF_REF_CONDITIONAL | DF_REF_PARTIAL | DF_REF_MAY_CLOBBER
|
|
550 | DF_REF_MUST_CLOBBER | DF_REF_SIGN_EXTRACT
|
|
551 | DF_REF_ZERO_EXTRACT | DF_REF_STRICT_LOW_PART
|
|
552 | DF_REF_PRE_POST_MODIFY);
|
|
553 df_ref def;
|
|
554
|
|
555 /* Note that the BB_HEAD is always either a note or a label, but in
|
|
556 any case it means that REG is defined outside the block. */
|
|
557 if (insn == bb_head)
|
|
558 return NULL_RTX;
|
|
559 if (NOTE_P (insn) || DEBUG_INSN_P (insn))
|
|
560 continue;
|
|
561
|
|
562 /* Find a possible def of REG in INSN. */
|
|
563 FOR_EACH_INSN_DEF (def, insn)
|
|
564 if (DF_REF_REGNO (def) == REGNO (reg))
|
|
565 break;
|
|
566
|
|
567 /* No definitions of REG; continue searching. */
|
|
568 if (def == NULL)
|
|
569 continue;
|
|
570
|
|
571 /* Bail if this is not a totally normal set of REG. */
|
|
572 if (DF_REF_IS_ARTIFICIAL (def))
|
|
573 return NULL_RTX;
|
|
574 if (DF_REF_FLAGS (def) & abnormal_flags)
|
|
575 return NULL_RTX;
|
|
576
|
|
577 /* We've found an insn between the compare and the clobber that sets
|
|
578 REG. Given that pass_cprop_hardreg has not yet run, we still find
|
|
579 situations in which we can usefully look through a copy insn. */
|
|
580 rtx x = single_set (insn);
|
|
581 if (x == NULL_RTX)
|
|
582 return NULL_RTX;
|
|
583 reg = SET_SRC (x);
|
|
584 if (!REG_P (reg))
|
|
585 return NULL_RTX;
|
|
586 }
|
|
587
|
|
588 if (GET_MODE (reg) != orig_mode)
|
|
589 return NULL_RTX;
|
|
590
|
|
591 return reg;
|
|
592 }
|
|
593
|
|
594 /* Return true if it is okay to merge the comparison CMP_INSN with
|
|
595 the instruction ARITH_INSN. Both instructions are assumed to be in the
|
|
596 same basic block with ARITH_INSN appearing before CMP_INSN. This checks
|
|
597 that there are no uses or defs of the condition flags or control flow
|
|
598 changes between the two instructions. */
|
|
599
|
|
600 static bool
|
|
601 can_merge_compare_into_arith (rtx_insn *cmp_insn, rtx_insn *arith_insn)
|
|
602 {
|
|
603 for (rtx_insn *insn = PREV_INSN (cmp_insn);
|
|
604 insn && insn != arith_insn;
|
|
605 insn = PREV_INSN (insn))
|
|
606 {
|
|
607 if (!NONDEBUG_INSN_P (insn))
|
|
608 continue;
|
|
609 /* Bail if there are jumps or calls in between. */
|
|
610 if (!NONJUMP_INSN_P (insn))
|
|
611 return false;
|
|
612
|
|
613 /* Bail on old-style asm statements because they lack
|
|
614 data flow information. */
|
|
615 if (GET_CODE (PATTERN (insn)) == ASM_INPUT)
|
|
616 return false;
|
|
617
|
|
618 df_ref ref;
|
|
619 /* Find a USE of the flags register. */
|
|
620 FOR_EACH_INSN_USE (ref, insn)
|
|
621 if (DF_REF_REGNO (ref) == targetm.flags_regnum)
|
|
622 return false;
|
|
623
|
|
624 /* Find a DEF of the flags register. */
|
|
625 FOR_EACH_INSN_DEF (ref, insn)
|
|
626 if (DF_REF_REGNO (ref) == targetm.flags_regnum)
|
|
627 return false;
|
|
628 }
|
|
629 return true;
|
|
630 }
|
|
631
|
|
632 /* Given two SET expressions, SET_A and SET_B determine whether they form
|
|
633 a recognizable pattern when emitted in parallel. Return that parallel
|
|
634 if so. Otherwise return NULL. */
|
|
635
|
|
636 static rtx
|
|
637 try_validate_parallel (rtx set_a, rtx set_b)
|
|
638 {
|
131
|
639 rtx par = gen_rtx_PARALLEL (VOIDmode, gen_rtvec (2, set_a, set_b));
|
|
640 rtx_insn *insn = make_insn_raw (par);
|
111
|
641
|
131
|
642 if (insn_invalid_p (insn, false))
|
|
643 {
|
|
644 crtl->emit.x_cur_insn_uid--;
|
|
645 return NULL_RTX;
|
|
646 }
|
111
|
647
|
131
|
648 SET_PREV_INSN (insn) = NULL_RTX;
|
|
649 SET_NEXT_INSN (insn) = NULL_RTX;
|
|
650 INSN_LOCATION (insn) = 0;
|
|
651 return insn;
|
111
|
652 }
|
|
653
|
|
654 /* For a comparison instruction described by CMP check if it compares a
|
|
655 register with zero i.e. it is of the form CC := CMP R1, 0.
|
|
656 If it is, find the instruction defining R1 (say I1) and try to create a
|
|
657 PARALLEL consisting of I1 and the comparison, representing a flag-setting
|
|
658 arithmetic instruction. Example:
|
|
659 I1: R1 := R2 + R3
|
|
660 <instructions that don't read the condition register>
|
|
661 I2: CC := CMP R1 0
|
|
662 I2 can be merged with I1 into:
|
131
|
663 I1: { CC := CMP (R2 + R3) 0 ; R1 := R2 + R3 }
|
111
|
664 This catches cases where R1 is used between I1 and I2 and therefore
|
|
665 combine and other RTL optimisations will not try to propagate it into
|
|
666 I2. Return true if we succeeded in merging CMP. */
|
|
667
|
|
668 static bool
|
|
669 try_merge_compare (struct comparison *cmp)
|
|
670 {
|
|
671 rtx_insn *cmp_insn = cmp->insn;
|
|
672
|
131
|
673 if (cmp->in_b != const0_rtx || cmp->in_a_setter == NULL)
|
111
|
674 return false;
|
|
675 rtx in_a = cmp->in_a;
|
|
676 df_ref use;
|
|
677
|
|
678 FOR_EACH_INSN_USE (use, cmp_insn)
|
|
679 if (DF_REF_REGNO (use) == REGNO (in_a))
|
|
680 break;
|
|
681 if (!use)
|
|
682 return false;
|
|
683
|
131
|
684 rtx_insn *def_insn = cmp->in_a_setter;
|
111
|
685 rtx set = single_set (def_insn);
|
|
686 if (!set)
|
|
687 return false;
|
|
688
|
|
689 if (!can_merge_compare_into_arith (cmp_insn, def_insn))
|
|
690 return false;
|
|
691
|
|
692 rtx src = SET_SRC (set);
|
131
|
693
|
|
694 /* If the source uses addressing modes with side effects, we can't
|
|
695 do the merge because we'd end up with a PARALLEL that has two
|
|
696 instances of that side effect in it. */
|
|
697 if (side_effects_p (src))
|
|
698 return false;
|
|
699
|
111
|
700 rtx flags = maybe_select_cc_mode (cmp, src, CONST0_RTX (GET_MODE (src)));
|
|
701 if (!flags)
|
|
702 {
|
|
703 /* We may already have a change group going through maybe_select_cc_mode.
|
|
704 Discard it properly. */
|
|
705 cancel_changes (0);
|
|
706 return false;
|
|
707 }
|
|
708
|
|
709 rtx flag_set
|
|
710 = gen_rtx_SET (flags, gen_rtx_COMPARE (GET_MODE (flags),
|
|
711 copy_rtx (src),
|
|
712 CONST0_RTX (GET_MODE (src))));
|
|
713 rtx arith_set = copy_rtx (PATTERN (def_insn));
|
|
714 rtx par = try_validate_parallel (flag_set, arith_set);
|
|
715 if (!par)
|
|
716 {
|
|
717 /* We may already have a change group going through maybe_select_cc_mode.
|
|
718 Discard it properly. */
|
|
719 cancel_changes (0);
|
|
720 return false;
|
|
721 }
|
|
722 if (!apply_change_group ())
|
|
723 return false;
|
|
724 emit_insn_after (par, def_insn);
|
|
725 delete_insn (def_insn);
|
|
726 delete_insn (cmp->insn);
|
|
727 return true;
|
|
728 }
|
|
729
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
730 /* Attempt to replace a comparison with a prior arithmetic insn that can
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
731 compute the same flags value as the comparison itself. Return true if
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
732 successful, having made all rtl modifications necessary. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
733
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
734 static bool
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
735 try_eliminate_compare (struct comparison *cmp)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
736 {
|
111
|
737 rtx flags, in_a, in_b, cmp_src;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
738
|
111
|
739 if (try_merge_compare (cmp))
|
|
740 return true;
|
|
741
|
|
742 /* We must have found an interesting "clobber" preceding the compare. */
|
|
743 if (cmp->prev_clobber == NULL)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
744 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
745
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
746 /* Verify that IN_A is not clobbered in between CMP and PREV_CLOBBER.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
747 Given that this target requires this pass, we can assume that most
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
748 insns do clobber the flags, and so the distance between the compare
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
749 and the clobber is likely to be small. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
750 /* ??? This is one point at which one could argue that DF_REF_CHAIN would
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
751 be useful, but it is thought to be too heavy-weight a solution here. */
|
111
|
752 in_a = equivalent_reg_at_start (cmp->in_a, cmp->insn, cmp->prev_clobber);
|
|
753 if (!in_a)
|
|
754 return false;
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
755
|
111
|
756 /* Likewise for IN_B if need be. */
|
|
757 if (CONSTANT_P (cmp->in_b))
|
|
758 in_b = cmp->in_b;
|
|
759 else if (REG_P (cmp->in_b))
|
|
760 {
|
|
761 in_b = equivalent_reg_at_start (cmp->in_b, cmp->insn, cmp->prev_clobber);
|
|
762 if (!in_b)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
763 return false;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
764 }
|
111
|
765 else if (GET_CODE (cmp->in_b) == UNSPEC)
|
|
766 {
|
|
767 const int len = XVECLEN (cmp->in_b, 0);
|
|
768 rtvec v = rtvec_alloc (len);
|
|
769 for (int i = 0; i < len; i++)
|
|
770 {
|
|
771 rtx r = equivalent_reg_at_start (XVECEXP (cmp->in_b, 0, i),
|
|
772 cmp->insn, cmp->prev_clobber);
|
|
773 if (!r)
|
|
774 return false;
|
|
775 RTVEC_ELT (v, i) = r;
|
|
776 }
|
|
777 in_b = gen_rtx_UNSPEC (GET_MODE (cmp->in_b), v, XINT (cmp->in_b, 1));
|
|
778 }
|
|
779 else
|
|
780 gcc_unreachable ();
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
781
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
782 /* We've reached PREV_CLOBBER without finding a modification of IN_A.
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
783 Validate that PREV_CLOBBER itself does in fact refer to IN_A. Do
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
784 recall that we've already validated the shape of PREV_CLOBBER. */
|
111
|
785 rtx_insn *insn = cmp->prev_clobber;
|
|
786
|
|
787 rtx x = XVECEXP (PATTERN (insn), 0, 0);
|
|
788 if (rtx_equal_p (SET_DEST (x), in_a))
|
|
789 cmp_src = SET_SRC (x);
|
|
790
|
|
791 /* Also check operations with implicit extensions, e.g.:
|
|
792 [(set (reg:DI)
|
|
793 (zero_extend:DI (plus:SI (reg:SI) (reg:SI))))
|
|
794 (set (reg:CCZ flags)
|
|
795 (compare:CCZ (plus:SI (reg:SI) (reg:SI))
|
|
796 (const_int 0)))] */
|
|
797 else if (REG_P (SET_DEST (x))
|
|
798 && REG_P (in_a)
|
|
799 && REGNO (SET_DEST (x)) == REGNO (in_a)
|
|
800 && (GET_CODE (SET_SRC (x)) == ZERO_EXTEND
|
|
801 || GET_CODE (SET_SRC (x)) == SIGN_EXTEND)
|
|
802 && GET_MODE (XEXP (SET_SRC (x), 0)) == GET_MODE (in_a))
|
|
803 cmp_src = XEXP (SET_SRC (x), 0);
|
|
804
|
|
805 /* Also check fully redundant comparisons, e.g.:
|
|
806 [(set (reg:SI)
|
|
807 (minus:SI (reg:SI) (reg:SI))))
|
|
808 (set (reg:CC flags)
|
|
809 (compare:CC (reg:SI) (reg:SI)))] */
|
|
810 else if (REG_P (in_b)
|
|
811 && GET_CODE (SET_SRC (x)) == MINUS
|
|
812 && rtx_equal_p (XEXP (SET_SRC (x), 0), in_a)
|
|
813 && rtx_equal_p (XEXP (SET_SRC (x), 1), in_b))
|
|
814 cmp_src = in_a;
|
|
815
|
|
816 else
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
817 return false;
|
111
|
818
|
131
|
819 /* If the source uses addressing modes with side effects, we can't
|
|
820 do the merge because we'd end up with a PARALLEL that has two
|
|
821 instances of that side effect in it. */
|
|
822 if (side_effects_p (cmp_src))
|
|
823 return false;
|
|
824
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
825 /* Determine if we ought to use a different CC_MODE here. */
|
111
|
826 flags = maybe_select_cc_mode (cmp, cmp_src, in_b);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
827 if (flags == NULL)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
828 flags = gen_rtx_REG (cmp->orig_mode, targetm.flags_regnum);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
829
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
830 /* Generate a new comparison for installation in the setter. */
|
111
|
831 rtx y = copy_rtx (cmp_src);
|
|
832 y = gen_rtx_COMPARE (GET_MODE (flags), y, in_b);
|
|
833 y = gen_rtx_SET (flags, y);
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
834
|
111
|
835 /* Canonicalize instruction to:
|
|
836 [(set (reg:CCM) (compare:CCM (operation) (immediate)))
|
|
837 (set (reg) (operation)] */
|
|
838
|
|
839 rtvec v = rtvec_alloc (2);
|
|
840 RTVEC_ELT (v, 0) = y;
|
|
841 RTVEC_ELT (v, 1) = x;
|
|
842
|
|
843 rtx pat = gen_rtx_PARALLEL (VOIDmode, v);
|
|
844
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
845 /* Succeed if the new instruction is valid. Note that we may have started
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
846 a change group within maybe_select_cc_mode, therefore we must continue. */
|
111
|
847 validate_change (insn, &PATTERN (insn), pat, true);
|
|
848
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
849 if (!apply_change_group ())
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
850 return false;
|
111
|
851
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
852 /* Success. Delete the compare insn... */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
853 delete_insn (cmp->insn);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
854
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
855 /* ... and any notes that are now invalid due to multiple sets. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
856 x = find_regno_note (insn, REG_UNUSED, targetm.flags_regnum);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
857 if (x)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
858 remove_note (insn, x);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
859 x = find_reg_note (insn, REG_EQUAL, NULL);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
860 if (x)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
861 remove_note (insn, x);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
862 x = find_reg_note (insn, REG_EQUIV, NULL);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
863 if (x)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
864 remove_note (insn, x);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
865
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
866 return true;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
867 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
868
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
869 /* Main entry point to the pass. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
870
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
871 static unsigned int
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
872 execute_compare_elim_after_reload (void)
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
873 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
874 df_analyze ();
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
875
|
111
|
876 gcc_checking_assert (!all_compares.exists ());
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
877
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
878 /* Locate all comparisons and their uses, and eliminate duplicates. */
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
879 find_comparisons ();
|
111
|
880 if (all_compares.exists ())
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
881 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
882 struct comparison *cmp;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
883 size_t i;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
884
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
885 /* Eliminate comparisons that are redundant with flags computation. */
|
111
|
886 FOR_EACH_VEC_ELT (all_compares, i, cmp)
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
887 {
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
888 try_eliminate_compare (cmp);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
889 XDELETE (cmp);
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
890 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
891
|
111
|
892 all_compares.release ();
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
893 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
894
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
895 return 0;
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
896 }
|
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
897
|
111
|
898 namespace {
|
|
899
|
|
900 const pass_data pass_data_compare_elim_after_reload =
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
901 {
|
111
|
902 RTL_PASS, /* type */
|
|
903 "cmpelim", /* name */
|
|
904 OPTGROUP_NONE, /* optinfo_flags */
|
|
905 TV_NONE, /* tv_id */
|
|
906 0, /* properties_required */
|
|
907 0, /* properties_provided */
|
|
908 0, /* properties_destroyed */
|
|
909 0, /* todo_flags_start */
|
|
910 ( TODO_df_finish | TODO_df_verify ), /* todo_flags_finish */
|
|
911 };
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
912
|
111
|
913 class pass_compare_elim_after_reload : public rtl_opt_pass
|
68
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff
changeset
|
914 {
|
111
|
915 public:
|
|
916 pass_compare_elim_after_reload (gcc::context *ctxt)
|
|
917 : rtl_opt_pass (pass_data_compare_elim_after_reload, ctxt)
|
|
918 {}
|
|
919
|
|
920 /* opt_pass methods: */
|
|
921 virtual bool gate (function *)
|
|
922 {
|
|
923 /* Setting this target hook value is how a backend indicates the need. */
|
|
924 if (targetm.flags_regnum == INVALID_REGNUM)
|
|
925 return false;
|
|
926 return flag_compare_elim_after_reload;
|
|
927 }
|
|
928
|
|
929 virtual unsigned int execute (function *)
|
|
930 {
|
|
931 return execute_compare_elim_after_reload ();
|
|
932 }
|
|
933
|
|
934 }; // class pass_compare_elim_after_reload
|
|
935
|
|
936 } // anon namespace
|
|
937
|
|
938 rtl_opt_pass *
|
|
939 make_pass_compare_elim_after_reload (gcc::context *ctxt)
|
|
940 {
|
|
941 return new pass_compare_elim_after_reload (ctxt);
|
|
942 }
|