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"
32 static struct obstack obstack
;
33 struct obstack
*rtl_obstack
= &obstack
;
35 #define obstack_chunk_alloc xmalloc
36 #define obstack_chunk_free free
38 #ifdef NEED_DECLARATION_FREE
41 extern rtx
read_rtx ();
43 /* Names for patterns. Need to allow linking with print-rtl. */
46 /* This structure contains all the information needed to describe one
47 set of extractions methods. Each method may be used by more than
48 one pattern if the operands are in the same place.
50 The string for each operand describes that path to the operand and
51 contains `0' through `9' when going into an expression and `a' through
52 `z' when going into a vector. We assume here that only the first operand
53 of an rtl expression is a vector. genrecog.c makes the same assumption
54 (and uses the same representation) and it is currently true. */
59 char *oplocs
[MAX_RECOG_OPERANDS
];
61 char *duplocs
[MAX_DUP_OPERANDS
];
62 int dupnums
[MAX_DUP_OPERANDS
];
63 struct code_ptr
*insns
;
64 struct extraction
*next
;
67 /* Holds a single insn code that use an extraction method. */
72 struct code_ptr
*next
;
75 static struct extraction
*extractions
;
77 /* Number instruction patterns handled, starting at 0 for first one. */
79 static int insn_code_number
;
81 /* Records the large operand number in this insn. */
85 /* Records the location of any operands using the string format described
88 static char *oplocs
[MAX_RECOG_OPERANDS
];
90 /* Number the occurrences of MATCH_DUP in each instruction,
91 starting at 0 for the first occurrence. */
95 /* Records the location of any MATCH_DUP operands. */
97 static char *duplocs
[MAX_DUP_OPERANDS
];
99 /* Record the operand number of any MATCH_DUPs. */
101 static int dupnums
[MAX_DUP_OPERANDS
];
103 /* Record the list of insn_codes for peepholes. */
105 static struct code_ptr
*peepholes
;
107 static void walk_rtx ();
108 static void print_path ();
111 static void fatal ();
112 static char *copystr ();
113 static void mybzero ();
121 register struct extraction
*p
;
122 register struct code_ptr
*link
;
127 /* No operands seen so far in this pattern. */
128 mybzero (oplocs
, sizeof oplocs
);
130 /* Walk the insn's pattern, remembering at all times the path
131 down to the walking point. */
133 if (XVECLEN (insn
, 1) == 1)
134 walk_rtx (XVECEXP (insn
, 1, 0), "");
136 for (i
= XVECLEN (insn
, 1) - 1; i
>= 0; i
--)
138 char *path
= (char *) alloca (2);
143 walk_rtx (XVECEXP (insn
, 1, i
), path
);
146 link
= (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
147 link
->insn_code
= insn_code_number
;
149 /* See if we find something that already had this extraction method. */
151 for (p
= extractions
; p
; p
= p
->next
)
153 if (p
->op_count
!= op_count
|| p
->dup_count
!= dup_count
)
156 for (i
= 0; i
< op_count
; i
++)
157 if (p
->oplocs
[i
] != oplocs
[i
]
158 && ! (p
->oplocs
[i
] != 0 && oplocs
[i
] != 0
159 && ! strcmp (p
->oplocs
[i
], oplocs
[i
])))
165 for (i
= 0; i
< dup_count
; i
++)
166 if (p
->dupnums
[i
] != dupnums
[i
]
167 || strcmp (p
->duplocs
[i
], duplocs
[i
]))
173 /* This extraction is the same as ours. Just link us in. */
174 link
->next
= p
->insns
;
179 /* Otherwise, make a new extraction method. */
181 p
= (struct extraction
*) xmalloc (sizeof (struct extraction
));
182 p
->op_count
= op_count
;
183 p
->dup_count
= dup_count
;
184 p
->next
= extractions
;
189 for (i
= 0; i
< op_count
; i
++)
190 p
->oplocs
[i
] = oplocs
[i
];
192 for (i
= 0; i
< dup_count
; i
++)
193 p
->dupnums
[i
] = dupnums
[i
], p
->duplocs
[i
] = duplocs
[i
];
201 register RTX_CODE code
;
205 int depth
= strlen (path
);
223 oplocs
[XINT (x
, 0)] = copystr (path
);
224 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
229 duplocs
[dup_count
] = copystr (path
);
230 dupnums
[dup_count
] = XINT (x
, 0);
235 duplocs
[dup_count
] = copystr (path
);
236 dupnums
[dup_count
] = XINT (x
, 0);
239 newpath
= (char *) alloca (depth
+ 2);
240 strcpy (newpath
, path
);
241 newpath
[depth
+ 1] = 0;
243 for (i
= XVECLEN (x
, 1) - 1; i
>= 0; i
--)
245 newpath
[depth
] = '0' + i
;
246 walk_rtx (XVECEXP (x
, 1, i
), newpath
);
251 oplocs
[XINT (x
, 0)] = copystr (path
);
252 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
254 newpath
= (char *) alloca (depth
+ 2);
255 strcpy (newpath
, path
);
256 newpath
[depth
+ 1] = 0;
258 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
260 newpath
[depth
] = '0' + i
;
261 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
266 oplocs
[XINT (x
, 0)] = copystr (path
);
267 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
269 newpath
= (char *) alloca (depth
+ 2);
270 strcpy (newpath
, path
);
271 newpath
[depth
+ 1] = 0;
273 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
275 newpath
[depth
] = 'a' + i
;
276 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
281 walk_rtx (XEXP (x
, 0), path
);
288 newpath
= (char *) alloca (depth
+ 2);
289 strcpy (newpath
, path
);
290 newpath
[depth
+ 1] = 0;
292 fmt
= GET_RTX_FORMAT (code
);
293 len
= GET_RTX_LENGTH (code
);
294 for (i
= 0; i
< len
; i
++)
296 if (fmt
[i
] == 'e' || fmt
[i
] == 'u')
298 newpath
[depth
] = '0' + i
;
299 walk_rtx (XEXP (x
, i
), newpath
);
301 else if (fmt
[i
] == 'E')
304 for (j
= XVECLEN (x
, i
) - 1; j
>= 0; j
--)
306 newpath
[depth
] = 'a' + j
;
307 walk_rtx (XVECEXP (x
, i
, j
), newpath
);
313 /* Given a PATH, representing a path down the instruction's
314 pattern from the root to a certain point, output code to
315 evaluate to the rtx at that point. */
321 register int len
= strlen (path
);
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");
376 fprintf (stderr
, "genextract: ");
377 fprintf (stderr
, s
, a1
, a2
);
378 fprintf (stderr
, "\n");
379 exit (FATAL_EXIT_CODE
);
382 /* More 'friendly' abort that prints the line and file.
383 config.h can #define abort fancy_abort if you like that sort of thing. */
388 fatal ("Internal gcc abort.");
400 tem
= (char *) xmalloc (strlen (s1
) + 1);
409 register unsigned length
;
423 struct extraction
*p
;
424 struct code_ptr
*link
;
426 obstack_init (rtl_obstack
);
429 fatal ("No input file name.");
431 infile
= fopen (argv
[1], "r");
435 exit (FATAL_EXIT_CODE
);
440 /* Assign sequential codes to all entries in the machine description
441 in parallel with the tables in insn-output.c. */
443 insn_code_number
= 0;
445 printf ("/* Generated automatically by the program `genextract'\n\
446 from the machine description file `md'. */\n\n");
448 printf ("#include \"config.h\"\n");
449 printf ("#include <stdio.h>\n");
450 printf ("#include \"rtl.h\"\n\n");
452 /* This variable exists only so it can be the "location"
453 of any missing operand whose numbers are skipped by a given pattern. */
454 printf ("static rtx junk;\n");
456 printf ("extern rtx recog_operand[];\n");
457 printf ("extern rtx *recog_operand_loc[];\n");
458 printf ("extern rtx *recog_dup_loc[];\n");
459 printf ("extern char recog_dup_num[];\n");
461 printf ("void\ninsn_extract (insn)\n");
462 printf (" rtx insn;\n");
464 printf (" register rtx *ro = recog_operand;\n");
465 printf (" register rtx **ro_loc = recog_operand_loc;\n");
466 printf (" rtx pat = PATTERN (insn);\n");
467 printf (" int i;\n\n");
468 printf (" switch (INSN_CODE (insn))\n");
470 printf (" case -1:\n");
471 printf (" fatal_insn_not_found (insn);\n\n");
473 /* Read the machine description. */
477 c
= read_skip_spaces (infile
);
482 desc
= read_rtx (infile
);
483 if (GET_CODE (desc
) == DEFINE_INSN
)
489 else if (GET_CODE (desc
) == DEFINE_PEEPHOLE
)
491 struct code_ptr
*link
492 = (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
494 link
->insn_code
= insn_code_number
;
495 link
->next
= peepholes
;
500 else if (GET_CODE (desc
) == DEFINE_EXPAND
501 || GET_CODE (desc
) == DEFINE_SPLIT
)
505 /* Write out code to handle peepholes and the insn_codes that it should
509 for (link
= peepholes
; link
; link
= link
->next
)
510 printf (" case %d:\n", link
->insn_code
);
512 /* The vector in the insn says how many operands it has.
513 And all it contains are operands. In fact, the vector was
514 created just for the sake of this function. */
515 printf (" for (i = XVECLEN (pat, 0) - 1; i >= 0; i--)\n");
516 printf (" ro[i] = XVECEXP (pat, 0, i);\n");
517 printf (" break;\n\n");
520 /* Write out all the ways to extract insn operands. */
521 for (p
= extractions
; p
; p
= p
->next
)
523 for (link
= p
->insns
; link
; link
= link
->next
)
524 printf (" case %d:\n", link
->insn_code
);
526 for (i
= 0; i
< p
->op_count
; i
++)
528 if (p
->oplocs
[i
] == 0)
530 printf (" ro[%d] = const0_rtx;\n", i
);
531 printf (" ro_loc[%d] = &junk;\n", i
);
535 printf (" ro[%d] = *(ro_loc[%d] = &", i
, i
);
536 print_path (p
->oplocs
[i
]);
541 for (i
= 0; i
< p
->dup_count
; i
++)
543 printf (" recog_dup_loc[%d] = &", i
);
544 print_path (p
->duplocs
[i
]);
546 printf (" recog_dup_num[%d] = %d;\n", i
, p
->dupnums
[i
]);
549 printf (" break;\n\n");
552 /* This should never be reached. Note that we would also reach this abort
553 if we tried to extract something whose INSN_CODE was a DEFINE_EXPAND or
554 DEFINE_SPLIT, but that is correct. */
555 printf (" default:\n abort ();\n");
560 exit (ferror (stdout
) != 0 ? FATAL_EXIT_CODE
: SUCCESS_EXIT_CODE
);