[PATCH v2 0/4] target/m68k: fix FPSR quotient byte for fmod and frem

[PATCH v2 0/4] target/m68k: fix FPSR quotient byte for fmod and frem

[Mark Cave-Ayland]

This series is taken from my MacOS branch and fixes setting the FPSR quotient
byte for the fmod and frem instructions which was causing the MacOS _Pack5
SANE trancendentals implementation to return incorrect values for sin() and
cos().

The first 2 patches update make_quotient() to take separate sign and value
parameters so that it can be used for both floatx80_modrem() and a manual
division calculation, whilst the last 2 patches fix the value of the quotient
byte for both the fmod and frem instructions. This series has been validated
against the fmod and frem results using a custom test program which has been
run on a real 68040 Mac.

Many thanks to the mac68k folk for their help debugging this, in particular
SolraBizna for narrowing down the issue to the transcendentals and writing
the custom test program, and also treellama and Cat7 for running the test
program on real hardware and uploading the generated results file for
further analysis.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>

v2:
- Add Laurent's R-B tags to patches 1, 3 and 4
- Rework patch 2 as suggested by Richard


Mark Cave-Ayland (4):
  target/m68k: pass quotient directly into make_quotient()
  target/m68k: pass sign directly into make_quotient()
  target/m68k: fix FPSR quotient byte for fmod instruction
  target/m68k: fix FPSR quotient byte for frem instruction

 target/m68k/fpu_helper.c | 46 +++++++++++++++++++++++++---------------
 1 file changed, 29 insertions(+), 17 deletions(-)

-- 
2.30.2

[PATCH v2 1/4] target/m68k: pass quotient directly into make_quotient()

[Mark Cave-Ayland]

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
Reviewed-by: Laurent Vivier <laurent@vivier.eu>
---
 target/m68k/fpu_helper.c | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/target/m68k/fpu_helper.c b/target/m68k/fpu_helper.c
index fdc4937e29..0932c464fd 100644
--- a/target/m68k/fpu_helper.c
+++ b/target/m68k/fpu_helper.c
@@ -515,16 +515,10 @@ uint32_t HELPER(fmovemd_ld_postinc)(CPUM68KState *env, uint32_t addr,
     return fmovem_postinc(env, addr, mask, cpu_ld_float64_ra);
 }
 
