diff options
| author | Jim Wilson <wilson@gcc.gnu.org> | 1993-07-06 13:40:41 -0700 |
|---|---|---|
| committer | Jim Wilson <wilson@gcc.gnu.org> | 1993-07-06 13:40:41 -0700 |
| commit | 61a66555d1e569532761325ddc029926c681c0b9 (patch) | |
| tree | c00b399b5439031eca9b30b7afb7b74f03ee2cef | |
| parent | 1bc147fb8a28c7f171c4095e89a5c1b28341e5eb (diff) | |
| download | gcc-61a66555d1e569532761325ddc029926c681c0b9.zip gcc-61a66555d1e569532761325ddc029926c681c0b9.tar.gz gcc-61a66555d1e569532761325ddc029926c681c0b9.tar.bz2 | |
(output_move_quad): Implement CNSTOP case.
From-SVN: r4861
| -rw-r--r-- | gcc/config/sparc/sparc.c | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c index 42c5627..b3d69c8 100644 --- a/gcc/config/sparc/sparc.c +++ b/gcc/config/sparc/sparc.c @@ -1298,15 +1298,20 @@ output_move_quad (operands) } else if (optype1 == CNSTOP) { - /* This case isn't implemented yet, because there is no internal - representation for quad-word constants, and there is no split_quad - function. */ -#if 0 - split_quad (op1, &wordpart[0][1], &wordpart[1][1], - &wordpart[2][1], &wordpart[3][1]); -#else - abort (); -#endif + REAL_VALUE_TYPE r; + long l[4]; + + /* This only works for TFmode floating point constants. */ + if (GET_CODE (op1) != CONST_DOUBLE || GET_MODE (op1) != TFmode) + abort (); + + REAL_VALUE_FROM_CONST_DOUBLE (r, op1); + REAL_VALUE_TO_TARGET_LONG_DOUBLE (r, l); + + wordpart[0][1] = GEN_INT (l[0]); + wordpart[1][1] = GEN_INT (l[1]); + wordpart[2][1] = GEN_INT (l[2]); + wordpart[3][1] = GEN_INT (l[3]); } else { |