diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-03 19:44:43 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-03 19:44:43 +0000 |
| commit | 8f843aad6aae096d90c7ef7bddac6b99ee3702b1 (patch) | |
| tree | 66db16e3eaa1ffe889f0599852a35a7218004dd0 /gcc/fortran | |
| parent | 15880c04dcc07c647ce788b6eb73089ac6d85835 (diff) | |
| download | gcc-8f843aad6aae096d90c7ef7bddac6b99ee3702b1.tar.gz | |
2009-06-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Tobias Burnus <burnus@net-b.de>
* iso-c-binding.def: Use INTMAX_TYPE instead of
* intmax_type_node.
* trans-types.c (init_c_interop_kinds): Remove intmax_type_node.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148145 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/iso-c-binding.def | 2 | ||||
| -rw-r--r-- | gcc/fortran/trans-types.c | 5 |
3 files changed, 7 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 56530417fd5..9bed6a3180d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-06-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + Tobias Burnus <burnus@net-b.de> + + * iso-c-binding.def: Use INTMAX_TYPE instead of intmax_type_node. + * trans-types.c (init_c_interop_kinds): Remove intmax_type_node. + 2009-06-03 Alexandre Oliva <aoliva@redhat.com> * module.c (mio_f2k_derived): Initialize cur. diff --git a/gcc/fortran/iso-c-binding.def b/gcc/fortran/iso-c-binding.def index 94c12fd09af..2879776798a 100644 --- a/gcc/fortran/iso-c-binding.def +++ b/gcc/fortran/iso-c-binding.def @@ -54,7 +54,7 @@ NAMED_INTCST (ISOCBINDING_LONG_LONG, "c_long_long", \ get_int_kind_from_node (long_long_integer_type_node), GFC_STD_F2003) NAMED_INTCST (ISOCBINDING_INTMAX_T, "c_intmax_t", \ - get_int_kind_from_node (intmax_type_node), GFC_STD_F2003) + get_int_kind_from_name (INTMAX_TYPE), GFC_STD_F2003) NAMED_INTCST (ISOCBINDING_INTPTR_T, "c_intptr_t", \ get_int_kind_from_name (INTPTR_TYPE), GFC_STD_F2003) NAMED_INTCST (ISOCBINDING_SIZE_T, "c_size_t", \ diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 0c439937125..2e6889b8354 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -285,11 +285,6 @@ static void init_c_interop_kinds (void) { int i; - tree intmax_type_node = INT_TYPE_SIZE == LONG_LONG_TYPE_SIZE ? - integer_type_node : - (LONG_TYPE_SIZE == LONG_LONG_TYPE_SIZE ? - long_integer_type_node : - long_long_integer_type_node); /* init all pointers in the list to NULL */ for (i = 0; i < ISOCBINDING_NUMBER; i++) |