* f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.
From-SVN: r134533
This commit is contained in:
parent
6d26724a16
commit
6384205f42
2 changed files with 6 additions and 2 deletions
|
@ -1,3 +1,7 @@
|
|||
2008-04-21 Steve Ellcey <sje@cup.hp.com>
|
||||
|
||||
* f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.
|
||||
|
||||
2008-04-21 Daniel Franke <franke.daniel@gmail.com>
|
||||
|
||||
PR fortran/35019
|
||||
|
|
|
@ -563,9 +563,9 @@ gfc_init_decl_processing (void)
|
|||
/* x86_64 minw32 has a sizetype of "unsigned long long", most other hosts
|
||||
have a sizetype of "unsigned long". Therefore choose the correct size
|
||||
in mostly target independent way. */
|
||||
if (TYPE_MODE (long_unsigned_type_node) == Pmode)
|
||||
if (TYPE_MODE (long_unsigned_type_node) == ptr_mode)
|
||||
set_sizetype (long_unsigned_type_node);
|
||||
else if (TYPE_MODE (long_long_unsigned_type_node) == Pmode)
|
||||
else if (TYPE_MODE (long_long_unsigned_type_node) == ptr_mode)
|
||||
set_sizetype (long_long_unsigned_type_node);
|
||||
else
|
||||
set_sizetype (long_unsigned_type_node);
|
||||
|
|
Loading…
Add table
Reference in a new issue