diff options
| author | Steve Ellcey <sje@cup.hp.com> | 2008-04-21 21:22:34 +0000 |
|---|---|---|
| committer | Steve Ellcey <sje@gcc.gnu.org> | 2008-04-21 21:22:34 +0000 |
| commit | 6384205f4204499970dc4cd7e6e246a417eeea34 (patch) | |
| tree | 5aa97d297c6ce66aadfc4abae6114647fe626a75 /gcc | |
| parent | 6d26724a16948f970b5511c840d498a4ebd56b1f (diff) | |
| download | gcc-6384205f4204499970dc4cd7e6e246a417eeea34.zip gcc-6384205f4204499970dc4cd7e6e246a417eeea34.tar.gz gcc-6384205f4204499970dc4cd7e6e246a417eeea34.tar.bz2 | |
* f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.
From-SVN: r134533
Diffstat (limited to 'gcc')
| -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); |