]>
git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/genextract.c
1 /* Generate code from machine description to extract operands from insn as rtl.
2 Copyright (C) 1987, 91-93, 97-98, 1999 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. */
27 #include "insn-config.h"
29 static struct obstack obstack
;
30 struct obstack
*rtl_obstack
= &obstack
;
32 #define obstack_chunk_alloc xmalloc
33 #define obstack_chunk_free free
35 /* This structure contains all the information needed to describe one
36 set of extractions methods. Each method may be used by more than
37 one pattern if the operands are in the same place.
39 The string for each operand describes that path to the operand and
40 contains `0' through `9' when going into an expression and `a' through
41 `z' when going into a vector. We assume here that only the first operand
42 of an rtl expression is a vector. genrecog.c makes the same assumption
43 (and uses the same representation) and it is currently true. */
48 char *oplocs
[MAX_RECOG_OPERANDS
];
50 char *duplocs
[MAX_DUP_OPERANDS
];
51 int dupnums
[MAX_DUP_OPERANDS
];
52 struct code_ptr
*insns
;
53 struct extraction
*next
;
56 /* Holds a single insn code that use an extraction method. */
61 struct code_ptr
*next
;
64 static struct extraction
*extractions
;
66 /* Number instruction patterns handled, starting at 0 for first one. */
68 static int insn_code_number
;
70 /* Records the large operand number in this insn. */
74 /* Records the location of any operands using the string format described
77 static char *oplocs
[MAX_RECOG_OPERANDS
];
79 /* Number the occurrences of MATCH_DUP in each instruction,
80 starting at 0 for the first occurrence. */
84 /* Records the location of any MATCH_DUP operands. */
86 static char *duplocs
[MAX_DUP_OPERANDS
];
88 /* Record the operand number of any MATCH_DUPs. */
90 static int dupnums
[MAX_DUP_OPERANDS
];
92 /* Record the list of insn_codes for peepholes. */
94 static struct code_ptr
*peepholes
;
96 static void gen_insn
PROTO ((rtx
));
97 static void walk_rtx
PROTO ((rtx
, const char *));
98 static void print_path
PROTO ((char *));
105 register struct extraction
*p
;
106 register struct code_ptr
*link
;
111 /* No operands seen so far in this pattern. */
112 memset (oplocs
, 0, sizeof oplocs
);
114 /* Walk the insn's pattern, remembering at all times the path
115 down to the walking point. */
117 if (XVECLEN (insn
, 1) == 1)
118 walk_rtx (XVECEXP (insn
, 1, 0), "");
120 for (i
= XVECLEN (insn
, 1) - 1; i
>= 0; i
--)
122 char *path
= (char *) alloca (2);
127 walk_rtx (XVECEXP (insn
, 1, i
), path
);
130 link
= (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
131 link
->insn_code
= insn_code_number
;
133 /* See if we find something that already had this extraction method. */
135 for (p
= extractions
; p
; p
= p
->next
)
137 if (p
->op_count
!= op_count
|| p
->dup_count
!= dup_count
)
140 for (i
= 0; i
< op_count
; i
++)
141 if (p
->oplocs
[i
] != oplocs
[i
]
142 && ! (p
->oplocs
[i
] != 0 && oplocs
[i
] != 0
143 && ! strcmp (p
->oplocs
[i
], oplocs
[i
])))
149 for (i
= 0; i
< dup_count
; i
++)
150 if (p
->dupnums
[i
] != dupnums
[i
]
151 || strcmp (p
->duplocs
[i
], duplocs
[i
]))
157 /* This extraction is the same as ours. Just link us in. */
158 link
->next
= p
->insns
;
163 /* Otherwise, make a new extraction method. */
165 p
= (struct extraction
*) xmalloc (sizeof (struct extraction
));
166 p
->op_count
= op_count
;
167 p
->dup_count
= dup_count
;
168 p
->next
= extractions
;
173 for (i
= 0; i
< op_count
; i
++)
174 p
->oplocs
[i
] = oplocs
[i
];
176 for (i
= 0; i
< dup_count
; i
++)
177 p
->dupnums
[i
] = dupnums
[i
], p
->duplocs
[i
] = duplocs
[i
];
185 register RTX_CODE code
;
188 register const char *fmt
;
189 int depth
= strlen (path
);
207 oplocs
[XINT (x
, 0)] = xstrdup (path
);
208 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
213 duplocs
[dup_count
] = xstrdup (path
);
214 dupnums
[dup_count
] = XINT (x
, 0);
219 duplocs
[dup_count
] = xstrdup (path
);
220 dupnums
[dup_count
] = XINT (x
, 0);
223 newpath
= (char *) alloca (depth
+ 2);
224 strcpy (newpath
, path
);
225 newpath
[depth
+ 1] = 0;
227 for (i
= XVECLEN (x
, 1) - 1; i
>= 0; i
--)
229 newpath
[depth
] = '0' + i
;
230 walk_rtx (XVECEXP (x
, 1, i
), newpath
);
235 oplocs
[XINT (x
, 0)] = xstrdup (path
);
236 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
238 newpath
= (char *) alloca (depth
+ 2);
239 strcpy (newpath
, path
);
240 newpath
[depth
+ 1] = 0;
242 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
244 newpath
[depth
] = '0' + i
;
245 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
250 oplocs
[XINT (x
, 0)] = xstrdup (path
);
251 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
253 newpath
= (char *) alloca (depth
+ 2);
254 strcpy (newpath
, path
);
255 newpath
[depth
+ 1] = 0;
257 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
259 newpath
[depth
] = 'a' + i
;
260 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
265 walk_rtx (XEXP (x
, 0), path
);
272 newpath
= (char *) alloca (depth
+ 2);
273 strcpy (newpath
, path
);
274 newpath
[depth
+ 1] = 0;
276 fmt
= GET_RTX_FORMAT (code
);
277 len
= GET_RTX_LENGTH (code
);
278 for (i
= 0; i
< len
; i
++)
280 if (fmt
[i
] == 'e' || fmt
[i
] == 'u')
282 newpath
[depth
] = '0' + i
;
283 walk_rtx (XEXP (x
, i
), newpath
);
285 else if (fmt
[i
] == 'E')
288 for (j
= XVECLEN (x
, i
) - 1; j
>= 0; j
--)
290 newpath
[depth
] = 'a' + j
;
291 walk_rtx (XVECEXP (x
, i
, j
), newpath
);
297 /* Given a PATH, representing a path down the instruction's
298 pattern from the root to a certain point, output code to
299 evaluate to the rtx at that point. */
305 register int len
= strlen (path
);
310 /* Don't emit "pat", since we may try to take the address of it,
311 which isn't what is intended. */
312 printf("PATTERN (insn)");
316 /* We first write out the operations (XEXP or XVECEXP) in reverse
317 order, then write "insn", then the indices in forward order. */
319 for (i
= len
- 1; i
>=0 ; i
--)
321 if (ISLOWER(path
[i
]))
322 printf ("XVECEXP (");
323 else if (ISDIGIT(path
[i
]))
331 for (i
= 0; i
< len
; i
++)
333 if (ISLOWER(path
[i
]))
334 printf (", 0, %d)", path
[i
] - 'a');
335 else if (ISDIGIT(path
[i
]))
336 printf (", %d)", path
[i
] - '0');
346 register PTR val
= (PTR
) malloc (size
);
349 fatal ("virtual memory exhausted");
360 ptr
= (PTR
) realloc (old
, size
);
362 ptr
= (PTR
) malloc (size
);
364 fatal ("virtual memory exhausted");
372 register size_t len
= strlen (input
) + 1;
373 register char *output
= xmalloc (len
);
374 memcpy (output
, input
, len
);
386 struct extraction
*p
;
387 struct code_ptr
*link
;
389 progname
= "genextract";
390 obstack_init (rtl_obstack
);
393 fatal ("No input file name.");
395 infile
= fopen (argv
[1], "r");
399 exit (FATAL_EXIT_CODE
);
402 /* Assign sequential codes to all entries in the machine description
403 in parallel with the tables in insn-output.c. */
405 insn_code_number
= 0;
407 printf ("/* Generated automatically by the program `genextract'\n\
408 from the machine description file `md'. */\n\n");
410 printf ("#include \"config.h\"\n");
411 printf ("#include \"system.h\"\n");
412 printf ("#include \"rtl.h\"\n");
413 printf ("#include \"insn-config.h\"\n");
414 printf ("#include \"recog.h\"\n");
415 printf ("#include \"toplev.h\"\n\n");
417 /* This variable exists only so it can be the "location"
418 of any missing operand whose numbers are skipped by a given pattern. */
419 printf ("static rtx junk ATTRIBUTE_UNUSED;\n");
421 printf ("void\ninsn_extract (insn)\n");
422 printf (" rtx insn;\n");
424 printf (" register rtx *ro = recog_data.operand;\n");
425 printf (" register rtx **ro_loc = recog_data.operand_loc;\n");
426 printf (" rtx pat = PATTERN (insn);\n");
427 printf (" int i ATTRIBUTE_UNUSED;\n\n");
428 printf (" memset (ro, 0, sizeof (*ro) * MAX_RECOG_OPERANDS);\n");
429 printf (" memset (ro_loc, 0, sizeof (*ro_loc) * MAX_RECOG_OPERANDS);\n");
430 printf (" switch (INSN_CODE (insn))\n");
432 printf (" case -1:\n");
433 printf (" fatal_insn_not_found (insn);\n\n");
435 /* Read the machine description. */
439 c
= read_skip_spaces (infile
);
444 desc
= read_rtx (infile
);
445 if (GET_CODE (desc
) == DEFINE_INSN
)
451 else if (GET_CODE (desc
) == DEFINE_PEEPHOLE
)
453 struct code_ptr
*link
454 = (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
456 link
->insn_code
= insn_code_number
;
457 link
->next
= peepholes
;
462 else if (GET_CODE (desc
) == DEFINE_EXPAND
463 || GET_CODE (desc
) == DEFINE_PEEPHOLE2
464 || GET_CODE (desc
) == DEFINE_SPLIT
)
468 /* Write out code to handle peepholes and the insn_codes that it should
472 for (link
= peepholes
; link
; link
= link
->next
)
473 printf (" case %d:\n", link
->insn_code
);
475 /* The vector in the insn says how many operands it has.
476 And all it contains are operands. In fact, the vector was
477 created just for the sake of this function. */
478 printf (" for (i = XVECLEN (pat, 0) - 1; i >= 0; i--)\n");
479 printf (" ro[i] = XVECEXP (pat, 0, i);\n");
480 printf (" break;\n\n");
483 /* Write out all the ways to extract insn operands. */
484 for (p
= extractions
; p
; p
= p
->next
)
486 for (link
= p
->insns
; link
; link
= link
->next
)
487 printf (" case %d:\n", link
->insn_code
);
489 for (i
= 0; i
< p
->op_count
; i
++)
491 if (p
->oplocs
[i
] == 0)
493 printf (" ro[%d] = const0_rtx;\n", i
);
494 printf (" ro_loc[%d] = &junk;\n", i
);
498 printf (" ro[%d] = *(ro_loc[%d] = &", i
, i
);
499 print_path (p
->oplocs
[i
]);
504 for (i
= 0; i
< p
->dup_count
; i
++)
506 printf (" recog_data.dup_loc[%d] = &", i
);
507 print_path (p
->duplocs
[i
]);
509 printf (" recog_data.dup_num[%d] = %d;\n", i
, p
->dupnums
[i
]);
512 printf (" break;\n\n");
515 /* This should never be reached. Note that we would also reach this abort
516 if we tried to extract something whose INSN_CODE was a DEFINE_EXPAND or
517 DEFINE_SPLIT, but that is correct. */
518 printf (" default:\n abort ();\n");
523 exit (ferror (stdout
) != 0 ? FATAL_EXIT_CODE
: SUCCESS_EXIT_CODE
);
528 /* Define this so we can link with print-rtl.o to get debug_rtx function. */