diff options
Diffstat (limited to 'contrib/gcc/gengenrtl.c')
-rw-r--r-- | contrib/gcc/gengenrtl.c | 400 |
1 files changed, 231 insertions, 169 deletions
diff --git a/contrib/gcc/gengenrtl.c b/contrib/gcc/gengenrtl.c index bf98a716770d..157baf179e02 100644 --- a/contrib/gcc/gengenrtl.c +++ b/contrib/gcc/gengenrtl.c @@ -1,58 +1,124 @@ /* Generate code to allocate RTL structures. - Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. + Copyright (C) 1997, 1998, 1999, 2000 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, 59 Temple Place - Suite 330, Boston, MA +02111-1307, USA. */ #include "hconfig.h" #include "system.h" -#undef abort #define NO_GENRTL_H #include "rtl.h" +#undef abort + +#include "real.h" + +/* Calculate the format for CONST_DOUBLE. This depends on the relative + widths of HOST_WIDE_INT and REAL_VALUE_TYPE. + + We need to go out to e0wwwww, since REAL_ARITHMETIC assumes 16-bits + per element in REAL_VALUE_TYPE. + + This is duplicated in rtl.c. + + A number of places assume that there are always at least two 'w' + slots in a CONST_DOUBLE, so we provide them even if one would suffice. */ + +#ifdef REAL_ARITHMETIC +# if MAX_LONG_DOUBLE_TYPE_SIZE == 96 +# define REAL_WIDTH \ + (11*8 + HOST_BITS_PER_WIDE_INT)/HOST_BITS_PER_WIDE_INT +# else +# if MAX_LONG_DOUBLE_TYPE_SIZE == 128 +# define REAL_WIDTH \ + (19*8 + HOST_BITS_PER_WIDE_INT)/HOST_BITS_PER_WIDE_INT +# else +# if HOST_FLOAT_FORMAT != TARGET_FLOAT_FORMAT +# define REAL_WIDTH \ + (7*8 + HOST_BITS_PER_WIDE_INT)/HOST_BITS_PER_WIDE_INT +# endif +# endif +# endif +#endif /* REAL_ARITHMETIC */ + +#ifndef REAL_WIDTH +# if HOST_BITS_PER_WIDE_INT*2 >= MAX_LONG_DOUBLE_TYPE_SIZE +# define REAL_WIDTH 2 +# else +# if HOST_BITS_PER_WIDE_INT*3 >= MAX_LONG_DOUBLE_TYPE_SIZE +# define REAL_WIDTH 3 +# else +# if HOST_BITS_PER_WIDE_INT*4 >= MAX_LONG_DOUBLE_TYPE_SIZE +# define REAL_WIDTH 4 +# endif +# endif +# endif +#endif /* REAL_WIDTH */ + +#if REAL_WIDTH == 1 +# define CONST_DOUBLE_FORMAT "0ww" +#else +# if REAL_WIDTH == 2 +# define CONST_DOUBLE_FORMAT "0ww" +# else +# if REAL_WIDTH == 3 +# define CONST_DOUBLE_FORMAT "0www" +# else +# if REAL_WIDTH == 4 +# define CONST_DOUBLE_FORMAT "0wwww" +# else +# if REAL_WIDTH == 5 +# define CONST_DOUBLE_FORMAT "0wwwww" +# else +# define CONST_DOUBLE_FORMAT /* nothing - will cause syntax error */ +# endif +# endif +# endif +# endif +#endif struct rtx_definition { - const char *enumname, *name, *format; + const char *const enumname, *const name, *const format; }; -#define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) { STRINGIFY(ENUM), NAME, FORMAT }, +#define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) { STRINGX(ENUM), NAME, FORMAT }, -struct rtx_definition defs[] = +static const struct rtx_definition defs[] = { #include "rtl.def" /* rtl expressions are documented here */ }; -const char *formats[NUM_RTX_CODE]; - -static const char *type_from_format PROTO((int)); -static const char *accessor_from_format PROTO((int)); -static int special_format PROTO((const char *)); -static int special_rtx PROTO((int)); -static void find_formats PROTO((void)); -static void gendecl PROTO((FILE *, const char *)); -static void genmacro PROTO((FILE *, int)); -static void gendef PROTO((FILE *, const char *)); -static void genlegend PROTO((FILE *)); -static void genheader PROTO((FILE *)); -static void gencode PROTO((FILE *)); - +static const char *formats[NUM_RTX_CODE]; + +static const char *type_from_format PARAMS ((int)); +static const char *accessor_from_format PARAMS ((int)); +static int special_format PARAMS ((const char *)); +static int special_rtx PARAMS ((int)); +static void find_formats PARAMS ((void)); +static void gendecl PARAMS ((const char *)); +static void genmacro PARAMS ((int)); +static void gendef PARAMS ((const char *)); +static void genlegend PARAMS ((void)); +static void genheader PARAMS ((void)); +static void gencode PARAMS ((void)); + /* Decode a format letter into a C type string. */ static const char * @@ -62,26 +128,23 @@ type_from_format (c) switch (c) { case 'i': - return "int"; + return "int "; + case 'w': - return "HOST_WIDE_INT"; + return "HOST_WIDE_INT "; + case 's': - return "char *"; - case 'e': - case 'u': - return "rtx"; - case 'E': - return "rtvec"; - /* ?!? These should be bitmap and tree respectively, but those types - are not available in many of the files which include the output - of gengenrtl. + return "const char *"; + + case 'e': case 'u': + return "rtx "; - These are only used in prototypes, so I think we can assume that - void * is useable. */ + case 'E': + return "rtvec "; case 'b': - return "void *"; + return "struct bitmap_head_def *"; /* bitmap - typedef not available */ case 't': - return "void *"; + return "union tree_node *"; /* tree - typedef not available */ default: abort (); } @@ -97,25 +160,32 @@ accessor_from_format (c) { case 'i': return "XINT"; + case 'w': return "XWINT"; + case 's': return "XSTR"; - case 'e': - case 'u': + + case 'e': case 'u': return "XEXP"; + case 'E': return "XVEC"; + case 'b': return "XBITMAP"; + case 't': return "XTREE"; + default: abort (); } } -/* Return true if a format character doesn't need normal processing. */ +/* Return nonzero if we should ignore FMT, an RTL format, when making + the list of formats we write routines to create. */ static int special_format (fmt) @@ -127,7 +197,9 @@ special_format (fmt) || strchr (fmt, 'n') != 0); } -/* Return true if an rtx requires special processing. */ +/* Return nonzero if the RTL code given by index IDX is one that we should not + generate a gen_RTX_FOO function foo (because that function is present + elsewhere in the compiler). */ static int special_rtx (idx) @@ -136,218 +208,208 @@ special_rtx (idx) return (strcmp (defs[idx].enumname, "CONST_INT") == 0 || strcmp (defs[idx].enumname, "CONST_DOUBLE") == 0 || strcmp (defs[idx].enumname, "REG") == 0 + || strcmp (defs[idx].enumname, "SUBREG") == 0 || strcmp (defs[idx].enumname, "MEM") == 0); } -/* Fill `formats' with all unique format strings. */ +/* Place a list of all format specifiers we use into the array FORMAT. */ static void find_formats () { int i; - for (i = 0; i < NUM_RTX_CODE; ++i) + for (i = 0; i < NUM_RTX_CODE; i++) { const char **f; if (special_format (defs[i].format)) continue; - for (f = formats; *f ; ++f) + for (f = formats; *f; f++) if (! strcmp (*f, defs[i].format)) break; - if (!*f) + if (*f == 0) *f = defs[i].format; } } -/* Emit a prototype for the rtx generator for a format. */ +/* Write the declarations for the routine to allocate RTL with FORMAT. */ static void -gendecl (f, format) - FILE *f; +gendecl (format) const char *format; { const char *p; - int i; + int i, pos; - fprintf (f, "extern rtx gen_rtx_fmt_%s PROTO((RTX_CODE, enum machine_mode mode", - format); - for (p = format, i = 0; *p ; ++p) + printf ("extern rtx gen_rtx_fmt_%s\tPARAMS ((RTX_CODE, ", format); + printf ("enum machine_mode mode"); + + /* Write each parameter that is needed and start a new line when the line + would overflow. */ + for (p = format, i = 0, pos = 75; *p != 0; p++) if (*p != '0') - fprintf (f, ", %s arg%d", type_from_format (*p), i++); - fprintf (f, "));\n"); + { + int ourlen = strlen (type_from_format (*p)) + 6 + (i > 9); + + printf (","); + if (pos + ourlen > 76) + printf ("\n\t\t\t\t "), pos = 39; + + printf (" %sarg%d", type_from_format (*p), i++); + pos += ourlen; + } + + printf ("));\n"); } -/* Emit a define mapping an rtx code to the generator for its format. */ +/* Generate macros to generate RTL of code IDX using the functions we + write. */ static void -genmacro (f, idx) - FILE *f; +genmacro (idx) int idx; { const char *p; int i; - fprintf (f, "#define gen_rtx_%s%s(mode", - (special_rtx (idx) ? "raw_" : ""), defs[idx].enumname); + /* We write a macro that defines gen_rtx_RTLCODE to be an equivalent to + gen_rtx_fmt_FORMAT where FORMAT is the RTX_FORMAT of RTLCODE. */ + + printf ("#define gen_rtx_%s%s(MODE", + special_rtx (idx) ? "raw_" : "", defs[idx].enumname); - for (p = defs[idx].format, i = 0; *p ; ++p) + for (p = defs[idx].format, i = 0; *p != 0; p++) if (*p != '0') - fprintf (f, ", arg%d", i++); - fprintf (f, ") "); + printf (", ARG%d", i++); - fprintf (f, "gen_rtx_fmt_%s(%s,(mode)", defs[idx].format, defs[idx].enumname); - for (p = defs[idx].format, i = 0; *p ; ++p) + printf (") \\\n gen_rtx_fmt_%s (%s, (MODE)", + defs[idx].format, defs[idx].enumname); + + for (p = defs[idx].format, i = 0; *p != 0; p++) if (*p != '0') - fprintf (f, ",(arg%d)", i++); - fprintf (f, ")\n"); + printf (", (ARG%d)", i++); + + puts (")"); } -/* Emit the implementation for the rtx generator for a format. */ +/* Generate the code for the function to generate RTL whose + format is FORMAT. */ static void -gendef (f, format) - FILE *f; +gendef (format) const char *format; { const char *p; int i, j; - fprintf (f, "rtx\ngen_rtx_fmt_%s (code, mode", format); - for (p = format, i = 0; *p ; ++p) + /* Start by writing the definition of the function name and the types + of the arguments. */ + + printf ("rtx\ngen_rtx_fmt_%s (code, mode", format); + for (p = format, i = 0; *p != 0; p++) if (*p != '0') - fprintf (f, ", arg%d", i++); + printf (", arg%d", i++); - fprintf (f, ")\n RTX_CODE code;\n enum machine_mode mode;\n"); - for (p = format, i = 0; *p ; ++p) + puts (")\n RTX_CODE code;\n enum machine_mode mode;"); + for (p = format, i = 0; *p != 0; p++) if (*p != '0') - fprintf (f, " %s arg%d;\n", type_from_format (*p), i++); + printf (" %sarg%d;\n", type_from_format (*p), i++); - /* See rtx_alloc in rtl.c for comments. */ - fprintf (f, "{\n"); - fprintf (f, " rtx rt = obstack_alloc_rtx (sizeof (struct rtx_def) + %d * sizeof (rtunion));\n", - (int) strlen (format) - 1); + /* Now write out the body of the function itself, which allocates + the memory and initializes it. */ + puts ("{"); + puts (" rtx rt;"); + printf (" rt = ggc_alloc_rtx (%d);\n", (int) strlen (format)); - fprintf (f, " PUT_CODE (rt, code);\n"); - fprintf (f, " PUT_MODE (rt, mode);\n"); + puts (" memset (rt, 0, sizeof (struct rtx_def) - sizeof (rtunion));\n"); + puts (" PUT_CODE (rt, code);"); + puts (" PUT_MODE (rt, mode);"); for (p = format, i = j = 0; *p ; ++p, ++i) if (*p != '0') - { - fprintf (f, " %s (rt, %d) = arg%d;\n", - accessor_from_format (*p), i, j++); - } + printf (" %s (rt, %d) = arg%d;\n", accessor_from_format (*p), i, j++); + else + printf (" X0EXP (rt, %d) = NULL_RTX;\n", i); - fprintf (f, "\n return rt;\n}\n\n"); + puts ("\n return rt;\n}\n"); } -/* Emit the `do not edit' banner. */ +/* Generate the documentation header for files we write. */ static void -genlegend (f) - FILE *f; +genlegend () { - fputs ("/* Generated automaticaly by the program `gengenrtl'\n", f); - fputs (" from the RTL description file `rtl.def' */\n\n", f); + puts ("/* Generated automatically by gengenrtl from rtl.def. */\n"); } -/* Emit "genrtl.h". */ +/* Generate the text of the header file we make, genrtl.h. */ static void -genheader (f) - FILE *f; +genheader () { int i; const char **fmt; + puts ("#ifndef GCC_GENRTL_H"); + puts ("#define GCC_GENRTL_H\n"); + for (fmt = formats; *fmt; ++fmt) - gendecl (f, *fmt); + gendecl (*fmt); - fprintf (f, "\n"); + putchar ('\n'); for (i = 0; i < NUM_RTX_CODE; i++) - { - if (special_format (defs[i].format)) - continue; - genmacro (f, i); - } + if (! special_format (defs[i].format)) + genmacro (i); + + puts ("\n#endif /* GCC_GENRTL_H */"); } -/* Emit "genrtl.c". */ +/* Generate the text of the code file we write, genrtl.c. */ static void -gencode (f) - FILE *f; +gencode () { const char **fmt; - fputs ("#include \"config.h\"\n", f); - fputs ("#include \"system.h\"\n", f); - fputs ("#include \"obstack.h\"\n", f); - fputs ("#include \"rtl.h\"\n\n", f); - fputs ("extern struct obstack *rtl_obstack;\n\n", f); - fputs ("static rtx obstack_alloc_rtx PROTO((int length));\n", f); - fputs ("static rtx obstack_alloc_rtx (length)\n", f); - fputs (" register int length;\n{\n", f); - fputs (" rtx rt = (rtx) obstack_alloc (rtl_obstack, length);\n\n", f); - fputs (" memset(rt, 0, sizeof(struct rtx_def) - sizeof(rtunion));\n\n", f); - fputs (" return rt;\n}\n\n", f); - - for (fmt = formats; *fmt; ++fmt) - gendef (f, *fmt); + puts ("#include \"config.h\""); + puts ("#include \"system.h\""); + puts ("#include \"obstack.h\""); + puts ("#include \"rtl.h\""); + puts ("#include \"ggc.h\"\n"); + puts ("extern struct obstack *rtl_obstack;\n"); + puts ("#define obstack_alloc_rtx(n) \\"); + puts (" ((rtx) obstack_alloc (rtl_obstack, \\"); + puts (" sizeof (struct rtx_def) \\"); + puts (" + ((n) - 1) * sizeof (rtunion)))\n"); + + for (fmt = formats; *fmt != 0; fmt++) + gendef (*fmt); } -#if defined(USE_C_ALLOCA) -PTR -xmalloc (nbytes) - size_t nbytes; -{ - register PTR tmp = (PTR) malloc (nbytes); - - if (!tmp) - { - fprintf (stderr, "can't allocate %d bytes (out of virtual memory)\n", - nbytes); - exit (FATAL_EXIT_CODE); - } - - return tmp; -} -#endif /* USE_C_ALLOCA */ +/* This is the main program. We accept only one argument, "-h", which + says we are writing the genrtl.h file. Otherwise we are writing the + genrtl.c file. */ +extern int main PARAMS ((int, char **)); int -main(argc, argv) +main (argc, argv) int argc; char **argv; { - FILE *f; - - if (argc != 3) - exit (1); - find_formats (); + genlegend (); - f = fopen (argv[1], "w"); - if (f == NULL) - { - perror (argv[1]); - exit (1); - } - genlegend (f); - genheader (f); - fclose (f); + if (argc == 2 && argv[1][0] == '-' && argv[1][1] == 'h') + genheader (); + else + gencode (); - f = fopen (argv[2], "w"); - if (f == NULL) - { - perror (argv[2]); - exit (1); - } - genlegend (f); - gencode (f); - fclose (f); + if (ferror (stdout) || fflush (stdout) || fclose (stdout)) + return FATAL_EXIT_CODE; - exit (0); + return SUCCESS_EXIT_CODE; } |