OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

iso-c-binding.def: Use INTMAX_TYPE instead of

Browse Source 
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.


Co-Authored-By: Tobias Burnus <burnus@net-b.de>

From-SVN: r148145
This commit is contained in:
Francois-Xavier Coudert 2009-06-03 19:44:43 +00:00 committed by Tobias Burnus
parent c75b7ed799
commit 54f806c7a2
3 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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.

2
gcc/fortran/iso-c-binding.def
View File

@ -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", \

5
gcc/fortran/trans-types.c
View File

@ -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++)