1 /* Generate code from machine description to extract operands from insn as rtl.
2 Copyright (C) 1987, 91, 92, 93, 97, 1998 Free Software Foundation, Inc.
4 This file is part of GNU CC.
6 GNU CC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU CC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU CC; see the file COPYING. If not, write to
18 the Free Software Foundation, 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
26 #include "insn-config.h"
28 static struct obstack obstack;
29 struct obstack *rtl_obstack = &obstack;
31 #define obstack_chunk_alloc xmalloc
32 #define obstack_chunk_free free
34 /* Names for patterns. Need to allow linking with print-rtl. */
37 /* This structure contains all the information needed to describe one
38 set of extractions methods. Each method may be used by more than
39 one pattern if the operands are in the same place.
41 The string for each operand describes that path to the operand and
42 contains `0' through `9' when going into an expression and `a' through
43 `z' when going into a vector. We assume here that only the first operand
44 of an rtl expression is a vector. genrecog.c makes the same assumption
45 (and uses the same representation) and it is currently true. */
50 char *oplocs[MAX_RECOG_OPERANDS];
52 char *duplocs[MAX_DUP_OPERANDS];
53 int dupnums[MAX_DUP_OPERANDS];
54 struct code_ptr *insns;
55 struct extraction *next;
58 /* Holds a single insn code that use an extraction method. */
63 struct code_ptr *next;
66 static struct extraction *extractions;
68 /* Number instruction patterns handled, starting at 0 for first one. */
70 static int insn_code_number;
72 /* Records the large operand number in this insn. */
76 /* Records the location of any operands using the string format described
79 static char *oplocs[MAX_RECOG_OPERANDS];
81 /* Number the occurrences of MATCH_DUP in each instruction,
82 starting at 0 for the first occurrence. */
86 /* Records the location of any MATCH_DUP operands. */
88 static char *duplocs[MAX_DUP_OPERANDS];
90 /* Record the operand number of any MATCH_DUPs. */
92 static int dupnums[MAX_DUP_OPERANDS];
94 /* Record the list of insn_codes for peepholes. */
96 static struct code_ptr *peepholes;
98 static void gen_insn PROTO ((rtx));
99 static void walk_rtx PROTO ((rtx, char *));
100 static void print_path PROTO ((char *));
101 char *xmalloc PROTO ((unsigned));
102 char *xrealloc PROTO ((char *, unsigned));
103 static void fatal PVPROTO ((char *, ...)) ATTRIBUTE_PRINTF_1;
104 static char *copystr PROTO ((char *));
105 static void mybzero ();
106 void fancy_abort PROTO ((void));
113 register struct extraction *p;
114 register struct code_ptr *link;
119 /* No operands seen so far in this pattern. */
120 mybzero (oplocs, sizeof oplocs);
122 /* Walk the insn's pattern, remembering at all times the path
123 down to the walking point. */
125 if (XVECLEN (insn, 1) == 1)
126 walk_rtx (XVECEXP (insn, 1, 0), "");
128 for (i = XVECLEN (insn, 1) - 1; i >= 0; i--)
130 char *path = (char *) alloca (2);
135 walk_rtx (XVECEXP (insn, 1, i), path);
138 link = (struct code_ptr *) xmalloc (sizeof (struct code_ptr));
139 link->insn_code = insn_code_number;
141 /* See if we find something that already had this extraction method. */
143 for (p = extractions; p; p = p->next)
145 if (p->op_count != op_count || p->dup_count != dup_count)
148 for (i = 0; i < op_count; i++)
149 if (p->oplocs[i] != oplocs[i]
150 && ! (p->oplocs[i] != 0 && oplocs[i] != 0
151 && ! strcmp (p->oplocs[i], oplocs[i])))
157 for (i = 0; i < dup_count; i++)
158 if (p->dupnums[i] != dupnums[i]
159 || strcmp (p->duplocs[i], duplocs[i]))
165 /* This extraction is the same as ours. Just link us in. */
166 link->next = p->insns;
171 /* Otherwise, make a new extraction method. */
173 p = (struct extraction *) xmalloc (sizeof (struct extraction));
174 p->op_count = op_count;
175 p->dup_count = dup_count;
176 p->next = extractions;
181 for (i = 0; i < op_count; i++)
182 p->oplocs[i] = oplocs[i];
184 for (i = 0; i < dup_count; i++)
185 p->dupnums[i] = dupnums[i], p->duplocs[i] = duplocs[i];
193 register RTX_CODE code;
197 int depth = strlen (path);
215 oplocs[XINT (x, 0)] = copystr (path);
216 op_count = MAX (op_count, XINT (x, 0) + 1);
221 duplocs[dup_count] = copystr (path);
222 dupnums[dup_count] = XINT (x, 0);
227 duplocs[dup_count] = copystr (path);
228 dupnums[dup_count] = XINT (x, 0);
231 newpath = (char *) alloca (depth + 2);
232 strcpy (newpath, path);
233 newpath[depth + 1] = 0;
235 for (i = XVECLEN (x, 1) - 1; i >= 0; i--)
237 newpath[depth] = '0' + i;
238 walk_rtx (XVECEXP (x, 1, i), newpath);
243 oplocs[XINT (x, 0)] = copystr (path);
244 op_count = MAX (op_count, XINT (x, 0) + 1);
246 newpath = (char *) alloca (depth + 2);
247 strcpy (newpath, path);
248 newpath[depth + 1] = 0;
250 for (i = XVECLEN (x, 2) - 1; i >= 0; i--)
252 newpath[depth] = '0' + i;
253 walk_rtx (XVECEXP (x, 2, i), newpath);
258 oplocs[XINT (x, 0)] = copystr (path);
259 op_count = MAX (op_count, XINT (x, 0) + 1);
261 newpath = (char *) alloca (depth + 2);
262 strcpy (newpath, path);
263 newpath[depth + 1] = 0;
265 for (i = XVECLEN (x, 2) - 1; i >= 0; i--)
267 newpath[depth] = 'a' + i;
268 walk_rtx (XVECEXP (x, 2, i), newpath);
273 walk_rtx (XEXP (x, 0), path);
280 newpath = (char *) alloca (depth + 2);
281 strcpy (newpath, path);
282 newpath[depth + 1] = 0;
284 fmt = GET_RTX_FORMAT (code);
285 len = GET_RTX_LENGTH (code);
286 for (i = 0; i < len; i++)
288 if (fmt[i] == 'e' || fmt[i] == 'u')
290 newpath[depth] = '0' + i;
291 walk_rtx (XEXP (x, i), newpath);
293 else if (fmt[i] == 'E')
296 for (j = XVECLEN (x, i) - 1; j >= 0; j--)
298 newpath[depth] = 'a' + j;
299 walk_rtx (XVECEXP (x, i, j), newpath);
305 /* Given a PATH, representing a path down the instruction's
306 pattern from the root to a certain point, output code to
307 evaluate to the rtx at that point. */
313 register int len = strlen (path);
318 /* Don't emit "pat", since we may try to take the address of it,
319 which isn't what is intended. */
320 printf("PATTERN (insn)");
324 /* We first write out the operations (XEXP or XVECEXP) in reverse
325 order, then write "insn", then the indices in forward order. */
327 for (i = len - 1; i >=0 ; i--)
329 if (path[i] >= 'a' && path[i] <= 'z')
330 printf ("XVECEXP (");
331 else if (path[i] >= '0' && path[i] <= '9')
339 for (i = 0; i < len; i++)
341 if (path[i] >= 'a' && path[i] <= 'z')
342 printf (", 0, %d)", path[i] - 'a');
343 else if (path[i] >= '0' && path[i] <= '9')
344 printf (", %d)", path[i] - '0');
354 register char *val = (char *) malloc (size);
357 fatal ("virtual memory exhausted");
366 char *result = (char *) realloc (ptr, size);
368 fatal ("virtual memory exhausted");
373 fatal VPROTO ((char *format, ...))
380 VA_START (ap, format);
383 format = va_arg (ap, char *);
386 fprintf (stderr, "genextract: ");
387 vfprintf (stderr, format, ap);
389 fprintf (stderr, "\n");
390 exit (FATAL_EXIT_CODE);
393 /* More 'friendly' abort that prints the line and file.
394 config.h can #define abort fancy_abort if you like that sort of thing. */
399 fatal ("Internal gcc abort.");
411 tem = (char *) xmalloc (strlen (s1) + 1);
420 register unsigned length;
434 struct extraction *p;
435 struct code_ptr *link;
437 obstack_init (rtl_obstack);
440 fatal ("No input file name.");
442 infile = fopen (argv[1], "r");
446 exit (FATAL_EXIT_CODE);
451 /* Assign sequential codes to all entries in the machine description
452 in parallel with the tables in insn-output.c. */
454 insn_code_number = 0;
456 printf ("/* Generated automatically by the program `genextract'\n\
457 from the machine description file `md'. */\n\n");
459 printf ("#include \"config.h\"\n");
460 printf ("#include \"system.h\"\n");
461 printf ("#include \"rtl.h\"\n\n");
463 /* This variable exists only so it can be the "location"
464 of any missing operand whose numbers are skipped by a given pattern. */
465 printf ("static rtx junk ATTRIBUTE_UNUSED;\n");
467 printf ("extern rtx recog_operand[];\n");
468 printf ("extern rtx *recog_operand_loc[];\n");
469 printf ("extern rtx *recog_dup_loc[];\n");
470 printf ("extern char recog_dup_num[];\n");
472 printf ("void\ninsn_extract (insn)\n");
473 printf (" rtx insn;\n");
475 printf (" register rtx *ro = recog_operand;\n");
476 printf (" register rtx **ro_loc = recog_operand_loc;\n");
477 printf (" rtx pat = PATTERN (insn);\n");
478 printf (" int i ATTRIBUTE_UNUSED;\n\n");
479 printf (" switch (INSN_CODE (insn))\n");
481 printf (" case -1:\n");
482 printf (" fatal_insn_not_found (insn);\n\n");
484 /* Read the machine description. */
488 c = read_skip_spaces (infile);
493 desc = read_rtx (infile);
494 if (GET_CODE (desc) == DEFINE_INSN)
500 else if (GET_CODE (desc) == DEFINE_PEEPHOLE)
502 struct code_ptr *link
503 = (struct code_ptr *) xmalloc (sizeof (struct code_ptr));
505 link->insn_code = insn_code_number;
506 link->next = peepholes;
511 else if (GET_CODE (desc) == DEFINE_EXPAND
512 || GET_CODE (desc) == DEFINE_SPLIT)
516 /* Write out code to handle peepholes and the insn_codes that it should
520 for (link = peepholes; link; link = link->next)
521 printf (" case %d:\n", link->insn_code);
523 /* The vector in the insn says how many operands it has.
524 And all it contains are operands. In fact, the vector was
525 created just for the sake of this function. */
526 printf (" for (i = XVECLEN (pat, 0) - 1; i >= 0; i--)\n");
527 printf (" ro[i] = XVECEXP (pat, 0, i);\n");
528 printf (" break;\n\n");
531 /* Write out all the ways to extract insn operands. */
532 for (p = extractions; p; p = p->next)
534 for (link = p->insns; link; link = link->next)
535 printf (" case %d:\n", link->insn_code);
537 for (i = 0; i < p->op_count; i++)
539 if (p->oplocs[i] == 0)
541 printf (" ro[%d] = const0_rtx;\n", i);
542 printf (" ro_loc[%d] = &junk;\n", i);
546 printf (" ro[%d] = *(ro_loc[%d] = &", i, i);
547 print_path (p->oplocs[i]);
552 for (i = 0; i < p->dup_count; i++)
554 printf (" recog_dup_loc[%d] = &", i);
555 print_path (p->duplocs[i]);
557 printf (" recog_dup_num[%d] = %d;\n", i, p->dupnums[i]);
560 printf (" break;\n\n");
563 /* This should never be reached. Note that we would also reach this abort
564 if we tried to extract something whose INSN_CODE was a DEFINE_EXPAND or
565 DEFINE_SPLIT, but that is correct. */
566 printf (" default:\n abort ();\n");
571 exit (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);