Fix bug in remainder. FPREM can return negative values for positive

arguments since it is defined as follows:

FPREM (x, y) = x - (n * y)

where n is the nearest integer to x/y and thus n*y can have an
absolute value greater than x.

diff --git a/v7/src/microcode/cmpauxmd/hppa.m4 b/v7/src/microcode/cmpauxmd/hppa.m4
index 10a2bc353f7d6f41e6d34cbc42559247e4f0fbce..df1463909cc175f09fbeecd27ba80c1eba1eaca5 100644 (file)
--- a/v7/src/microcode/cmpauxmd/hppa.m4
+++ b/v7/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;    $Id: hppa.m4,v 1.22 1992/09/22 21:59:29 cph Exp $
+;;;    $Id: hppa.m4,v 1.23 1992/10/31 23:35:19 jinx Exp $
 ;;;
 ;;;    Copyright (c) 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -546,9 +546,9 @@ fixnum_remainder
        XOR,<   26,1,0                                  ; skip if signs !=
        B,N     fixnum_remainder_done
        COMB,=,N        0,1,fixnum_remainder_done
-       COMCLR,>        26,0,0                          ; skip if arg1 > 0
-       SUB,TR  1,25,1                                  ; result -= arg2
-       ADD     1,25,1                                  ; result += arg2
+       XOR,<   26,25,0                                 ; skip if signs !=
+       ADD,TR  1,25,1                                  ; result += arg2
+       SUB     1,25,1                                  ; result -= arg2
 ;;
 fixnum_remainder_done
        ZDEP    1,FIXNUM_POS,FIXNUM_LENGTH,26           ; make into fixnum

diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4
index 10a2bc353f7d6f41e6d34cbc42559247e4f0fbce..df1463909cc175f09fbeecd27ba80c1eba1eaca5 100644 (file)
--- a/v8/src/microcode/cmpauxmd/hppa.m4
+++ b/v8/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;    $Id: hppa.m4,v 1.22 1992/09/22 21:59:29 cph Exp $
+;;;    $Id: hppa.m4,v 1.23 1992/10/31 23:35:19 jinx Exp $
 ;;;
 ;;;    Copyright (c) 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -546,9 +546,9 @@ fixnum_remainder
        XOR,<   26,1,0                                  ; skip if signs !=
        B,N     fixnum_remainder_done
        COMB,=,N        0,1,fixnum_remainder_done
-       COMCLR,>        26,0,0                          ; skip if arg1 > 0
-       SUB,TR  1,25,1                                  ; result -= arg2
-       ADD     1,25,1                                  ; result += arg2
+       XOR,<   26,25,0                                 ; skip if signs !=
+       ADD,TR  1,25,1                                  ; result += arg2
+       SUB     1,25,1                                  ; result -= arg2
 ;;
 fixnum_remainder_done
        ZDEP    1,FIXNUM_POS,FIXNUM_LENGTH,26           ; make into fixnum