re PR fortran/51842 (fortran fails if ssize_t is 32-bit on 64-bit host)
2012-01-13 Tobias Burnus <burnus@net-b.de> PR fortran/51842 * fortran/trans-types.c (gfc_init_kinds): Use PTRDIFF_TYPE instead of a signed int of size POINTER_SIZE for gfc_index_integer_kind. From-SVN: r183154
This commit is contained in:
parent
aabb90e5ad
commit
8395e28bbf
|
@ -1,3 +1,10 @@
|
||||||
|
2012-01-13 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
|
PR fortran/51842
|
||||||
|
* fortran/trans-types.c (gfc_init_kinds): Use PTRDIFF_TYPE
|
||||||
|
instead of a signed int of size POINTER_SIZE for
|
||||||
|
gfc_index_integer_kind.
|
||||||
|
|
||||||
2012-01-12 Tobias Burnus <burnus@net-b.de>
|
2012-01-12 Tobias Burnus <burnus@net-b.de>
|
||||||
|
|
||||||
PR fortran/36755
|
PR fortran/36755
|
||||||
|
|
|
@ -576,8 +576,8 @@ gfc_init_kinds (void)
|
||||||
gfc_default_character_kind = gfc_character_kinds[0].kind;
|
gfc_default_character_kind = gfc_character_kinds[0].kind;
|
||||||
gfc_character_storage_size = gfc_default_character_kind * 8;
|
gfc_character_storage_size = gfc_default_character_kind * 8;
|
||||||
|
|
||||||
/* Choose the integer kind the same size as "void*" for our index kind. */
|
gfc_index_integer_kind = get_int_kind_from_name (PTRDIFF_TYPE);
|
||||||
gfc_index_integer_kind = POINTER_SIZE / 8;
|
|
||||||
/* Pick a kind the same size as the C "int" type. */
|
/* Pick a kind the same size as the C "int" type. */
|
||||||
gfc_c_int_kind = INT_TYPE_SIZE / 8;
|
gfc_c_int_kind = INT_TYPE_SIZE / 8;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue