diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3808eb5..1d9ca4d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 4d2e978..58e3127 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -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); |