]>
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, 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 walk_rtx
PROTO ((rtx
, char *));
99 static void print_path
PROTO ((char *));
100 char *xmalloc
PROTO ((unsigned));
101 char *xrealloc
PROTO ((char *, unsigned));
102 static void fatal ();
103 static char *copystr
PROTO ((char *));
104 static void mybzero ();
105 void fancy_abort
PROTO ((void));
112 register struct extraction
*p
;
113 register struct code_ptr
*link
;
118 /* No operands seen so far in this pattern. */
119 mybzero (oplocs
, sizeof oplocs
);
121 /* Walk the insn's pattern, remembering at all times the path
122 down to the walking point. */
124 if (XVECLEN (insn
, 1) == 1)
125 walk_rtx (XVECEXP (insn
, 1, 0), "");
127 for (i
= XVECLEN (insn
, 1) - 1; i
>= 0; i
--)
129 char *path
= (char *) alloca (2);
134 walk_rtx (XVECEXP (insn
, 1, i
), path
);
137 link
= (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
138 link
->insn_code
= insn_code_number
;
140 /* See if we find something that already had this extraction method. */
142 for (p
= extractions
; p
; p
= p
->next
)
144 if (p
->op_count
!= op_count
|| p
->dup_count
!= dup_count
)
147 for (i
= 0; i
< op_count
; i
++)
148 if (p
->oplocs
[i
] != oplocs
[i
]
149 && ! (p
->oplocs
[i
] != 0 && oplocs
[i
] != 0
150 && ! strcmp (p
->oplocs
[i
], oplocs
[i
])))
156 for (i
= 0; i
< dup_count
; i
++)
157 if (p
->dupnums
[i
] != dupnums
[i
]
158 || strcmp (p
->duplocs
[i
], duplocs
[i
]))
164 /* This extraction is the same as ours. Just link us in. */
165 link
->next
= p
->insns
;
170 /* Otherwise, make a new extraction method. */
172 p
= (struct extraction
*) xmalloc (sizeof (struct extraction
));
173 p
->op_count
= op_count
;
174 p
->dup_count
= dup_count
;
175 p
->next
= extractions
;
180 for (i
= 0; i
< op_count
; i
++)
181 p
->oplocs
[i
] = oplocs
[i
];
183 for (i
= 0; i
< dup_count
; i
++)
184 p
->dupnums
[i
] = dupnums
[i
], p
->duplocs
[i
] = duplocs
[i
];
192 register RTX_CODE code
;
196 int depth
= strlen (path
);
214 oplocs
[XINT (x
, 0)] = copystr (path
);
215 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
220 duplocs
[dup_count
] = copystr (path
);
221 dupnums
[dup_count
] = XINT (x
, 0);
226 duplocs
[dup_count
] = copystr (path
);
227 dupnums
[dup_count
] = XINT (x
, 0);
230 newpath
= (char *) alloca (depth
+ 2);
231 strcpy (newpath
, path
);
232 newpath
[depth
+ 1] = 0;
234 for (i
= XVECLEN (x
, 1) - 1; i
>= 0; i
--)
236 newpath
[depth
] = '0' + i
;
237 walk_rtx (XVECEXP (x
, 1, i
), newpath
);
242 oplocs
[XINT (x
, 0)] = copystr (path
);
243 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
245 newpath
= (char *) alloca (depth
+ 2);
246 strcpy (newpath
, path
);
247 newpath
[depth
+ 1] = 0;
249 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
251 newpath
[depth
] = '0' + i
;
252 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
257 oplocs
[XINT (x
, 0)] = copystr (path
);
258 op_count
= MAX (op_count
, XINT (x
, 0) + 1);
260 newpath
= (char *) alloca (depth
+ 2);
261 strcpy (newpath
, path
);
262 newpath
[depth
+ 1] = 0;
264 for (i
= XVECLEN (x
, 2) - 1; i
>= 0; i
--)
266 newpath
[depth
] = 'a' + i
;
267 walk_rtx (XVECEXP (x
, 2, i
), newpath
);
272 walk_rtx (XEXP (x
, 0), path
);
279 newpath
= (char *) alloca (depth
+ 2);
280 strcpy (newpath
, path
);
281 newpath
[depth
+ 1] = 0;
283 fmt
= GET_RTX_FORMAT (code
);
284 len
= GET_RTX_LENGTH (code
);
285 for (i
= 0; i
< len
; i
++)
287 if (fmt
[i
] == 'e' || fmt
[i
] == 'u')
289 newpath
[depth
] = '0' + i
;
290 walk_rtx (XEXP (x
, i
), newpath
);
292 else if (fmt
[i
] == 'E')
295 for (j
= XVECLEN (x
, i
) - 1; j
>= 0; j
--)
297 newpath
[depth
] = 'a' + j
;
298 walk_rtx (XVECEXP (x
, i
, j
), newpath
);
304 /* Given a PATH, representing a path down the instruction's
305 pattern from the root to a certain point, output code to
306 evaluate to the rtx at that point. */
312 register int len
= strlen (path
);
315 /* We first write out the operations (XEXP or XVECEXP) in reverse
316 order, then write "insn", then the indices in forward order. */
318 for (i
= len
- 1; i
>=0 ; i
--)
320 if (path
[i
] >= 'a' && path
[i
] <= 'z')
321 printf ("XVECEXP (");
322 else if (path
[i
] >= '0' && path
[i
] <= '9')
330 for (i
= 0; i
< len
; i
++)
332 if (path
[i
] >= 'a' && path
[i
] <= 'z')
333 printf (", 0, %d)", path
[i
] - 'a');
334 else if (path
[i
] >= '0' && path
[i
] <= '9')
335 printf (", %d)", path
[i
] - '0');
345 register char *val
= (char *) malloc (size
);
348 fatal ("virtual memory exhausted");
357 char *result
= (char *) realloc (ptr
, size
);
359 fatal ("virtual memory exhausted");
367 fprintf (stderr
, "genextract: ");
368 fprintf (stderr
, s
, a1
, a2
);
369 fprintf (stderr
, "\n");
370 exit (FATAL_EXIT_CODE
);
373 /* More 'friendly' abort that prints the line and file.
374 config.h can #define abort fancy_abort if you like that sort of thing. */
379 fatal ("Internal gcc abort.");
391 tem
= (char *) xmalloc (strlen (s1
) + 1);
400 register unsigned length
;
414 struct extraction
*p
;
415 struct code_ptr
*link
;
417 obstack_init (rtl_obstack
);
420 fatal ("No input file name.");
422 infile
= fopen (argv
[1], "r");
426 exit (FATAL_EXIT_CODE
);
431 /* Assign sequential codes to all entries in the machine description
432 in parallel with the tables in insn-output.c. */
434 insn_code_number
= 0;
436 printf ("/* Generated automatically by the program `genextract'\n\
437 from the machine description file `md'. */\n\n");
439 printf ("#include \"config.h\"\n");
440 printf ("#include <stdio.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 (" int i;\n\n");
459 printf (" switch (INSN_CODE (insn))\n");
461 printf (" case -1:\n");
462 printf (" fatal_insn_not_found (insn);\n\n");
464 /* Read the machine description. */
468 c
= read_skip_spaces (infile
);
473 desc
= read_rtx (infile
);
474 if (GET_CODE (desc
) == DEFINE_INSN
)
480 else if (GET_CODE (desc
) == DEFINE_PEEPHOLE
)
482 struct code_ptr
*link
483 = (struct code_ptr
*) xmalloc (sizeof (struct code_ptr
));
485 link
->insn_code
= insn_code_number
;
486 link
->next
= peepholes
;
491 else if (GET_CODE (desc
) == DEFINE_EXPAND
492 || GET_CODE (desc
) == DEFINE_SPLIT
)
496 /* Write out code to handle peepholes and the insn_codes that it should
500 for (link
= peepholes
; link
; link
= link
->next
)
501 printf (" case %d:\n", link
->insn_code
);
503 /* The vector in the insn says how many operands it has.
504 And all it contains are operands. In fact, the vector was
505 created just for the sake of this function. */
506 printf (" for (i = XVECLEN (pat, 0) - 1; i >= 0; i--)\n");
507 printf (" ro[i] = XVECEXP (pat, 0, i);\n");
508 printf (" break;\n\n");
511 /* Write out all the ways to extract insn operands. */
512 for (p
= extractions
; p
; p
= p
->next
)
514 for (link
= p
->insns
; link
; link
= link
->next
)
515 printf (" case %d:\n", link
->insn_code
);
517 for (i
= 0; i
< p
->op_count
; i
++)
519 if (p
->oplocs
[i
] == 0)
521 printf (" ro[%d] = const0_rtx;\n", i
);
522 printf (" ro_loc[%d] = &junk;\n", i
);
526 printf (" ro[%d] = *(ro_loc[%d] = &", i
, i
);
527 print_path (p
->oplocs
[i
]);
532 for (i
= 0; i
< p
->dup_count
; i
++)
534 printf (" recog_dup_loc[%d] = &", i
);
535 print_path (p
->duplocs
[i
]);
537 printf (" recog_dup_num[%d] = %d;\n", i
, p
->dupnums
[i
]);
540 printf (" break;\n\n");
543 /* This should never be reached. Note that we would also reach this abort
544 if we tried to extract something whose INSN_CODE was a DEFINE_EXPAND or
545 DEFINE_SPLIT, but that is correct. */
546 printf (" default:\n abort ();\n");
551 exit (ferror (stdout
) != 0 ? FATAL_EXIT_CODE
: SUCCESS_EXIT_CODE
);