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/fortran/f95-lang.c | |
| 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/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 4 |
1 files changed, 2 insertions, 2 deletions
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); |