-static void make_quotient(CPUM68KState *env, floatx80 val)
+static void make_quotient(CPUM68KState *env, int32_t quotient)
 {
-    int32_t quotient;
     int sign;
 
-    if (floatx80_is_any_nan(val)) {
-        return;
-    }
-
-    quotient = floatx80_to_int32(val, &env->fp_status);
     sign = quotient < 0;
     if (sign) {
         quotient = -quotient;
@@ -538,14 +532,22 @@ void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 {
     res->d = floatx80_mod(val1->d, val0->d, &env->fp_status);
 
-    make_quotient(env, res->d);
+    if (floatx80_is_any_nan(res->d)) {
+        return;
+    }
+
+    make_quotient(env, floatx80_to_int32(res->d, &env->fp_status));
 }
 
 void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 {
     res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
 
-    make_quotient(env, res->d);
+    if (floatx80_is_any_nan(res->d)) {
+        return;
+    }
+
+    make_quotient(env, floatx80_to_int32(res->d, &env->fp_status));
 }
 
 void HELPER(fgetexp)(CPUM68KState *env, FPReg *res, FPReg *val)
-- 
2.30.2

[PATCH v2 2/4] target/m68k: pass sign directly into make_quotient()

[Mark Cave-Ayland]

This enables the quotient parameter to be changed from int32_t to uint32_t and
also allows the extra sign logic in make_quotient() to be removed.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
---
 target/m68k/fpu_helper.c | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/target/m68k/fpu_helper.c b/target/m68k/fpu_helper.c
index 0932c464fd..76b34b8988 100644
--- a/target/m68k/fpu_helper.c
+++ b/target/m68k/fpu_helper.c
@@ -515,39 +515,42 @@ uint32_t HELPER(fmovemd_ld_postinc)(CPUM68KState *env, uint32_t addr,
     return fmovem_postinc(env, addr, mask, cpu_ld_float64_ra);
 }
 
-static void make_quotient(CPUM68KState *env, int32_t quotient)
+static void make_quotient(CPUM68KState *env, int sign, uint32_t quotient)
 {
-    int sign;
-
-    sign = quotient < 0;
-    if (sign) {
-        quotient = -quotient;
-    }
-
     quotient = (sign << 7) | (quotient & 0x7f);
     env->fpsr = (env->fpsr & ~FPSR_QT_MASK) | (quotient << FPSR_QT_SHIFT);
 }
 
 void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 {
+    uint32_t quotient;
+    int sign;
+
     res->d = floatx80_mod(val1->d, val0->d, &env->fp_status);
 
     if (floatx80_is_any_nan(res->d)) {
         return;
     }
 
-    make_quotient(env, floatx80_to_int32(res->d, &env->fp_status));
+    sign = extractFloatx80Sign(res->d);
+    quotient = floatx80_to_int32(floatx80_abs(res->d), &env->fp_status);
+    make_quotient(env, sign, quotient);
 }
 
 void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 {
+    uint32_t quotient;
+    int sign;
+
     res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
 
     if (floatx80_is_any_nan(res->d)) {
         return;
     }
 
-    make_quotient(env, floatx80_to_int32(res->d, &env->fp_status));
+    sign = extractFloatx80Sign(res->d);
+    quotient = floatx80_to_int32(floatx80_abs(res->d), &env->fp_status);
+    make_quotient(env, sign, quotient);
 }
 
 void HELPER(fgetexp)(CPUM68KState *env, FPReg *res, FPReg *val)
-- 
2.30.2

[PATCH v2 3/4] target/m68k: fix FPSR quotient byte for fmod instruction

[Mark Cave-Ayland]

The FPSR quotient byte should be set to the value of the quotient and not the
result. Switch from using floatx80_mod() to floatx80_modrem() which returns
the quotient as a uint64_t which can be used for the quotient byte.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
Reviewed-by: Laurent Vivier <laurent@vivier.eu>
---
 target/m68k/fpu_helper.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/target/m68k/fpu_helper.c b/target/m68k/fpu_helper.c
index 76b34b8988..5fd094a33c 100644
--- a/target/m68k/fpu_helper.c
+++ b/target/m68k/fpu_helper.c
@@ -523,17 +523,16 @@ static void make_quotient(CPUM68KState *env, int sign, uint32_t quotient)
 
 void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 {
-    uint32_t quotient;
-    int sign;
+    uint64_t quotient;
+    int sign = extractFloatx80Sign(val1->d) ^ extractFloatx80Sign(val0->d);
 
-    res->d = floatx80_mod(val1->d, val0->d, &env->fp_status);
+    res->d = floatx80_modrem(val1->d, val0->d, true, &quotient,
+                             &env->fp_status);
 
     if (floatx80_is_any_nan(res->d)) {
         return;
     }
 
-    sign = extractFloatx80Sign(res->d);
-    quotient = floatx80_to_int32(floatx80_abs(res->d), &env->fp_status);
     make_quotient(env, sign, quotient);
 }
 
-- 
2.30.2

[PATCH v2 4/4] target/m68k: fix FPSR quotient byte for frem instruction

[Mark Cave-Ayland]

The FPSR quotient byte should be set to the value of the quotient and not the
result. Manually calculate the quotient in the frem helper in round to nearest
even mode (note this is different from the quotient calculated internally for
fmod), and use it to set the quotient byte accordingly.

Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
Fixes: https://gitlab.com/qemu-project/qemu/-/issues/1314
Reviewed-by: Laurent Vivier <laurent@vivier.eu>
---
 target/m68k/fpu_helper.c | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/target/m68k/fpu_helper.c b/target/m68k/fpu_helper.c
index 5fd094a33c..56f7400140 100644
--- a/target/m68k/fpu_helper.c
+++ b/target/m68k/fpu_helper.c
@@ -538,17 +538,25 @@ void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 
 void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 {
+    float_status fp_status;
+    FPReg fp_quot;
     uint32_t quotient;
     int sign;
 
+    /* Calculate quotient directly using round to nearest mode */
+    set_float_rounding_mode(float_round_nearest_even, &fp_status);
+    set_floatx80_rounding_precision(
+        get_floatx80_rounding_precision(&env->fp_status), &fp_status);
+    fp_quot.d = floatx80_div(val1->d, val0->d, &fp_status);
+
     res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
 
-    if (floatx80_is_any_nan(res->d)) {
+    if (floatx80_is_any_nan(fp_quot.d)) {
         return;
     }
 
-    sign = extractFloatx80Sign(res->d);
-    quotient = floatx80_to_int32(floatx80_abs(res->d), &env->fp_status);
+    sign = extractFloatx80Sign(fp_quot.d);
+    quotient = floatx80_to_int32(floatx80_abs(fp_quot.d), &env->fp_status);
     make_quotient(env, sign, quotient);
 }
 
-- 
2.30.2

Re: [PATCH v2 2/4] target/m68k: pass sign directly into make_quotient()

[Laurent Vivier]

Le 04/01/2023 à 14:45, Mark Cave-Ayland a écrit :
> This enables the quotient parameter to be changed from int32_t to uint32_t and
> also allows the extra sign logic in make_quotient() to be removed.
> 
> Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
> ---
>   target/m68k/fpu_helper.c | 23 +++++++++++++----------
>   1 file changed, 13 insertions(+), 10 deletions(-)
> 

Reviewed-by: Laurent Vivier <laurent@vivier.eu>

Re: [PATCH v2 1/4] target/m68k: pass quotient directly into make_quotient()

[Richard Henderson]

On 1/4/23 05:45, Mark Cave-Ayland wrote:
> Signed-off-by: Mark Cave-Ayland<mark.cave-ayland@ilande.co.uk>
> Reviewed-by: Laurent Vivier<laurent@vivier.eu>
> ---
>   target/m68k/fpu_helper.c | 20 +++++++++++---------
>   1 file changed, 11 insertions(+), 9 deletions(-)

Reviewed-by: Richard Henderson <richard.henderson@linaro.org>

r~

Re: [PATCH v2 2/4] target/m68k: pass sign directly into make_quotient()

[Richard Henderson]

On 1/4/23 05:45, Mark Cave-Ayland wrote:
> This enables the quotient parameter to be changed from int32_t to uint32_t and
> also allows the extra sign logic in make_quotient() to be removed.
> 
> Signed-off-by: Mark Cave-Ayland<mark.cave-ayland@ilande.co.uk>
> ---
>   target/m68k/fpu_helper.c | 23 +++++++++++++----------
>   1 file changed, 13 insertions(+), 10 deletions(-)

Reviewed-by: Richard Henderson <richard.henderson@linaro.org>

r~

Re: [PATCH v2 3/4] target/m68k: fix FPSR quotient byte for fmod instruction

[Richard Henderson]

On 1/4/23 05:45, Mark Cave-Ayland wrote:
> The FPSR quotient byte should be set to the value of the quotient and not the
> result. Switch from using floatx80_mod() to floatx80_modrem() which returns
> the quotient as a uint64_t which can be used for the quotient byte.
> 
> Signed-off-by: Mark Cave-Ayland<mark.cave-ayland@ilande.co.uk>
> Reviewed-by: Laurent Vivier<laurent@vivier.eu>
> ---
>   target/m68k/fpu_helper.c | 9 ++++-----
>   1 file changed, 4 insertions(+), 5 deletions(-)

Reviewed-by: Richard Henderson <richard.henderson@linaro.org>

r~

Re: [PATCH v2 4/4] target/m68k: fix FPSR quotient byte for frem instruction

[Richard Henderson]

On 1/4/23 05:45, Mark Cave-Ayland wrote:
> The FPSR quotient byte should be set to the value of the quotient and not the
> result. Manually calculate the quotient in the frem helper in round to nearest
> even mode (note this is different from the quotient calculated internally for
> fmod), and use it to set the quotient byte accordingly.
> 
> Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
> Fixes: https://gitlab.com/qemu-project/qemu/-/issues/1314
> Reviewed-by: Laurent Vivier <laurent@vivier.eu>
> ---
>   target/m68k/fpu_helper.c | 14 +++++++++++---
>   1 file changed, 11 insertions(+), 3 deletions(-)
> 
> diff --git a/target/m68k/fpu_helper.c b/target/m68k/fpu_helper.c
> index 5fd094a33c..56f7400140 100644
> --- a/target/m68k/fpu_helper.c
> +++ b/target/m68k/fpu_helper.c
> @@ -538,17 +538,25 @@ void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
>   
>   void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
>   {
> +    float_status fp_status;
> +    FPReg fp_quot;
>       uint32_t quotient;
>       int sign;
>   
> +    /* Calculate quotient directly using round to nearest mode */
> +    set_float_rounding_mode(float_round_nearest_even, &fp_status);
> +    set_floatx80_rounding_precision(
> +        get_floatx80_rounding_precision(&env->fp_status), &fp_status);
> +    fp_quot.d = floatx80_div(val1->d, val0->d, &fp_status);
> +
>       res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
>   
> -    if (floatx80_is_any_nan(res->d)) {
> +    if (floatx80_is_any_nan(fp_quot.d)) {

I think you should leave this line unchanged, and move the div afterward.
I also think you should completely initialize the local fp_status = { }.

With that,
Reviewed-by: Richard Henderson <richard.henderson@linaro.org>

r~

Re: [PATCH v2 4/4] target/m68k: fix FPSR quotient byte for frem instruction

[Mark Cave-Ayland]

On 04/01/2023 18:04, Richard Henderson wrote:

> On 1/4/23 05:45, Mark Cave-Ayland wrote:
>> The FPSR quotient byte should be set to the value of the quotient and not the
>> result. Manually calculate the quotient in the frem helper in round to nearest
>> even mode (note this is different from the quotient calculated internally for
>> fmod), and use it to set the quotient byte accordingly.
>>
>> Signed-off-by: Mark Cave-Ayland <mark.cave-ayland@ilande.co.uk>
>> Fixes: https://gitlab.com/qemu-project/qemu/-/issues/1314
>> Reviewed-by: Laurent Vivier <laurent@vivier.eu>
>> ---
>>   target/m68k/fpu_helper.c | 14 +++++++++++---
>>   1 file changed, 11 insertions(+), 3 deletions(-)
>>
>> diff --git a/target/m68k/fpu_helper.c b/target/m68k/fpu_helper.c
>> index 5fd094a33c..56f7400140 100644
>> --- a/target/m68k/fpu_helper.c
>> +++ b/target/m68k/fpu_helper.c
>> @@ -538,17 +538,25 @@ void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, 
>> FPReg *val1)
>>   void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
>>   {
>> +    float_status fp_status;
>> +    FPReg fp_quot;
>>       uint32_t quotient;
>>       int sign;
>> +    /* Calculate quotient directly using round to nearest mode */
>> +    set_float_rounding_mode(float_round_nearest_even, &fp_status);
>> +    set_floatx80_rounding_precision(
>> +        get_floatx80_rounding_precision(&env->fp_status), &fp_status);
>> +    fp_quot.d = floatx80_div(val1->d, val0->d, &fp_status);
>> +
>>       res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
>> -    if (floatx80_is_any_nan(res->d)) {
>> +    if (floatx80_is_any_nan(fp_quot.d)) {
> 
> I think you should leave this line unchanged, and move the div afterward.
> I also think you should completely initialize the local fp_status = { }.
> 
> With that,
> Reviewed-by: Richard Henderson <richard.henderson@linaro.org>

I can leave the floatx80_is_any_nan() line above unchanged and also initialise the 
local fp_status, however the floatx80_div() has to happen before floatx80_rem() 
function is called. This is because the fmod and frem instructions write the result 
back to one of the input registers, which then causes the subsequent floatx80_div() 
to return an incorrect result.

Would just these 2 changes be enough to keep your R-B tag for a v3?


ATB,

Mark.

Re: [PATCH v2 4/4] target/m68k: fix FPSR quotient byte for frem instruction

[Richard Henderson]

On 1/7/23 15:00, Mark Cave-Ayland wrote:
>>>   void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
>>>   {
>>> +    float_status fp_status;
>>> +    FPReg fp_quot;
>>>       uint32_t quotient;
>>>       int sign;
>>> +    /* Calculate quotient directly using round to nearest mode */
>>> +    set_float_rounding_mode(float_round_nearest_even, &fp_status);
>>> +    set_floatx80_rounding_precision(
>>> +        get_floatx80_rounding_precision(&env->fp_status), &fp_status);
>>> +    fp_quot.d = floatx80_div(val1->d, val0->d, &fp_status);
>>> +
>>>       res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
>>> -    if (floatx80_is_any_nan(res->d)) {
>>> +    if (floatx80_is_any_nan(fp_quot.d)) {
>>
>> I think you should leave this line unchanged, and move the div afterward.
>> I also think you should completely initialize the local fp_status = { }.
>>
>> With that,
>> Reviewed-by: Richard Henderson <richard.henderson@linaro.org>
> 
> I can leave the floatx80_is_any_nan() line above unchanged and also initialise the local 
> fp_status, however the floatx80_div() has to happen before floatx80_rem() function is 
> called. This is because the fmod and frem instructions write the result back to one of the 
> input registers, which then causes the subsequent floatx80_div() to return an incorrect 
> result.
> 
> Would just these 2 changes be enough to keep your R-B tag for a v3?

Mm.  I suppose so.  Otherwise, compute into a local variable:

     floatx80 fp_rem = floatx80_rem(val1->d, val0->d, &env->fp_status);
     if (!floatx80_is_any_nan(fp_rem)) {
         float_status scratch = env->fp_status;
         floatx80 fp_quot;
         uint32_t int_quot;
         int sign;

         set_float_rounding_mode(float_round_nearest_even, &scratch);
         fp_quot = floatx80_div(val1->d, val0->d, &scratch);

         sign = ...
         int_quot = ...
         ...
     }
     res->d = fp_rem;

?


r~