From 54f806c7a214a001ae91fa236eccb9bed62a0143 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 3 Jun 2009 19:44:43 +0000 Subject: [PATCH] iso-c-binding.def: Use INTMAX_TYPE instead of 2009-06-03 Francois-Xavier Coudert Tobias Burnus * iso-c-binding.def: Use INTMAX_TYPE instead of * intmax_type_node. * trans-types.c (init_c_interop_kinds): Remove intmax_type_node. Co-Authored-By: Tobias Burnus From-SVN: r148145 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/iso-c-binding.def | 2 +- 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 + Tobias Burnus + + * 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 * 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++) -- 2.11.4.GIT