From: Richard Stallman <rms@gnu.org>
Date: Wed, 28 Jul 1993 18:46:31 +0000 (+0000)
Subject: (expand_expr, case ADDR_EXPR): Treat CONCAT like REG.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b6f01001b162dfcb6919f37908ab7dd01edc831f;p=gcc.git

(expand_expr, case ADDR_EXPR): Treat CONCAT like REG.

From-SVN: r5030
---

diff --git a/gcc/expr.c b/gcc/expr.c
index 6a4a258c859..85f78a7dfc6 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -5369,7 +5369,11 @@ expand_expr (exp, target, tmode, modifier)
 	    op0 = force_const_mem (TYPE_MODE (TREE_TYPE (TREE_OPERAND (exp, 0))),
 				   op0);
 
-	  if (GET_CODE (op0) == REG || GET_CODE (op0) == SUBREG)
+	  /* These cases happen in Fortran.  Is that legitimate?
+	     Should Fortran work in another way?
+	     Do they happen in C?  */
+	  if (GET_CODE (op0) == REG || GET_CODE (op0) == SUBREG
+	      || GET_CODE (op0) == CONCAT)
 	    {
 	      /* If this object is in a register, it must be not
 		 be BLKmode. */