diff options
| author | nickc <nickc@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-02-04 16:39:16 +0000 |
|---|---|---|
| committer | nickc <nickc@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-02-04 16:39:16 +0000 |
| commit | 889a65e770b6d80120a2eee28f0be5b56cc35c43 (patch) | |
| tree | f38afb1a2745b90f21c2060a666dd6bc4ce1c643 /libgcc/config/rl78 | |
| parent | 1b60fb1d46dea60f9e6f8218edbb7861f8dfbb02 (diff) | |
| download | gcc-889a65e770b6d80120a2eee28f0be5b56cc35c43.tar.gz | |
* config/rl78/fpmath-sf.S (__rl78_int_pack_a_r8): Fix edge case
rounding up the fraction.
* config/rl78/rl78.c (rl78_note_reg_set): Note the use of REGs
inside a MEM.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@220410 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgcc/config/rl78')
| -rw-r--r-- | libgcc/config/rl78/fpmath-sf.S | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/libgcc/config/rl78/fpmath-sf.S b/libgcc/config/rl78/fpmath-sf.S index f232f6b5f83..6d4d4bd897f 100644 --- a/libgcc/config/rl78/fpmath-sf.S +++ b/libgcc/config/rl78/fpmath-sf.S @@ -49,9 +49,6 @@ START_FUNC __int_isinf END_FUNC __int_isinf -START_FUNC _int_unpack_sf - ;; convert 32-bit SFmode [DE] to 6-byte struct [HL] ("A") - #define A_SIGN [hl+0] /* byte */ #define A_EXP [hl+2] /* word */ #define A_FRAC_L [hl+4] /* word */ @@ -66,6 +63,9 @@ START_FUNC _int_unpack_sf #define B_FRAC_H [hl+14] #define B_FRAC_HH [hl+15] +START_FUNC _int_unpack_sf + ;; convert 32-bit SFmode [DE] to 6-byte struct [HL] ("A") + mov a, [de+3] sar a, 7 mov A_SIGN, a @@ -517,8 +517,14 @@ START_FUNC __rl78_int_pack_a_r8 movw ax, A_FRAC_L addw ax, #1 movw A_FRAC_L, ax - sknc + bnc $1f incw A_FRAC_H + + ;; If the rounding set the bit beyond the end of the fraction, increment the exponent. + mov a, A_FRAC_HH + bf a.1, $1f + incw A_EXP + 1: movw ax, A_FRAC_H shrw ax, 1 |