diff options
author | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-03 20:01:30 +0200 |
---|---|---|
committer | Janne Blomqvist <jb@gcc.gnu.org> | 2017-01-03 20:01:30 +0200 |
commit | 84aff3c2d4b487fe93f5caa6351c47d56145a6a1 (patch) | |
tree | 09d627d26346335c50d501ba2f2e2f39094071bc /gcc/fortran/trans-types.c | |
parent | 47f2abdd0d8bc3a760041149a93e35bc5db9d54e (diff) | |
download | gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.zip gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.tar.gz gcc-84aff3c2d4b487fe93f5caa6351c47d56145a6a1.tar.bz2 |
PR 78534 Revert r244011
r244011 caused regressions on 32-bit hosts.
From-SVN: r244027
Diffstat (limited to 'gcc/fortran/trans-types.c')
-rw-r--r-- | gcc/fortran/trans-types.c | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 448faa3..a214aae 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -118,9 +118,6 @@ int gfc_intio_kind; /* The integer kind used to store character lengths. */ int gfc_charlen_int_kind; -/* Kind of internal integer for storing object sizes. */ -int gfc_size_kind; - /* The size of the numeric storage unit and character storage unit. */ int gfc_numeric_storage_size; int gfc_character_storage_size; @@ -964,13 +961,9 @@ gfc_init_types (void) wi::mask (n, UNSIGNED, TYPE_PRECISION (size_type_node))); - /* Character lengths are of type size_t, except signed. */ - gfc_charlen_int_kind = get_int_kind_from_node (size_type_node); + /* ??? Shouldn't this be based on gfc_index_integer_kind or so? */ + gfc_charlen_int_kind = 4; gfc_charlen_type_node = gfc_get_int_type (gfc_charlen_int_kind); - - /* Fortran kind number of size_type_node (size_t). This is used for - the _size member in vtables. */ - gfc_size_kind = get_int_kind_from_node (size_type_node); } /* Get the type node for the given type and kind. */ |