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

tree-sra.c (maybe_lookup_element_for_expr): Return NULL for variable-sized records too.

Browse Source 
* tree-sra.c (maybe_lookup_element_for_expr) <COMPONENT_REF>: Return
	NULL for variable-sized records too.
	(sra_walk_expr) <COMPONENT_REF>: Stop at variable-sized records too.

From-SVN: r128553
This commit is contained in:
Eric Botcazou 2007-09-17 18:47:15 +00:00 committed by Eric Botcazou
parent 14f874333a
commit 93a85f02f1
2 changed files with 28 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ChangeLog
View File

@ -1,3 +1,9 @@
2007-09-17 Eric Botcazou <ebotcazou@adacore.com>
* tree-sra.c (maybe_lookup_element_for_expr) <COMPONENT_REF>: Return
NULL for variable-sized records too.
(sra_walk_expr) <COMPONENT_REF>: Stop at variable-sized records too.
2007-09-17 Tom Tromey <tromey@redhat.com>
* c-decl.c (pushdecl): Don't set DECL_LANG_SPECIFIC.

34
gcc/tree-sra.c
View File

@ -636,10 +636,17 @@ maybe_lookup_element_for_expr (tree expr)
break;
case COMPONENT_REF:
/* Don't look through unions. */
if (TREE_CODE (TREE_TYPE (TREE_OPERAND (expr, 0))) != RECORD_TYPE)
return NULL;
child = TREE_OPERAND (expr, 1);
{
tree type = TREE_TYPE (TREE_OPERAND (expr, 0));
/* Don't look through unions. */
if (TREE_CODE (type) != RECORD_TYPE)
return NULL;
/* Neither through variable-sized records. */
if (TYPE_SIZE (type) == NULL_TREE
|| TREE_CODE (TYPE_SIZE (type)) != INTEGER_CST)
return NULL;
child = TREE_OPERAND (expr, 1);
}
break;
case REALPART_EXPR:
@ -789,14 +796,17 @@ sra_walk_expr (tree *expr_p, block_stmt_iterator *bsi, bool is_output,
break;
case COMPONENT_REF:
/* A reference to a union member constitutes a reference to the
entire union. */
if (TREE_CODE (TREE_TYPE (TREE_OPERAND (inner, 0))) != RECORD_TYPE)
goto use_all;
/* ??? See above re non-constant stride. */
if (TREE_OPERAND (inner, 2))
goto use_all;
inner = TREE_OPERAND (inner, 0);
{
tree type = TREE_TYPE (TREE_OPERAND (inner, 0));
/* Don't look through unions. */
if (TREE_CODE (type) != RECORD_TYPE)
goto use_all;
/* Neither through variable-sized records. */
if (TYPE_SIZE (type) == NULL_TREE
|| TREE_CODE (TYPE_SIZE (type)) != INTEGER_CST)
goto use_all;
inner = TREE_OPERAND (inner, 0);
}
break;
case REALPART_EXPR: