From 29eabd788fd921611c5800e2d173f097bdabd117 Mon Sep 17 00:00:00 2001
From: Joern Rennecke <amylaar@spamcop.net>
Date: Sun, 15 May 2011 12:50:57 +0000
Subject: [PATCH] re PR middle-end/46500 (target.h includes tm.h)
PR middle-end/46500
gcc/fortran:
* trans-types.c: Include "tm.h".
[0] (c_size_t_size): Remove.
From-SVN: r173771
---
gcc/fortran/ChangeLog | 6 ++++++
gcc/fortran/trans-types.c | 29 +++++++++--------------------
2 files changed, 15 insertions(+), 20 deletions(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b4e2e29..bd9cdcb 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-05-15 Joern Rennecke <amylaar@spamcop.net>
+
+ PR middle-end/46500
+ * trans-types.c: Include "tm.h".
+ [0] (c_size_t_size): Remove.
+
2011-05-15 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/48915
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 22a2c5b..9874d16 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -26,6 +26,15 @@ along with GCC; see the file COPYING3. If not see
#include "config.h"
#include "system.h"
#include "coretypes.h"
+#include "tm.h" /* For INTMAX_TYPE, INT8_TYPE, INT16_TYPE, INT32_TYPE,
+ INT64_TYPE, INT_LEAST8_TYPE, INT_LEAST16_TYPE,
+ INT_LEAST32_TYPE, INT_LEAST64_TYPE, INT_FAST8_TYPE,
+ INT_FAST16_TYPE, INT_FAST32_TYPE, INT_FAST64_TYPE,
+ BOOL_TYPE_SIZE, BITS_PER_UNIT, POINTER_SIZE,
+ INT_TYPE_SIZE, CHAR_TYPE_SIZE, SHORT_TYPE_SIZE,
+ LONG_TYPE_SIZE, LONG_LONG_TYPE_SIZE,
+ FLOAT_TYPE_SIZE, DOUBLE_TYPE_SIZE,
+ LONG_DOUBLE_TYPE_SIZE and LIBGCC2_HAS_TF_MODE. */
#include "tree.h"
#include "langhooks.h" /* For iso-c-bindings.def. */
#include "target.h"
@@ -785,26 +794,6 @@ gfc_build_logical_type (gfc_logical_info *info)
}
-#if 0
-/* Return the bit size of the C "size_t". */
-
-static unsigned int
-c_size_t_size (void)
-{
-#ifdef SIZE_TYPE
- if (strcmp (SIZE_TYPE, "unsigned int") == 0)
- return INT_TYPE_SIZE;
- if (strcmp (SIZE_TYPE, "long unsigned int") == 0)
- return LONG_TYPE_SIZE;
- if (strcmp (SIZE_TYPE, "short unsigned int") == 0)
- return SHORT_TYPE_SIZE;
- gcc_unreachable ();
-#else
- return LONG_TYPE_SIZE;
-#endif
-}
-#endif
-
/* Create the backend type nodes. We map them to their
equivalent C type, at least for now. We also give
names to the types here, and we push them in the
--
libgit2 0.26.0