ipa-type-escape fix for ada

From-SVN: r123022

gcc/ChangeLog

+2007-03-17  Olga Golovanevsky  <olga@il.ibm.com>
+  
+  	* ipa-type-escape.c (look_for_casts) : Revert code to use
+	handled_component_p due to ada test a-numaux.adb.
+
 2007-03-17  Kazu Hirata  <kazu@codesourcery.com>
 
 	* final.c (final_scan_insn): Alter the condition of a

gcc/ipa-type-escape.c

@@ -1239,12 +1239,8 @@ look_for_casts (tree lhs ATTRIBUTE_UNUSED, tree t)
       tree castfromvar = TREE_OPERAND (t, 0);
       cast = cast | check_cast (TREE_TYPE (t), castfromvar);
     }
-  else if (TREE_CODE (t) == COMPONENT_REF
-	   || TREE_CODE (t) == INDIRECT_REF
-	   || TREE_CODE (t) == BIT_FIELD_REF)
-    {
-      tree base = get_base_address (t);
-      while (t != base)
+  else 
+    while (handled_component_p (t))
       {
 	t = TREE_OPERAND (t, 0);
 	if (TREE_CODE (t) == VIEW_CONVERT_EXPR)
@@ -1258,7 +1254,6 @@ look_for_casts (tree lhs ATTRIBUTE_UNUSED, tree t)
 	else if (TREE_CODE (t) == COMPONENT_REF)
 	  get_canon_type (TREE_TYPE (TREE_OPERAND (t, 1)), false, false);
       }
-    } 
 
   if (!cast)
     cast = CT_NO_CAST;