Allow PARALLEL return value for complex type represented as a CONCAT.

* expr.c (emit_group_load): Allow src to be a CONCAT. From-SVN: r28546

Allow PARALLEL return value for complex type represented as a CONCAT.
* expr.c (emit_group_load): Allow src to be a CONCAT. From-SVN: r28546
7c4a6db0 · Jim Wilson · Jim Wilson · 9d29e7af · 7c4a6db0 · 7c4a6db0
Commit 7c4a6db0 authored Aug 06, 1999 by Jim Wilson Committed by Jim Wilson Aug 05, 1999
Hide whitespace changes
Inline Side-by-side

Showing with 15 additions and 0 deletions

gcc/ChangeLog
+4 -0

gcc/expr.c
+11 -0

No files found.
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
+Thu Aug  5 19:29:39 1999  Jim Wilson  <wilson@cygnus.com>
+
+	* expr.c (emit_group_load): Allow src to be a CONCAT.
+
 Thu Aug  5 22:27:15 1999  J"orn Rennecke <amylaar@cygnus.co.uk>

 	* config/sh/lib1funcs.asm (___movstrSI0): Change or r0,r0,r0 to nop.

--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -1967,6 +1967,17 @@ emit_group_load (dst, orig_src, ssize, align)
 					  plus_constant (XEXP (src, 0),
 							 bytepos)));
 	}
+      else if (GET_CODE (src) == CONCAT)
+	{
+	  if (bytepos == 0
+	      && bytelen == GET_MODE_SIZE (GET_MODE (XEXP (src, 0))))
+	    tmps[i] = XEXP (src, 0);
+	  else if (bytepos == GET_MODE_SIZE (GET_MODE (XEXP (src, 0)))
+		   && bytelen == GET_MODE_SIZE (GET_MODE (XEXP (src, 1))))
+	    tmps[i] = XEXP (src, 1);
+	  else
+	    abort ();
+	}
      else
 	{
 	  tmps[i] = extract_bit_field (src, bytelen*BITS_PER_UNIT,