* gcc.dg/store-motion-fgcse-sm.c (dg-final): Cleanup
[official-gcc.git] / gcc / genpeep.c
blob440f44408ed05b1a5876445f03c77b012659c918
1 /* Generate code from machine description to perform peephole optimizations.
2 Copyright (C) 1987-2014 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
21 #include "bconfig.h"
22 #include "system.h"
23 #include "coretypes.h"
24 #include "tm.h"
25 #include "rtl.h"
26 #include "errors.h"
27 #include "gensupport.h"
30 /* While tree-walking an instruction pattern, we keep a chain
31 of these `struct link's to record how to get down to the
32 current position. In each one, POS is the operand number,
33 and if the operand is a vector VEC is the element number.
34 VEC is -1 if the operand is not a vector. */
36 struct link
38 struct link *next;
39 int pos;
40 int vecelt;
43 static int max_opno;
45 /* Number of operands used in current peephole definition. */
47 static int n_operands;
49 static void gen_peephole (rtx, int);
50 static void match_rtx (rtx, struct link *, int);
51 static void print_path (struct link *);
52 static void print_code (RTX_CODE);
54 static void
55 gen_peephole (rtx peep, int insn_code_number)
57 int ninsns = XVECLEN (peep, 0);
58 int i;
60 n_operands = 0;
62 printf (" insn = ins1;\n");
64 for (i = 0; i < ninsns; i++)
66 if (i > 0)
68 printf (" do { insn = NEXT_INSN (insn);\n");
69 printf (" if (insn == 0) goto L%d; }\n",
70 insn_code_number);
71 printf (" while (NOTE_P (insn)\n");
72 printf ("\t || (NONJUMP_INSN_P (insn)\n");
73 printf ("\t && (GET_CODE (PATTERN (insn)) == USE\n");
74 printf ("\t\t || GET_CODE (PATTERN (insn)) == CLOBBER)));\n");
76 printf (" if (LABEL_P (insn)\n\
77 || BARRIER_P (insn))\n goto L%d;\n",
78 insn_code_number);
81 printf (" pat = PATTERN (insn);\n");
83 /* Walk the insn's pattern, remembering at all times the path
84 down to the walking point. */
86 match_rtx (XVECEXP (peep, 0, i), NULL, insn_code_number);
89 /* We get this far if the pattern matches.
90 Now test the extra condition. */
92 if (XSTR (peep, 1) && XSTR (peep, 1)[0])
93 printf (" if (! (%s)) goto L%d;\n",
94 XSTR (peep, 1), insn_code_number);
96 /* If that matches, construct new pattern and put it in the first insn.
97 This new pattern will never be matched.
98 It exists only so that insn-extract can get the operands back.
99 So use a simple regular form: a PARALLEL containing a vector
100 of all the operands. */
102 printf (" PATTERN (ins1) = gen_rtx_PARALLEL (VOIDmode, gen_rtvec_v (%d, operands));\n", n_operands);
104 /* Record this define_peephole's insn code in the insn,
105 as if it had been recognized to match this. */
106 printf (" INSN_CODE (ins1) = %d;\n",
107 insn_code_number);
109 /* Delete the remaining insns. */
110 if (ninsns > 1)
111 printf (" delete_for_peephole (NEXT_INSN (ins1), insn);\n");
113 /* See reload1.c for insertion of NOTE which guarantees that this
114 cannot be zero. */
115 printf (" return NEXT_INSN (insn);\n");
117 printf (" L%d:\n\n", insn_code_number);
120 static void
121 match_rtx (rtx x, struct link *path, int fail_label)
123 RTX_CODE code;
124 int i;
125 int len;
126 const char *fmt;
127 struct link link;
129 if (x == 0)
130 return;
133 code = GET_CODE (x);
135 switch (code)
137 case MATCH_OPERAND:
138 if (XINT (x, 0) > max_opno)
139 max_opno = XINT (x, 0);
140 if (XINT (x, 0) >= n_operands)
141 n_operands = 1 + XINT (x, 0);
143 printf (" x = ");
144 print_path (path);
145 printf (";\n");
147 printf (" operands[%d] = x;\n", XINT (x, 0));
148 if (XSTR (x, 1) && XSTR (x, 1)[0])
149 printf (" if (! %s (x, %smode)) goto L%d;\n",
150 XSTR (x, 1), GET_MODE_NAME (GET_MODE (x)), fail_label);
151 return;
153 case MATCH_DUP:
154 case MATCH_PAR_DUP:
155 printf (" x = ");
156 print_path (path);
157 printf (";\n");
159 printf (" if (!rtx_equal_p (operands[%d], x)) goto L%d;\n",
160 XINT (x, 0), fail_label);
161 return;
163 case MATCH_OP_DUP:
164 printf (" x = ");
165 print_path (path);
166 printf (";\n");
168 printf (" if (GET_CODE (operands[%d]) != GET_CODE (x)\n", XINT (x, 0));
169 printf (" || GET_MODE (operands[%d]) != GET_MODE (x)) goto L%d;\n",
170 XINT (x, 0), fail_label);
171 printf (" operands[%d] = x;\n", XINT (x, 0));
172 link.next = path;
173 link.vecelt = -1;
174 for (i = 0; i < XVECLEN (x, 1); i++)
176 link.pos = i;
177 match_rtx (XVECEXP (x, 1, i), &link, fail_label);
179 return;
181 case MATCH_OPERATOR:
182 if (XINT (x, 0) > max_opno)
183 max_opno = XINT (x, 0);
184 if (XINT (x, 0) >= n_operands)
185 n_operands = 1 + XINT (x, 0);
187 printf (" x = ");
188 print_path (path);
189 printf (";\n");
191 printf (" operands[%d] = x;\n", XINT (x, 0));
192 if (XSTR (x, 1) && XSTR (x, 1)[0])
193 printf (" if (! %s (x, %smode)) goto L%d;\n",
194 XSTR (x, 1), GET_MODE_NAME (GET_MODE (x)), fail_label);
195 link.next = path;
196 link.vecelt = -1;
197 for (i = 0; i < XVECLEN (x, 2); i++)
199 link.pos = i;
200 match_rtx (XVECEXP (x, 2, i), &link, fail_label);
202 return;
204 case MATCH_PARALLEL:
205 if (XINT (x, 0) > max_opno)
206 max_opno = XINT (x, 0);
207 if (XINT (x, 0) >= n_operands)
208 n_operands = 1 + XINT (x, 0);
210 printf (" x = ");
211 print_path (path);
212 printf (";\n");
214 printf (" if (GET_CODE (x) != PARALLEL) goto L%d;\n", fail_label);
215 printf (" operands[%d] = x;\n", XINT (x, 0));
216 if (XSTR (x, 1) && XSTR (x, 1)[0])
217 printf (" if (! %s (x, %smode)) goto L%d;\n",
218 XSTR (x, 1), GET_MODE_NAME (GET_MODE (x)), fail_label);
219 link.next = path;
220 link.pos = 0;
221 for (i = 0; i < XVECLEN (x, 2); i++)
223 link.vecelt = i;
224 match_rtx (XVECEXP (x, 2, i), &link, fail_label);
226 return;
228 default:
229 break;
232 printf (" x = ");
233 print_path (path);
234 printf (";\n");
236 printf (" if (GET_CODE (x) != ");
237 print_code (code);
238 printf (") goto L%d;\n", fail_label);
240 if (GET_MODE (x) != VOIDmode)
242 printf (" if (GET_MODE (x) != %smode) goto L%d;\n",
243 GET_MODE_NAME (GET_MODE (x)), fail_label);
246 link.next = path;
247 link.vecelt = -1;
248 fmt = GET_RTX_FORMAT (code);
249 len = GET_RTX_LENGTH (code);
250 for (i = 0; i < len; i++)
252 link.pos = i;
253 if (fmt[i] == 'e' || fmt[i] == 'u')
254 match_rtx (XEXP (x, i), &link, fail_label);
255 else if (fmt[i] == 'E')
257 int j;
258 printf (" if (XVECLEN (x, %d) != %d) goto L%d;\n",
259 i, XVECLEN (x, i), fail_label);
260 for (j = 0; j < XVECLEN (x, i); j++)
262 link.vecelt = j;
263 match_rtx (XVECEXP (x, i, j), &link, fail_label);
266 else if (fmt[i] == 'i')
268 /* Make sure that at run time `x' is the RTX we want to test. */
269 if (i != 0)
271 printf (" x = ");
272 print_path (path);
273 printf (";\n");
276 printf (" if (XINT (x, %d) != %d) goto L%d;\n",
277 i, XINT (x, i), fail_label);
279 else if (fmt[i] == 'w')
281 /* Make sure that at run time `x' is the RTX we want to test. */
282 if (i != 0)
284 printf (" x = ");
285 print_path (path);
286 printf (";\n");
289 printf (" if (XWINT (x, %d) != ", i);
290 printf (HOST_WIDE_INT_PRINT_DEC, XWINT (x, i));
291 printf (") goto L%d;\n", fail_label);
293 else if (fmt[i] == 's')
295 /* Make sure that at run time `x' is the RTX we want to test. */
296 if (i != 0)
298 printf (" x = ");
299 print_path (path);
300 printf (";\n");
303 printf (" if (strcmp (XSTR (x, %d), \"%s\")) goto L%d;\n",
304 i, XSTR (x, i), fail_label);
309 /* Given a PATH, representing a path down the instruction's
310 pattern from the root to a certain point, output code to
311 evaluate to the rtx at that point. */
313 static void
314 print_path (struct link *path)
316 if (path == 0)
317 printf ("pat");
318 else if (path->vecelt >= 0)
320 printf ("XVECEXP (");
321 print_path (path->next);
322 printf (", %d, %d)", path->pos, path->vecelt);
324 else
326 printf ("XEXP (");
327 print_path (path->next);
328 printf (", %d)", path->pos);
332 static void
333 print_code (RTX_CODE code)
335 const char *p1;
336 for (p1 = GET_RTX_NAME (code); *p1; p1++)
337 putchar (TOUPPER (*p1));
340 extern int main (int, char **);
343 main (int argc, char **argv)
345 rtx desc;
347 max_opno = -1;
349 progname = "genpeep";
351 if (!init_rtx_reader_args (argc, argv))
352 return (FATAL_EXIT_CODE);
354 printf ("/* Generated automatically by the program `genpeep'\n\
355 from the machine description file `md'. */\n\n");
357 printf ("#include \"config.h\"\n");
358 printf ("#include \"system.h\"\n");
359 printf ("#include \"coretypes.h\"\n");
360 printf ("#include \"tm.h\"\n");
361 printf ("#include \"insn-config.h\"\n");
362 printf ("#include \"tree.h\"\n");
363 printf ("#include \"varasm.h\"\n");
364 printf ("#include \"stor-layout.h\"\n");
365 printf ("#include \"calls.h\"\n");
366 printf ("#include \"rtl.h\"\n");
367 printf ("#include \"tm_p.h\"\n");
368 printf ("#include \"regs.h\"\n");
369 printf ("#include \"output.h\"\n");
370 printf ("#include \"recog.h\"\n");
371 printf ("#include \"except.h\"\n");
372 printf ("#include \"function.h\"\n");
373 printf ("#include \"diagnostic-core.h\"\n");
374 printf ("#include \"flags.h\"\n");
375 printf ("#include \"tm-constrs.h\"\n\n");
377 printf ("#ifdef HAVE_peephole\n");
378 printf ("extern rtx peep_operand[];\n\n");
379 printf ("#define operands peep_operand\n\n");
381 printf ("rtx_insn *\npeephole (rtx_insn *ins1)\n{\n");
382 printf (" rtx_insn *insn ATTRIBUTE_UNUSED;\n");
383 printf (" rtx x ATTRIBUTE_UNUSED, pat ATTRIBUTE_UNUSED;\n\n");
385 /* Early out: no peepholes for insns followed by barriers. */
386 printf (" if (NEXT_INSN (ins1)\n");
387 printf (" && BARRIER_P (NEXT_INSN (ins1)))\n");
388 printf (" return 0;\n\n");
390 /* Read the machine description. */
392 while (1)
394 int line_no;
395 int insn_code_number;
397 desc = read_md_rtx (&line_no, &insn_code_number);
398 if (desc == NULL)
399 break;
401 if (GET_CODE (desc) == DEFINE_PEEPHOLE)
402 gen_peephole (desc, insn_code_number);
405 printf (" return 0;\n}\n\n");
407 if (max_opno == -1)
408 max_opno = 1;
410 printf ("rtx peep_operand[%d];\n", max_opno + 1);
411 printf ("#endif\n");
413 fflush (stdout);
414 return (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);