diff options
| author | wilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-08-06 02:30:39 +0000 |
|---|---|---|
| committer | wilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-08-06 02:30:39 +0000 |
| commit | a1000ec6cd72a6e83b95dd969bd2e95504aa047f (patch) | |
| tree | 52f5f0d8f590ea0ca4c6cb014b86be4ce68e1471 | |
| parent | 7faec079cc2ffbbe5d379c7205ebbd7e068b8207 (diff) | |
| download | ppe42-gcc-a1000ec6cd72a6e83b95dd969bd2e95504aa047f.tar.gz ppe42-gcc-a1000ec6cd72a6e83b95dd969bd2e95504aa047f.zip | |
Allow PARALLEL return value for complex type represented as a CONCAT.
* expr.c (emit_group_load): Allow src to be a CONCAT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@28546 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/expr.c | 11 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 58ecbdf2fe2..4ef10b1b46b 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,7 @@ +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. diff --git a/gcc/expr.c b/gcc/expr.c index a76ee1a270d..6cbd69945e8 100644 --- 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, |
