* f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.

From-SVN: r134533
This commit is contained in:
Steve Ellcey 2008-04-21 21:22:34 +00:00 committed by Steve Ellcey
parent 6d26724a16
commit 6384205f42
2 changed files with 6 additions and 2 deletions

View file

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

View file

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