OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR middle-end/42224 (32bit pointers to 32bit pointers abort on 64bit VMS and S390X)

Browse Source 
gcc/
	PR middle-end/42224
	* tree.h (int_or_pointer_precision): Remove.
	* tree.c (int_or_pointer_precision): Remove.
	(integer_pow2p): Use TYPE_PRECISION instead.
	(tree_log2): Likewise.
	(tree_floor_log2): Likewise.
	(signed_or_unsigned_type_for): Likewise.
	* fold-const.c (fit_double_type): Likewise.
	* varasm.c (initializer_constant_valid_p): Likewise.

gcc/testsuite/
	PR middle-end/42224
	* gcc.target/s390/pr42224.c: New test.

From-SVN: r154908
This commit is contained in:
Ulrich Weigand 2009-12-02 13:50:52 +00:00 committed by Ulrich Weigand
parent ca0b0bf89d
commit 368a05d55d
6 changed files with 24 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ChangeLog
View File

@ -1,3 +1,15 @@
2009-12-02 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
PR middle-end/42224
* tree.h (int_or_pointer_precision): Remove.
* tree.c (int_or_pointer_precision): Remove.
(integer_pow2p): Use TYPE_PRECISION instead.
(tree_log2): Likewise.
(tree_floor_log2): Likewise.
(signed_or_unsigned_type_for): Likewise.
* fold-const.c (fit_double_type): Likewise.
* varasm.c (initializer_constant_valid_p): Likewise.
2009-12-02 Ira Rosen <irar@il.ibm.com>
* doc/invoke.texi (-fdump-tree-slp): Document.

2
gcc/fold-const.c
View File

@ -206,7 +206,7 @@ fit_double_type (unsigned HOST_WIDE_INT l1, HOST_WIDE_INT h1,
{
unsigned HOST_WIDE_INT low0 = l1;
HOST_WIDE_INT high0 = h1;
unsigned int prec = int_or_pointer_precision (type);
unsigned int prec = TYPE_PRECISION (type);
int sign_extended_type;
/* Size types *are* sign extended. */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-12-02 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
PR middle-end/42224
* gcc.target/s390/pr42224.c: New test.
2009-12-01 Jason Merrill <jason@redhat.com>
PR c++/41611

47
gcc/tree.c
View File

@ -1685,7 +1685,7 @@ integer_pow2p (const_tree expr)
if (TREE_CODE (expr) != INTEGER_CST)
return 0;
prec = int_or_pointer_precision (TREE_TYPE (expr));
prec = TYPE_PRECISION (TREE_TYPE (expr));
high = TREE_INT_CST_HIGH (expr);
low = TREE_INT_CST_LOW (expr);
@ -1749,7 +1749,7 @@ tree_log2 (const_tree expr)
if (TREE_CODE (expr) == COMPLEX_CST)
return tree_log2 (TREE_REALPART (expr));
prec = int_or_pointer_precision (TREE_TYPE (expr));
prec = TYPE_PRECISION (TREE_TYPE (expr));
high = TREE_INT_CST_HIGH (expr);
low = TREE_INT_CST_LOW (expr);
@ -1785,7 +1785,7 @@ tree_floor_log2 (const_tree expr)
if (TREE_CODE (expr) == COMPLEX_CST)
return tree_log2 (TREE_REALPART (expr));
prec = int_or_pointer_precision (TREE_TYPE (expr));
prec = TYPE_PRECISION (TREE_TYPE (expr));
high = TREE_INT_CST_HIGH (expr);
low = TREE_INT_CST_LOW (expr);
@ -9685,12 +9685,8 @@ signed_or_unsigned_type_for (int unsignedp, tree type)
based on the named address space it points to. */
if (!TYPE_ADDR_SPACE (TREE_TYPE (t)))
t = size_type_node;
else
{
int prec = int_or_pointer_precision (t);
return lang_hooks.types.type_for_size (prec, unsignedp);
}
return lang_hooks.types.type_for_size (TYPE_PRECISION (t), unsignedp);
}
if (!INTEGRAL_TYPE_P (t) || TYPE_UNSIGNED (t) == unsignedp)
@ -10565,41 +10561,6 @@ build_target_option_node (void)
return t;
}
/* Return the size in bits of an integer or pointer type. TYPE_PRECISION
contains the bits, but in the past it was not set in some cases and there
was special purpose code that checked for POINTER_TYPE_P or OFFSET_TYPE, so
check that it is consitant when assertion checking is used. */
unsigned int
int_or_pointer_precision (const_tree type)
{
#if ENABLE_ASSERT_CHECKING
unsigned int prec;
if (POINTER_TYPE_P (type))
{
addr_space_t as = TYPE_ADDR_SPACE (TREE_TYPE (type));
prec = GET_MODE_BITSIZE (targetm.addr_space.pointer_mode (as));
gcc_assert (prec == TYPE_PRECISION (type));
}
else if (TREE_CODE (type) == OFFSET_TYPE)
{
prec = POINTER_SIZE;
gcc_assert (prec == TYPE_PRECISION (type));
}
else
{
prec = TYPE_PRECISION (type);
gcc_assert (prec != 0);
}
return prec;
#else
return TYPE_PRECISION (type);
#endif
}
/* Determine the "ultimate origin" of a block. The block may be an inlined
instance of an inlined instance of a block which is local to an inline
function, so we have to trace all of the way back through the origin chain

1
gcc/tree.h
View File

@ -4710,7 +4710,6 @@ extern const char *get_name (tree);
extern bool stdarg_p (tree);
extern bool prototype_p (tree);
extern bool auto_var_in_fn_p (const_tree, const_tree);
extern unsigned int int_or_pointer_precision (const_tree);
extern tree build_low_bits_mask (tree, unsigned);
extern tree tree_strip_nop_conversions (tree);
extern tree tree_strip_sign_nop_conversions (tree);

6
gcc/varasm.c
View File

@ -4327,8 +4327,7 @@ initializer_constant_valid_p (tree value, tree endtype)
if (TREE_CODE (endtype) == REAL_TYPE)
return NULL_TREE;
if (! INTEGRAL_TYPE_P (endtype)
|| TYPE_PRECISION (endtype)
>= int_or_pointer_precision (TREE_TYPE (value)))
|| TYPE_PRECISION (endtype) >= TYPE_PRECISION (TREE_TYPE (value)))
{
tree valid0 = initializer_constant_valid_p (TREE_OPERAND (value, 0),
endtype);
@ -4352,8 +4351,7 @@ initializer_constant_valid_p (tree value, tree endtype)
if (TREE_CODE (endtype) == REAL_TYPE)
return NULL_TREE;
if (! INTEGRAL_TYPE_P (endtype)
|| TYPE_PRECISION (endtype)
>= int_or_pointer_precision (TREE_TYPE (value)))
|| TYPE_PRECISION (endtype) >= TYPE_PRECISION (TREE_TYPE (value)))
{
tree valid0 = initializer_constant_valid_p (TREE_OPERAND (value, 0),
endtype);