From b69f95cb08d0f5c5908800181d2b96240e6eed39 Mon Sep 17 00:00:00 2001 From: pbrook Date: Tue, 15 May 2007 21:47:54 +0000 Subject: [PATCH] 2007-05-15 Paul Brook * trans-types.c (gfc_type_for_size): Handle signed TImode. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124748 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-types.c | 7 +++++++ 2 files changed, 11 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 625e304437b..83a808d15c7 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2007-05-15 Paul Brook + + * trans-types.c (gfc_type_for_size): Handle signed TImode. + 2007-05-14 Francois-Xavier Coudert PR fortran/30723 diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index d83987ea9bc..db85d96d3a2 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -1785,6 +1785,13 @@ gfc_type_for_size (unsigned bits, int unsignedp) if (type && bits == TYPE_PRECISION (type)) return type; } + + /* Handle TImode as a special case because it is used by some backends + (eg. ARM) even though it is not available for normal use. */ +#if HOST_BITS_PER_WIDE_INT >= 64 + if (bits == TYPE_PRECISION (intTI_type_node)) + return intTI_type_node; +#endif } else { -- 2.11.4.GIT