diff options
| author | Kai Tietz <kai.tietz@onevision.com> | 2007-08-22 13:06:22 +0000 |
|---|---|---|
| committer | Kai Tietz <ktietz@gcc.gnu.org> | 2007-08-22 15:06:22 +0200 |
| commit | fcdb5d68deffd7e82c3362e210e64dec78a66d62 (patch) | |
| tree | dd8397ec4228376ea38e6b4d7a0e28cc91350161 /gcc | |
| parent | 23da9ed6e2f3d9e49fcaa7382e8a80fbf959c763 (diff) | |
| download | gcc-fcdb5d68deffd7e82c3362e210e64dec78a66d62.zip gcc-fcdb5d68deffd7e82c3362e210e64dec78a66d62.tar.gz gcc-fcdb5d68deffd7e82c3362e210e64dec78a66d62.tar.bz2 | |
[PATCH Fortran] bootstrap failure by wrong sizetype.
From-SVN: r127704
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 10 |
2 files changed, 14 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d26607c..85e3903 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2007-08-22 Kai Tietz <kai.tietz@onevision.com> + + * f95-lang.c: (gfc_init_decl_processing): Choose sizetype by using + Pmode. + 2007-08-21 Paul Brook <paul@codesourcery.com> Nathan Sidwell <nathan@codesourcery.com> Mark Mitchell <mark@codesourcery.com> diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index cc660fb..1e1b640 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -615,7 +615,15 @@ gfc_init_decl_processing (void) only use it for actual characters, not for INTEGER(1). Also, we want double_type_node to actually have double precision. */ build_common_tree_nodes (false, false); - set_sizetype (long_unsigned_type_node); + /* 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) + set_sizetype (long_unsigned_type_node); + else if (TYPE_MODE (long_long_unsigned_type_node) == Pmode) + set_sizetype (long_long_unsigned_type_node); + else + set_sizetype (long_unsigned_type_node); build_common_tree_nodes_2 (0); void_list_node = build_tree_list (NULL_TREE, void_type_node); |