From 889a65e770b6d80120a2eee28f0be5b56cc35c43 Mon Sep 17 00:00:00 2001 From: nickc Date: Wed, 4 Feb 2015 16:39:16 +0000 Subject: * 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 --- libgcc/config/rl78/fpmath-sf.S | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'libgcc/config/rl78') 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 -- cgit v1.2.1