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));
190 extern int main PARAMS ((int, char **));
203 progname = "genflags";
204 obstack_init (&call_obstack);
205 obstack_init (&normal_obstack);
208 fatal ("No input file name.");
210 if (init_md_reader (argv[1]) != SUCCESS_EXIT_CODE)
211 return (FATAL_EXIT_CODE);
213 printf ("/* Generated automatically by the program `genflags'\n\
214 from the machine description file `md'. */\n\n");
216 /* Read the machine description. */
220 int line_no, insn_code_number = 0;
222 desc = read_md_rtx (&line_no, &insn_code_number);
225 if (GET_CODE (desc) == DEFINE_INSN || GET_CODE (desc) == DEFINE_EXPAND)
229 /* Print out the prototypes now. */
231 obstack_grow (&call_obstack, &dummy, sizeof (rtx));
232 call_insns = (rtx *) obstack_finish (&call_obstack);
234 obstack_grow (&normal_obstack, &dummy, sizeof (rtx));
235 normal_insns = (rtx *) obstack_finish (&normal_obstack);
237 for (insn_ptr = normal_insns; *insn_ptr; insn_ptr++)
238 gen_proto (*insn_ptr);
240 printf ("\n#ifdef MD_CALL_PROTOTYPES\n");
241 for (insn_ptr = call_insns; *insn_ptr; insn_ptr++)
242 gen_proto (*insn_ptr);
244 printf ("\n#else /* !MD_CALL_PROTOTYPES */\n");
245 for (insn_ptr = call_insns; *insn_ptr; insn_ptr++)
246 gen_nonproto (*insn_ptr);
248 printf ("#endif /* !MD_CALL_PROTOTYPES */\n");
251 return (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);
254 /* Define this so we can link with print-rtl.o to get debug_rtx function. */
257 int code ATTRIBUTE_UNUSED;