From 6384205f4204499970dc4cd7e6e246a417eeea34 Mon Sep 17 00:00:00 2001 From: Steve Ellcey Date: Mon, 21 Apr 2008 21:22:34 +0000 Subject: [PATCH] * f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode. From-SVN: r134533 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/f95-lang.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3808eb56ff5..1d9ca4dd368 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2008-04-21 Steve Ellcey + + * f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode. + 2008-04-21 Daniel Franke PR fortran/35019 diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 4d2e9783af7..58e31279156 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); -- 2.30.2