diff options
author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 2004-06-25 18:30:09 +0000 |
---|---|---|
committer | Richard Kenner <kenner@gcc.gnu.org> | 2004-06-25 14:30:09 -0400 |
commit | 75822272d9f74ec95289fe8dd74944c383c14348 (patch) | |
tree | 7c8cf6d03b810dc8e85375f82476d9c4c4b891b9 /gcc/tree-gimple.c | |
parent | f1526aaae77c8082ef42691d03254926f5104b64 (diff) | |
download | gcc-75822272d9f74ec95289fe8dd74944c383c14348.zip gcc-75822272d9f74ec95289fe8dd74944c383c14348.tar.gz gcc-75822272d9f74ec95289fe8dd74944c383c14348.tar.bz2 |
tree-dfa.c (get_virtual_var): Merge real/imaginary parts with handled_component_p handling.
* tree-dfa.c (get_virtual_var): Merge real/imaginary parts with
handled_component_p handling.
* tree-gimple.c (get_base_address): Likewise and fix typo that
caused both recursion and looping.
From-SVN: r83669
Diffstat (limited to 'gcc/tree-gimple.c')
-rw-r--r-- | gcc/tree-gimple.c | 30 |
1 files changed, 11 insertions, 19 deletions
diff --git a/gcc/tree-gimple.c b/gcc/tree-gimple.c index 36e4393..b1f08df 100644 --- a/gcc/tree-gimple.c +++ b/gcc/tree-gimple.c @@ -602,27 +602,19 @@ rationalize_compound_expr (tree top) tree get_base_address (tree t) { - do - { - if (SSA_VAR_P (t) - || TREE_CODE (t) == STRING_CST - || TREE_CODE (t) == CONSTRUCTOR - || TREE_CODE (t) == INDIRECT_REF) - return t; - - if (TREE_CODE (t) == REALPART_EXPR || TREE_CODE (t) == IMAGPART_EXPR) - t = TREE_OPERAND (t, 0); - else if (handled_component_p (t)) - t = get_base_address (TREE_OPERAND (t, 0)); - else - return NULL_TREE; - } - while (t); - - return t; + while (TREE_CODE (t) == REALPART_EXPR || TREE_CODE (t) == IMAGPART_EXPR + || handled_component_p (t)) + t = TREE_OPERAND (t, 0); + + if (SSA_VAR_P (t) + || TREE_CODE (t) == STRING_CST + || TREE_CODE (t) == CONSTRUCTOR + || TREE_CODE (t) == INDIRECT_REF) + return t; + else + return NULL_TREE; } - void recalculate_side_effects (tree t) { |