From: Richard Kenner <kenner@gcc.gnu.org>
Date: Mon, 17 Mar 1997 00:54:36 +0000 (-0500)
Subject: (expand_expr, case PLACEHOLDER_EXPR): Refine which object is picked.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dc500fa1152297244eb8ecfa102c54779b725a16;p=gcc.git

(expand_expr, case PLACEHOLDER_EXPR): Refine which object is picked.

From-SVN: r13718
---

diff --git a/gcc/expr.c b/gcc/expr.c
index dfe1b4fa583..5e5cb1091a6 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -5100,22 +5100,33 @@ expand_expr (exp, target, tmode, modifier)
 	 further information, see tree.def.  */
       if (placeholder_list)
 	{
-	  tree object;
+	  tree need_type = TYPE_MAIN_VARIANT (type);
+	  tree object = 0;
 	  tree old_list = placeholder_list;
+	  tree elt;
 
-	  for (object = TREE_PURPOSE (placeholder_list);
-	       (TYPE_MAIN_VARIANT (TREE_TYPE (object))
-		!= TYPE_MAIN_VARIANT (type))
-	       && (TREE_CODE_CLASS (TREE_CODE (object)) == 'r'
-		   || TREE_CODE_CLASS (TREE_CODE (object)) == '1'
-		   || TREE_CODE_CLASS (TREE_CODE (object)) == '2'
-		   || TREE_CODE_CLASS (TREE_CODE (object)) == 'e');
-	       object = TREE_OPERAND (object, 0))
-	    ;
-
-	  if (object != 0
-	      && (TYPE_MAIN_VARIANT (TREE_TYPE (object))
-		  == TYPE_MAIN_VARIANT (type)))
+	  /* See if the object is the type that we want.  Then see if
+	     the operand of any reference is the type we want.  */
+	  if ((TYPE_MAIN_VARIANT (TREE_TYPE (TREE_PURPOSE (placeholder_list)))
+	       == need_type))
+	    object = TREE_PURPOSE (placeholder_list);
+
+	  /* Find the innermost reference that is of the type we want.    */
+	  for (elt = TREE_PURPOSE (placeholder_list);
+	       elt != 0
+	       && (TREE_CODE_CLASS (TREE_CODE (elt)) == 'r'
+		   || TREE_CODE_CLASS (TREE_CODE (elt)) == '1'
+		   || TREE_CODE_CLASS (TREE_CODE (elt)) == '2'
+		   || TREE_CODE_CLASS (TREE_CODE (elt)) == 'e');
+	       elt = ((TREE_CODE (elt) == COMPOUND_EXPR
+		       || TREE_CODE (elt) == COND_EXPR)
+		      ? TREE_OPERAND (elt, 1) : TREE_OPERAND (elt, 0)))
+	    if (TREE_CODE_CLASS (TREE_CODE (elt)) == 'r'
+		&& (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (elt, 0)))
+		    == need_type))
+	      object = TREE_OPERAND (elt, 0);
+
+	  if (object != 0)
 	    {
 	      /* Expand this object skipping the list entries before
 		 it was found in case it is also a PLACEHOLDER_EXPR.