From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Sep 1990 22:25:16 +0000 (+0000)
Subject: Fix typos in methods for `fixnum-quotient' and `fixnum-remainder'.
X-Git-Tag: 20090517-FFI~11220
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=28029d5f80eff6d044d94bb16a588472b899744b;p=mit-scheme.git

Fix typos in methods for `fixnum-quotient' and `fixnum-remainder'.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 34f5e583b..5e7694e4b 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.35 1990/07/20 15:53:40 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.36 1990/09/07 22:25:16 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -800,8 +800,7 @@ MIT in each case. |#
 		    ,@(word->fixnum target)))))
 	  (else
 	   ;; This includes negative n
-	   (LAP (DIV S L (& ,n) ,target))))))
-
+	   (LAP (DIV S L (& ,(* n fixnum-1)) ,target))))))
 (define-fixnum-method 'FIXNUM-REMAINDER fixnum-methods/2-args
   (lambda (target source)
     (let ((temp (reference-temporary-register! 'DATA)))
@@ -837,7 +836,9 @@ MIT in each case. |#
 		  (LAP (BFEXTS ,target (& 0) (& 1) ,sign)
 		       (BFEXTU ,target (& ,(- 32 nbits)) (& ,nbits) ,target)
 		       (B EQ (@PCR ,label))
-		       (BFINS ,target (& 0) (& ,shift) ,sign)))))))))
+		       (BFINS ,target (& 0) (& ,shift) ,sign)
+		       (LABEL ,label)))))))))
+
 ;;;; Flonum Operators
 
 (define (define-flonum-method operator methods method)