Fix bug in multiply_fixnum introduced when re-written to work on the

700s.

diff --git a/v7/src/microcode/cmpauxmd/hppa.m4 b/v7/src/microcode/cmpauxmd/hppa.m4
index 08e0293532a24ce1968c237643f39087b1f51353..8d60de8f6579195bdebae7a4c14f655a88b6eb87 100644 (file)
--- a/v7/src/microcode/cmpauxmd/hppa.m4
+++ b/v7/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/hppa.m4,v 1.13 1991/05/07 18:47:55 jinx Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/hppa.m4,v 1.14 1991/05/08 02:17:14 jinx Exp $
 ;;;
 ;;;    Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -419,6 +419,7 @@ multiply_fixnum
         FCNVXF,SGL,DBL  5,5                            ; arg2
        FMPY,DBL        4,5,4
        FLDWS   8(0,21),5                               ; FIXNUM_LIMIT
+        FCNVXF,SGL,DBL  5,5                            ; FIXNUM_LIMIT
        COPY    0,25                                    ; signal no overflow
        FCMP,DBL,!>=    4,5                             ; result too large?
        FTEST

diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4
index 804dd73bfafdd5423e606d6ebf878477ff939313..c039e86d6bbc48b0654d958a4125a5bf77a5b3dd 100644 (file)
--- a/v8/src/microcode/cmpauxmd/hppa.m4
+++ b/v8/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpauxmd/hppa.m4,v 1.13 1991/05/07 18:47:55 jinx Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpauxmd/hppa.m4,v 1.14 1991/05/08 02:17:14 jinx Exp $
 ;;;
 ;;;    Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -419,6 +419,7 @@ multiply_fixnum
         FCNVXF,SGL,DBL  5,5                            ; arg2
        FMPY,DBL        4,5,4
        FLDWS   8(0,21),5                               ; FIXNUM_LIMIT
+        FCNVXF,SGL,DBL  5,5                            ; FIXNUM_LIMIT
        COPY    0,25                                    ; signal no overflow
        FCMP,DBL,!>=    4,5                             ; result too large?
        FTEST