X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fgenflags.c;h=075a355ee72192afa1b478076835a8df3fd35abd;hb=6bcaed8684cf4629e589418bbc9d54fc3967dc4a;hp=0ff0377d6a5fc19ecc18e4cf2b893a3f32041425;hpb=d0c809e14ba0a2911203898049d7a30468adc86b;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/genflags.c b/gcc/genflags.c index 0ff0377d6a5..075a355ee72 100644 --- a/gcc/genflags.c +++ b/gcc/genflags.c @@ -2,37 +2,35 @@ - some flags HAVE_... saying which simple standard instructions are available for this machine. Copyright (C) 1987, 1991, 1995, 1998, - 1999, 2000 Free Software Foundation, Inc. + 1999, 2000, 2003, 2004 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. +GCC is free software; you can redistribute it and/or modify it under +the terms of the GNU General Public License as published by the Free +Software Foundation; either version 2, or (at your option) any later +version. -GNU CC is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. +GCC is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. You should have received a copy of the GNU General Public License -along with GNU CC; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ +along with GCC; see the file COPYING. If not, write to the Free +Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA +02110-1301, USA. */ -#include "hconfig.h" +#include "bconfig.h" #include "system.h" +#include "coretypes.h" +#include "tm.h" #include "rtl.h" #include "obstack.h" #include "errors.h" #include "gensupport.h" - -#define obstack_chunk_alloc xmalloc -#define obstack_chunk_free free - /* Obstack to remember insns with. */ static struct obstack obstack; @@ -42,22 +40,21 @@ static int max_id_len; /* Max operand encountered in a scan over some insn. */ static int max_opno; -static void max_operand_1 PARAMS ((rtx)); -static int num_operands PARAMS ((rtx)); -static void gen_proto PARAMS ((rtx)); -static void gen_macro PARAMS ((const char *, int, int)); -static void gen_insn PARAMS ((rtx)); +static void max_operand_1 (rtx); +static int num_operands (rtx); +static void gen_proto (rtx); +static void gen_macro (const char *, int, int); +static void gen_insn (rtx); /* Count the number of match_operand's found. */ static void -max_operand_1 (x) - rtx x; +max_operand_1 (rtx x) { - register RTX_CODE code; - register int i; - register int len; - register const char *fmt; + RTX_CODE code; + int i; + int len; + const char *fmt; if (x == 0) return; @@ -84,11 +81,10 @@ max_operand_1 (x) } static int -num_operands (insn) - rtx insn; +num_operands (rtx insn) { - register int len = XVECLEN (insn, 1); - register int i; + int len = XVECLEN (insn, 1); + int i; max_opno = -1; @@ -102,16 +98,12 @@ num_operands (insn) of arguments it takes. Any missing arguments are assumed to be at the end. */ static void -gen_macro (name, real, expect) - const char *name; - int real, expect; +gen_macro (const char *name, int real, int expect) { int i; - if (real > expect) - abort (); - if (real == 0) - abort (); + gcc_assert (real <= expect); + gcc_assert (real); /* #define GEN_CALL(A, B, C, D) gen_call((A), (B)) */ fputs ("#define GEN_", stdout); @@ -128,14 +120,17 @@ gen_macro (name, real, expect) printf ("(%c))\n", i + 'A'); } -/* Print out prototype information for a function. */ +/* Print out prototype information for a generator function. If the + insn pattern has been elided, print out a dummy generator that + does nothing. */ static void -gen_proto (insn) - rtx insn; +gen_proto (rtx insn) { int num = num_operands (insn); + int i; const char *name = XSTR (insn, 0); + int truth = maybe_eval_c_test (XSTR (insn, 2)); /* Many md files don't refer to the last two operands passed to the call patterns. This means their generator functions will be two @@ -156,29 +151,49 @@ gen_proto (insn) gen_macro (name, num, 5); } - printf ("extern struct rtx_def *gen_%-*s PARAMS ((", max_id_len, name); + if (truth != 0) + printf ("extern rtx gen_%-*s (", max_id_len, name); + else + printf ("static inline rtx gen_%-*s (", max_id_len, name); if (num == 0) - printf ("void"); + fputs ("void", stdout); else { - while (num-- > 1) - printf ("struct rtx_def *, "); + for (i = 1; i < num; i++) + fputs ("rtx, ", stdout); - printf ("struct rtx_def *"); + fputs ("rtx", stdout); } - printf ("));\n"); + puts (");"); + + /* Some back ends want to take the address of generator functions, + so we cannot simply use #define for these dummy definitions. */ + if (truth == 0) + { + printf ("static inline rtx\ngen_%s", name); + if (num > 0) + { + putchar ('('); + for (i = 0; i < num-1; i++) + printf ("rtx ARG_UNUSED (%c), ", 'a' + i); + printf ("rtx ARG_UNUSED (%c))\n", 'a' + i); + } + else + puts ("(void)"); + puts ("{\n return 0;\n}"); + } } static void -gen_insn (insn) - rtx insn; +gen_insn (rtx insn) { const char *name = XSTR (insn, 0); const char *p; int len; + int truth = maybe_eval_c_test (XSTR (insn, 2)); /* Don't mention instructions whose names are the null string or begin with '*'. They are in the machine description just @@ -191,33 +206,30 @@ gen_insn (insn) if (len > max_id_len) max_id_len = len; - printf ("#define HAVE_%s ", name); - if (strlen (XSTR (insn, 2)) == 0) - printf ("1\n"); + if (truth == 0) + /* Emit nothing. */; + else if (truth == 1) + printf ("#define HAVE_%s 1\n", name); else { /* Write the macro definition, putting \'s at the end of each line, if more than one. */ - printf ("("); + printf ("#define HAVE_%s (", name); for (p = XSTR (insn, 2); *p; p++) { - if (*p == '\n') - printf (" \\\n"); + if (IS_VSPACE (*p)) + fputs (" \\\n", stdout); else - printf ("%c", *p); + putchar (*p); } - printf (")\n"); + fputs (")\n", stdout); } obstack_grow (&obstack, &insn, sizeof (rtx)); } -extern int main PARAMS ((int, char **)); - int -main (argc, argv) - int argc; - char **argv; +main (int argc, char **argv) { rtx desc; rtx dummy; @@ -227,12 +239,13 @@ main (argc, argv) progname = "genflags"; obstack_init (&obstack); - if (argc <= 1) - fatal ("No input file name."); + /* We need to see all the possibilities. Elided insns may have + direct calls to their generators in C code. */ + insn_elision = 0; - if (init_md_reader (argv[1]) != SUCCESS_EXIT_CODE) + if (init_md_reader_args (argc, argv) != SUCCESS_EXIT_CODE) return (FATAL_EXIT_CODE); - + puts ("/* Generated automatically by the program `genflags'"); puts (" from the machine description file `md'. */\n"); puts ("#ifndef GCC_INSN_FLAGS_H"); @@ -254,9 +267,8 @@ main (argc, argv) /* Print out the prototypes now. */ dummy = (rtx) 0; obstack_grow (&obstack, &dummy, sizeof (rtx)); - insns = (rtx *) obstack_finish (&obstack); + insns = XOBFINISH (&obstack, rtx *); - printf ("struct rtx_def;\n"); for (insn_ptr = insns; *insn_ptr; insn_ptr++) gen_proto (*insn_ptr); @@ -270,8 +282,7 @@ main (argc, argv) /* Define this so we can link with print-rtl.o to get debug_rtx function. */ const char * -get_insn_name (code) - int code ATTRIBUTE_UNUSED; +get_insn_name (int ARG_UNUSED (code)) { return NULL; }