git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

typeck (type_for_mode): Only return TItype nodes when HOST_BITS_PER_WIDE_INT is >= 64 bits. 

* typeck (type_for_mode): Only return TItype nodes when
        HOST_BITS_PER_WIDE_INT is >= 64 bits.
        (type_for_size): Similarly.
        * decl.c (intTI_type_node, unsigned_intTI_type_node): Only declare
        when HOST_BITS_PER_WIDE_INT is >= 64 bits.
        (init_decl_processing): Only create TItype nodes when
        HOST_BITS_PER_WIDE_INT is >= 64 bits.

From-SVN: r22914
This commit is contained in:
Jeffrey A Law 1998-10-08 05:01:10 +00:00 committed by Jeff Law
parent b03fc8c9bd
commit e39b138b41
3 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ch/ChangeLog
View File

@ -1,3 +1,13 @@
Thu Oct 8 05:57:41 1998 Jeffrey A Law (law@cygnus.com)
* typeck (type_for_mode): Only return TItype nodes when
HOST_BITS_PER_WIDE_INT is >= 64 bits.
(type_for_size): Similarly.
* decl.c (intTI_type_node, unsigned_intTI_type_node): Only declare
when HOST_BITS_PER_WIDE_INT is >= 64 bits.
(init_decl_processing): Only create TItype nodes when
HOST_BITS_PER_WIDE_INT is >= 64 bits.
Wed Oct 7 12:19:21 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> Wed Oct 7 12:19:21 1998 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* Makefile.in (hash.h): Add -L KR-C -F ', 0, 0, 0' flags to gperf. * Makefile.in (hash.h): Add -L KR-C -F ', 0, 0, 0' flags to gperf.

8
gcc/ch/decl.c
View File

@ -353,13 +353,17 @@ tree intQI_type_node;
tree intHI_type_node; tree intHI_type_node;
tree intSI_type_node; tree intSI_type_node;
tree intDI_type_node; tree intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64
tree intTI_type_node; tree intTI_type_node;
#endif
tree unsigned_intQI_type_node; tree unsigned_intQI_type_node;
tree unsigned_intHI_type_node; tree unsigned_intHI_type_node;
tree unsigned_intSI_type_node; tree unsigned_intSI_type_node;
tree unsigned_intDI_type_node; tree unsigned_intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64
tree unsigned_intTI_type_node; tree unsigned_intTI_type_node;
#endif
/* a VOID_TYPE node. */ /* a VOID_TYPE node. */
@ -3531,12 +3535,16 @@ init_decl_processing ()
intHI_type_node = make_signed_type (GET_MODE_BITSIZE (HImode)); intHI_type_node = make_signed_type (GET_MODE_BITSIZE (HImode));
intSI_type_node = make_signed_type (GET_MODE_BITSIZE (SImode)); intSI_type_node = make_signed_type (GET_MODE_BITSIZE (SImode));
intDI_type_node = make_signed_type (GET_MODE_BITSIZE (DImode)); intDI_type_node = make_signed_type (GET_MODE_BITSIZE (DImode));
#if HOST_BITS_PER_WIDE_INT >= 64
intTI_type_node = make_signed_type (GET_MODE_BITSIZE (TImode)); intTI_type_node = make_signed_type (GET_MODE_BITSIZE (TImode));
#endif
unsigned_intQI_type_node = make_unsigned_type (GET_MODE_BITSIZE (QImode)); unsigned_intQI_type_node = make_unsigned_type (GET_MODE_BITSIZE (QImode));
unsigned_intHI_type_node = make_unsigned_type (GET_MODE_BITSIZE (HImode)); unsigned_intHI_type_node = make_unsigned_type (GET_MODE_BITSIZE (HImode));
unsigned_intSI_type_node = make_unsigned_type (GET_MODE_BITSIZE (SImode)); unsigned_intSI_type_node = make_unsigned_type (GET_MODE_BITSIZE (SImode));
unsigned_intDI_type_node = make_unsigned_type (GET_MODE_BITSIZE (DImode)); unsigned_intDI_type_node = make_unsigned_type (GET_MODE_BITSIZE (DImode));
#if HOST_BITS_PER_WIDE_INT >= 64
unsigned_intTI_type_node = make_unsigned_type (GET_MODE_BITSIZE (TImode)); unsigned_intTI_type_node = make_unsigned_type (GET_MODE_BITSIZE (TImode));
#endif
float_type_node = make_node (REAL_TYPE); float_type_node = make_node (REAL_TYPE);
TYPE_PRECISION (float_type_node) = FLOAT_TYPE_SIZE; TYPE_PRECISION (float_type_node) = FLOAT_TYPE_SIZE;

8
gcc/ch/typeck.c
View File

@ -41,13 +41,17 @@ extern tree intQI_type_node;
extern tree intHI_type_node; extern tree intHI_type_node;
extern tree intSI_type_node; extern tree intSI_type_node;
extern tree intDI_type_node; extern tree intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64
extern tree intTI_type_node; extern tree intTI_type_node;
#endif
extern tree unsigned_intQI_type_node; extern tree unsigned_intQI_type_node;
extern tree unsigned_intHI_type_node; extern tree unsigned_intHI_type_node;
extern tree unsigned_intSI_type_node; extern tree unsigned_intSI_type_node;
extern tree unsigned_intDI_type_node; extern tree unsigned_intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64
extern tree unsigned_intTI_type_node; extern tree unsigned_intTI_type_node;
#endif
/* forward declarations */ /* forward declarations */
static int chill_l_equivalent PROTO((tree, tree, struct mode_chain*)); static int chill_l_equivalent PROTO((tree, tree, struct mode_chain*));
@ -3838,8 +3842,10 @@ type_for_size (bits, unsignedp)
if (bits <= TYPE_PRECISION (intDI_type_node)) if (bits <= TYPE_PRECISION (intDI_type_node))
return unsignedp ? unsigned_intDI_type_node : intDI_type_node; return unsignedp ? unsigned_intDI_type_node : intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64
if (bits <= TYPE_PRECISION (intTI_type_node)) if (bits <= TYPE_PRECISION (intTI_type_node))
return unsignedp ? unsigned_intTI_type_node : intTI_type_node; return unsignedp ? unsigned_intTI_type_node : intTI_type_node;
#endif
return 0; return 0;
} }
@ -3880,8 +3886,10 @@ type_for_mode (mode, unsignedp)
if (mode == TYPE_MODE (intDI_type_node)) if (mode == TYPE_MODE (intDI_type_node))
return unsignedp ? unsigned_intDI_type_node : intDI_type_node; return unsignedp ? unsigned_intDI_type_node : intDI_type_node;
#if HOST_BITS_PER_WIDE_INT >= 64
if (mode == TYPE_MODE (intTI_type_node)) if (mode == TYPE_MODE (intTI_type_node))
return unsignedp ? unsigned_intTI_type_node : intTI_type_node; return unsignedp ? unsigned_intTI_type_node : intTI_type_node;
#endif
if (mode == TYPE_MODE (float_type_node)) if (mode == TYPE_MODE (float_type_node))
return float_type_node; return float_type_node;