diff options
Diffstat (limited to 'contrib/gcc/gengenrtl.c')
| -rw-r--r-- | contrib/gcc/gengenrtl.c | 114 |
1 files changed, 33 insertions, 81 deletions
diff --git a/contrib/gcc/gengenrtl.c b/contrib/gcc/gengenrtl.c index 157baf1..6bfd0ff 100644 --- a/contrib/gcc/gengenrtl.c +++ b/contrib/gcc/gengenrtl.c @@ -1,5 +1,5 @@ /* Generate code to allocate RTL structures. - Copyright (C) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1997, 1998, 1999, 2000, 2002 Free Software Foundation, Inc. This file is part of GCC. @@ -28,80 +28,15 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #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 +struct rtx_definition { const char *const enumname, *const name, *const format; }; #define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) { STRINGX(ENUM), NAME, FORMAT }, -static const struct rtx_definition defs[] = -{ +static const struct rtx_definition defs[] = +{ #include "rtl.def" /* rtl expressions are documented here */ }; @@ -111,6 +46,7 @@ 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 int excluded_rtx PARAMS ((int)); static void find_formats PARAMS ((void)); static void gendecl PARAMS ((const char *)); static void genmacro PARAMS ((int)); @@ -145,6 +81,8 @@ type_from_format (c) return "struct bitmap_head_def *"; /* bitmap - typedef not available */ case 't': return "union tree_node *"; /* tree - typedef not available */ + case 'B': + return "struct basic_block_def *"; /* basic block - typedef not available */ default: abort (); } @@ -179,6 +117,9 @@ accessor_from_format (c) case 't': return "XTREE"; + case 'B': + return "XBBDEF"; + default: abort (); } @@ -197,19 +138,30 @@ special_format (fmt) || strchr (fmt, 'n') != 0); } -/* 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). */ +/* Return nonzero if the RTL code given by index IDX is one that we should + generate a gen_rtx_raw_FOO macro for, not gen_rtx_FOO (because gen_rtx_FOO + is a wrapper in emit-rtl.c). */ static int special_rtx (idx) int 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); + || strcmp (defs[idx].enumname, "MEM") == 0 + || strcmp (defs[idx].enumname, "CONST_VECTOR") == 0); +} + +/* Return nonzero if the RTL code given by index IDX is one that we should + generate no macro for at all (because gen_rtx_FOO is never used or + cannot have the obvious interface). */ + +static int +excluded_rtx (idx) + int idx; +{ + return (strcmp (defs[idx].enumname, "CONST_DOUBLE") == 0); } /* Place a list of all format specifiers we use into the array FORMAT. */ @@ -243,7 +195,7 @@ gendecl (format) { const char *p; int i, pos; - + printf ("extern rtx gen_rtx_fmt_%s\tPARAMS ((RTX_CODE, ", format); printf ("enum machine_mode mode"); @@ -268,7 +220,7 @@ gendecl (format) /* Generate macros to generate RTL of code IDX using the functions we write. */ -static void +static void genmacro (idx) int idx; { @@ -278,6 +230,10 @@ genmacro (idx) /* 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. */ + if (excluded_rtx (idx)) + /* Don't define a macro for this code. */ + return; + printf ("#define gen_rtx_%s%s(MODE", special_rtx (idx) ? "raw_" : "", defs[idx].enumname); @@ -304,7 +260,7 @@ gendef (format) { const char *p; int i, j; - + /* Start by writing the definition of the function name and the types of the arguments. */ @@ -381,10 +337,6 @@ gencode () 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); |
