trans-types.c (gfc_type_for_size): Handle signed TImode.

2007-05-15  Paul Brook  <paul@codesourcery.com>

	* trans-types.c (gfc_type_for_size): Handle signed TImode.

From-SVN: r124748
This commit is contained in:
Paul Brook 2007-05-15 21:47:54 +00:00 committed by Paul Brook
parent 98265f29a6
commit 5218394a4c
2 changed files with 11 additions and 0 deletions

View file

@ -1,3 +1,7 @@
2007-05-15 Paul Brook <paul@codesourcery.com>
* trans-types.c (gfc_type_for_size): Handle signed TImode.
2007-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/30723

View file

@ -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
{