1 /* Generate from machine description:
2 - some flags HAVE_... saying which simple standard instructions are
3 available for this machine.
4 Copyright (C) 1987, 1991, 1995, 1998,
5 1999, 2000 Free Software Foundation, Inc.
7 This file is part of GNU CC.
9 GNU CC is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2, or (at your option)
14 GNU CC is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GNU CC; see the file COPYING. If not, write to
21 the Free Software Foundation, 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA. */
30 #include "gensupport.h"
33 #define obstack_chunk_alloc xmalloc
34 #define obstack_chunk_free free
36 /* Obstacks to remember normal, and call insns. */
37 static struct obstack call_obstack, normal_obstack;
39 /* Max size of names encountered. */
40 static int max_id_len;
42 /* Max operand encountered in a scan over some insn. */
45 static void max_operand_1 PARAMS ((rtx));
46 static int num_operands PARAMS ((rtx));
47 static void gen_proto PARAMS ((rtx));
48 static void gen_nonproto PARAMS ((rtx));
49 static void gen_insn PARAMS ((rtx));
51 /* Count the number of match_operand's found. */
57 register RTX_CODE code;
60 register const char *fmt;
67 if (code == MATCH_OPERAND || code == MATCH_OPERATOR
68 || code == MATCH_PARALLEL)
69 max_opno = MAX (max_opno, XINT (x, 0));
71 fmt = GET_RTX_FORMAT (code);
72 len = GET_RTX_LENGTH (code);
73 for (i = 0; i < len; i++)
75 if (fmt[i] == 'e' || fmt[i] == 'u')
76 max_operand_1 (XEXP (x, i));
77 else if (fmt[i] == 'E')
80 for (j = 0; j < XVECLEN (x, i); j++)
81 max_operand_1 (XVECEXP (x, i, j));
90 register int len = XVECLEN (insn, 1);
95 for (i = 0; i < len; i++)
96 max_operand_1 (XVECEXP (insn, 1, i));
101 /* Print out prototype information for a function. */
107 int num = num_operands (insn);
108 printf ("extern rtx gen_%-*s PARAMS ((", max_id_len, XSTR (insn, 0));
123 /* Print out a function declaration without a prototype. */
129 printf ("extern rtx gen_%s ();\n", XSTR (insn, 0));
136 const char *name = XSTR (insn, 0);
138 struct obstack *obstack_ptr;
141 /* Don't mention instructions whose names are the null string
142 or begin with '*'. They are in the machine description just
144 if (name[0] == 0 || name[0] == '*')
149 if (len > max_id_len)
152 printf ("#define HAVE_%s ", name);
153 if (strlen (XSTR (insn, 2)) == 0)
157 /* Write the macro definition, putting \'s at the end of each line,
160 for (p = XSTR (insn, 2); *p; p++)
170 /* Save the current insn, so that we can later put out appropriate
171 prototypes. At present, most md files have the wrong number of
172 arguments for the call insns (call, call_value, call_pop,
173 call_value_pop) ignoring the extra arguments that are passed for
174 some machines, so by default, turn off the prototype. */
176 obstack_ptr = ((name[0] == 'c' || name[0] == 's')
177 && (!strcmp (name, "call")
178 || !strcmp (name, "call_value")
179 || !strcmp (name, "call_pop")
180 || !strcmp (name, "call_value_pop")
181 || !strcmp (name, "sibcall")
182 || !strcmp (name, "sibcall_value")
183 || !strcmp (name, "sibcall_pop")
184 || !strcmp (name, "sibcall_value_pop")))
185 ? &call_obstack : &normal_obstack;
187 obstack_grow (obstack_ptr, &insn, sizeof (rtx));
194 register PTR val = (PTR) malloc (size);
197 fatal ("virtual memory exhausted");
209 ptr = (PTR) realloc (old, size);
211 ptr = (PTR) malloc (size);
213 fatal ("virtual memory exhausted");
217 extern int main PARAMS ((int, char **));
230 progname = "genflags";
231 obstack_init (&call_obstack);
232 obstack_init (&normal_obstack);
235 fatal ("No input file name.");
237 if (init_md_reader (argv[1]) != SUCCESS_EXIT_CODE)
238 return (FATAL_EXIT_CODE);
240 printf ("/* Generated automatically by the program `genflags'\n\
241 from the machine description file `md'. */\n\n");
243 /* Read the machine description. */
247 int line_no, insn_code_number = 0;
249 desc = read_md_rtx (&line_no, &insn_code_number);
252 if (GET_CODE (desc) == DEFINE_INSN || GET_CODE (desc) == DEFINE_EXPAND)
256 /* Print out the prototypes now. */
258 obstack_grow (&call_obstack, &dummy, sizeof (rtx));
259 call_insns = (rtx *) obstack_finish (&call_obstack);
261 obstack_grow (&normal_obstack, &dummy, sizeof (rtx));
262 normal_insns = (rtx *) obstack_finish (&normal_obstack);
264 for (insn_ptr = normal_insns; *insn_ptr; insn_ptr++)
265 gen_proto (*insn_ptr);
267 printf ("\n#ifdef MD_CALL_PROTOTYPES\n");
268 for (insn_ptr = call_insns; *insn_ptr; insn_ptr++)
269 gen_proto (*insn_ptr);
271 printf ("\n#else /* !MD_CALL_PROTOTYPES */\n");
272 for (insn_ptr = call_insns; *insn_ptr; insn_ptr++)
273 gen_nonproto (*insn_ptr);
275 printf ("#endif /* !MD_CALL_PROTOTYPES */\n");
278 return (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);
281 /* Define this so we can link with print-rtl.o to get debug_rtx function. */
284 int code ATTRIBUTE_UNUSED;