/* Generate code to allocate RTL structures.
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"
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
-#elif MAX_LONG_DOUBLE_TYPE_SIZE == 128
-#define REAL_WIDTH (19*8 + HOST_BITS_PER_WIDE_INT)/HOST_BITS_PER_WIDE_INT
-#elif HOST_FLOAT_FORMAT != TARGET_FLOAT_FORMAT
-#define REAL_WIDTH (7*8 + HOST_BITS_PER_WIDE_INT)/HOST_BITS_PER_WIDE_INT
-#endif
+# 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
-#elif HOST_BITS_PER_WIDE_INT*3 >= MAX_LONG_DOUBLE_TYPE_SIZE
-#define REAL_WIDTH 3
-#elif HOST_BITS_PER_WIDE_INT*4 >= MAX_LONG_DOUBLE_TYPE_SIZE
-#define REAL_WIDTH 4
-#endif
+# 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 "e0ww"
-#elif REAL_WIDTH == 2
-#define CONST_DOUBLE_FORMAT "e0ww"
-#elif REAL_WIDTH == 3
-#define CONST_DOUBLE_FORMAT "e0www"
-#elif REAL_WIDTH == 4
-#define CONST_DOUBLE_FORMAT "e0wwww"
-#elif REAL_WIDTH == 5
-#define CONST_DOUBLE_FORMAT "e0wwwww"
+# define CONST_DOUBLE_FORMAT "0ww"
#else
-#define CONST_DOUBLE_FORMAT /* nothing - will cause syntax error */
+# 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[] =
+const struct rtx_definition defs[] =
{
#include "rtl.def" /* rtl expressions are documented here */
};
/* 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. */
+ elsewhere in the compiler). */
static int
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);
}
-/* Place a list of all format specifiers we use into the array FORMAT. */
+/* Place a list of all format specifiers we use into the array FORMAT. */
static void
find_formats ()
the memory and initializes it. */
puts ("{");
puts (" rtx rt;");
- puts (" if (ggc_p)");
- printf (" rt = ggc_alloc_rtx (%d);\n", (int) strlen (format));
- puts (" else");
- printf (" rt = obstack_alloc_rtx (%d);\n", (int) strlen (format));
+ printf (" rt = ggc_alloc_rtx (%d);\n", (int) strlen (format));
puts (" memset (rt, 0, sizeof (struct rtx_def) - sizeof (rtunion));\n");
puts (" PUT_CODE (rt, code);");
{
int i;
const char **fmt;
-
+
+ puts ("#ifndef GCC_GENRTL_H");
+ puts ("#define GCC_GENRTL_H\n");
+
for (fmt = formats; *fmt; ++fmt)
gendecl (*fmt);
for (i = 0; i < NUM_RTX_CODE; i++)
if (! special_format (defs[i].format))
genmacro (i);
+
+ puts ("\n#endif /* GCC_GENRTL_H */");
}
/* Generate the text of the code file we write, genrtl.c. */
xmalloc (nbytes)
size_t nbytes;
{
- register PTR tmp = (PTR) malloc (nbytes);
+ PTR tmp = (PTR) really_call_malloc (nbytes);
if (!tmp)
{
else
gencode ();
- fflush (stdout);
- return (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);
+ if (ferror (stdout) || fflush (stdout) || fclose (stdout))
+ return FATAL_EXIT_CODE;
+
+ return SUCCESS_EXIT_CODE;
}
OSDN Git Service
