1 /* Generate code from machine description to extract operands from insn as rtl.
2 Copyright (C) 1987, 1991, 1992, 1993 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
35 extern rtx
read_rtx ();
37 /* Names for patterns. Need to allow linking with print-rtl. */
40 /* This structure contains all the information needed to describe one
41 set of extractions methods. Each method may be used by more than
42 one pattern if the operands are in the same place.
44 The string for each operand describes that path to the operand and
45 contains `0' through `9' when going into an expression and `a' through
46 `z' when going into a vector. We assume here that only the first operand
47 of an rtl expression is a vector. genrecog.c makes the same assumption
48 (and uses the same representation) and it is currently true. */
53 char *oplocs
[MAX_RECOG_OPERANDS
];
55 char *duplocs
[MAX_DUP_OPERANDS
];
56 int dupnums
[MAX_DUP_OPERANDS
];
57 struct code_ptr
*insns
;
58 struct extraction
*next
;
61 /* Holds a single insn code that use an extraction method. */
66 struct code_ptr
*next
;
69 static struct extraction
*extractions
;
71 /* Number instruction patterns handled, starting at 0 for first one. */
73 static int insn_code_number
;
75 /* Records the large operand number in this insn. */
79 /* Records the location of any operands using the string format described
82 static char *oplocs
[MAX_RECOG_OPERANDS
];
84 /* Number the occurrences of MATCH_DUP in each instruction,
85 starting at 0 for the first occurrence. */
89 /* Records the location of any MATCH_DUP operands. */
91 static char *duplocs
[MAX_DUP_OPERANDS
];
93 /* Record the operand number of any MATCH_DUPs. */
95 static int dupnums
[MAX_DUP_OPERANDS
];
97 /* Record the list of insn_codes for peepholes. */
99 static struct code_ptr
*peepholes
;
101 static void walk_rtx ();
102 static void print_path ();
105 static void fatal ();
106 static char *copystr ();
107 static void mybzero ();
115 register struct extraction
*p
;
116 register struct code_ptr
*link
;
121 /* No operands seen so far in this pattern. */
122 mybzero (oplocs
, sizeof oplocs
);
124 /* Walk the insn's pattern, remembering at all times the path
125 down to the walking point. */
127 if (XVECLEN (insn
, 1) == 1)
128 walk_rtx (XVECEXP (insn
, 1, 0), "");
130 for (i
= XVECLEN (insn
, 1) - 1; i
>= 0; i
--)
132 char *path
= (char *) alloca (2);
137 walk_rtx (XVECEXP (insn
, 1, i
), path
);
140 link
= (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
141 link
->insn_code
= insn_code_number
;
143 /* See if we find something that already had this extraction method. */
145 for (p
= extractions
; p
; p
= p
->next
)
147 if (p
->op_count
!= op_count
|| p
->dup_count
!= dup_count
)
150 for (i
= 0; i
< op_count
; i
++)
151 if (p
->oplocs
[i
] != oplocs
[i
]
152 && ! (p
->oplocs
[i
] != 0 && oplocs
[i
] != 0
153 && ! strcmp (p
->oplocs
[i
], oplocs
[i
])))
159 for (i
= 0; i
< dup_count
; i
++)
160 if (p
->dupnums
[i
] != dupnums
[i
]
161 || strcmp (p
->duplocs
[i
], duplocs
[i
]))
167 /* This extraction is the same as ours. Just link us in. */
168 link
->next
= p
->insns
;
173 /* Otherwise, make a new extraction method. */
175 p
= (struct extraction
*) xmalloc (sizeof (struct extraction
));
176 p
->op_count
= op_count
;
177 p
->dup_count
= dup_count
;
178 p
->next
= extractions
;
183 for (i
= 0; i
< op_count
; i
++)
184 p
->oplocs
[i
] = oplocs
[i
];
186 for (i
= 0; i
< dup_count
; i
++)
187 p
->dupnums
[i
] = dupnums
[i
], p
->duplocs
[i
] = duplocs
[i
];
195 register RTX_CODE code
;
199 register struct code_ptr
*link
;
200 int depth
= strlen (path
);
218 oplocs
[XINT (x
, 0)] = copystr (path
);
219 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
224 duplocs
[dup_count
] = copystr (path
);
225 dupnums
[dup_count
] = XINT (x
, 0);
230 duplocs
[dup_count
] = copystr (path
);
231 dupnums
[dup_count
] = XINT (x
, 0);
234 newpath
= (char *) alloca (depth
+ 2);
235 strcpy (newpath
, path
);
236 newpath
[depth
+ 1] = 0;
238 for (i
= XVECLEN (x
, 1) - 1; i
>= 0; i
--)
240 newpath
[depth
] = '0' + i
;
241 walk_rtx (XVECEXP (x
, 1, i
), newpath
);
246 oplocs
[XINT (x
, 0)] = copystr (path
);
247 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
249 newpath
= (char *) alloca (depth
+ 2);
250 strcpy (newpath
, path
);
251 newpath
[depth
+ 1] = 0;
253 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
255 newpath
[depth
] = '0' + i
;
256 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
261 oplocs
[XINT (x
, 0)] = copystr (path
);
262 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
264 newpath
= (char *) alloca (depth
+ 2);
265 strcpy (newpath
, path
);
266 newpath
[depth
+ 1] = 0;
268 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
270 newpath
[depth
] = 'a' + i
;
271 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
276 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
);
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 (path
[i
] >= 'a' && path
[i
] <= 'z')
322 printf ("XVECEXP (");
323 else if (path
[i
] >= '0' && path
[i
] <= '9')
331 for (i
= 0; i
< len
; i
++)
333 if (path
[i
] >= 'a' && path
[i
] <= 'z')
334 printf (", 0, %d)", path
[i
] - 'a');
335 else if (path
[i
] >= '0' && path
[i
] <= '9')
336 printf (", %d)", path
[i
] - '0');
346 register char *val
= (char *) malloc (size
);
349 fatal ("virtual memory exhausted");
358 char *result
= (char *) realloc (ptr
, size
);
360 fatal ("virtual memory exhausted");
368 fprintf (stderr
, "genextract: ");
369 fprintf (stderr
, s
, a1
, a2
);
370 fprintf (stderr
, "\n");
371 exit (FATAL_EXIT_CODE
);
374 /* More 'friendly' abort that prints the line and file.
375 config.h can #define abort fancy_abort if you like that sort of thing. */
380 fatal ("Internal gcc abort.");
392 tem
= (char *) xmalloc (strlen (s1
) + 1);
401 register unsigned length
;
415 struct extraction
*p
;
416 struct code_ptr
*link
;
418 obstack_init (rtl_obstack
);
421 fatal ("No input file name.");
423 infile
= fopen (argv
[1], "r");
427 exit (FATAL_EXIT_CODE
);
432 /* Assign sequential codes to all entries in the machine description
433 in parallel with the tables in insn-output.c. */
435 insn_code_number
= 0;
437 printf ("/* Generated automatically by the program `genextract'\n\
438 from the machine description file `md'. */\n\n");
440 printf ("#include \"config.h\"\n");
441 printf ("#include \"rtl.h\"\n\n");
443 /* This variable exists only so it can be the "location"
444 of any missing operand whose numbers are skipped by a given pattern. */
445 printf ("static rtx junk;\n");
447 printf ("extern rtx recog_operand[];\n");
448 printf ("extern rtx *recog_operand_loc[];\n");
449 printf ("extern rtx *recog_dup_loc[];\n");
450 printf ("extern char recog_dup_num[];\n");
452 printf ("void\ninsn_extract (insn)\n");
453 printf (" rtx insn;\n");
455 printf (" register rtx *ro = recog_operand;\n");
456 printf (" register rtx **ro_loc = recog_operand_loc;\n");
457 printf (" rtx pat = PATTERN (insn);\n");
458 printf (" switch (INSN_CODE (insn))\n");
460 printf (" case -1:\n");
461 printf (" fatal_insn_not_found (insn);\n\n");
463 /* Read the machine description. */
467 c
= read_skip_spaces (infile
);
472 desc
= read_rtx (infile
);
473 if (GET_CODE (desc
) == DEFINE_INSN
)
479 else if (GET_CODE (desc
) == DEFINE_PEEPHOLE
)
481 struct code_ptr
*link
482 = (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
484 link
->insn_code
= insn_code_number
;
485 link
->next
= peepholes
;
490 else if (GET_CODE (desc
) == DEFINE_EXPAND
491 || GET_CODE (desc
) == DEFINE_SPLIT
)
495 /* Write out code to handle peepholes and the insn_codes that it should
499 for (link
= peepholes
; link
; link
= link
->next
)
500 printf (" case %d:\n", link
->insn_code
);
502 /* The vector in the insn says how many operands it has.
503 And all it contains are operands. In fact, the vector was
504 created just for the sake of this function. */
505 printf ("#if __GNUC__ > 1 && !defined (bcopy)\n");
506 printf ("#define bcopy(FROM,TO,COUNT) __builtin_memcpy(TO,FROM,COUNT)\n");
508 printf (" bcopy (&XVECEXP (pat, 0, 0), ro,\n");
509 printf (" sizeof (rtx) * XVECLEN (pat, 0));\n");
510 printf (" break;\n\n");
513 /* Write out all the ways to extract insn operands. */
514 for (p
= extractions
; p
; p
= p
->next
)
516 for (link
= p
->insns
; link
; link
= link
->next
)
517 printf (" case %d:\n", link
->insn_code
);
519 for (i
= 0; i
< p
->op_count
; i
++)
521 if (p
->oplocs
[i
] == 0)
523 printf (" ro[%d] = const0_rtx;\n", i
);
524 printf (" ro_loc[%d] = &junk;\n", i
);
528 printf (" ro[%d] = *(ro_loc[%d] = &", i
, i
);
529 print_path (p
->oplocs
[i
]);
534 for (i
= 0; i
< p
->dup_count
; i
++)
536 printf (" recog_dup_loc[%d] = &", i
);
537 print_path (p
->duplocs
[i
]);
539 printf (" recog_dup_num[%d] = %d;\n", i
, p
->dupnums
[i
]);
542 printf (" break;\n\n");
545 /* This should never be reached. Note that we would also reach this abort
546 if we tried to extract something whose INSN_CODE was a DEFINE_EXPAND or
547 DEFINE_SPLIT, but that is correct. */
548 printf (" default:\n abort ();\n");
553 exit (ferror (stdout
) != 0 ? FATAL_EXIT_CODE
: SUCCESS_EXIT_CODE
);