TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 14:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
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

4
gcc/fortran/f95-lang.c
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);