aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorJoern Rennecke <amylaar@spamcop.net>2011-05-15 12:50:57 +0000
committerJoern Rennecke <amylaar@gcc.gnu.org>2011-05-15 13:50:57 +0100
commit29eabd788fd921611c5800e2d173f097bdabd117 (patch)
tree8a7aea9671cfd3db12866cdac5ed9f95de3cc0ea /gcc
parent817f24d98ed7db2fc3f7265a68eeb3e28a85502e (diff)
downloadgcc-29eabd788fd921611c5800e2d173f097bdabd117.zip
gcc-29eabd788fd921611c5800e2d173f097bdabd117.tar.gz
gcc-29eabd788fd921611c5800e2d173f097bdabd117.tar.bz2
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
Diffstat (limited to 'gcc')
-rw-r--r--gcc/fortran/ChangeLog6
-rw-r--r--gcc/fortran/trans-types.c29
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