From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Feb 2010 07:21:41 +0000 (-0800)
Subject: Eliminate open-coding of QUOTIENT and REMAINDER.
X-Git-Tag: 20100708-Gtk~126^2~33
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97cdbd492ee421b8d8e75e71d37492eff25fe88f;p=mit-scheme.git

Eliminate open-coding of QUOTIENT and REMAINDER.
---

diff --git a/src/compiler/rtlgen/opncod.scm b/src/compiler/rtlgen/opncod.scm
index 97bb36766..5ec1e6578 100644
--- a/src/compiler/rtlgen/opncod.scm
+++ b/src/compiler/rtlgen/opncod.scm
@@ -1631,8 +1631,6 @@ USA.
     ((integer-add &+) 'plus-fixnum)
     ((integer-subtract &-) 'minus-fixnum)
     ((integer-multiply &*) 'multiply-fixnum)
-    ((integer-quotient quotient) 'fixnum-quotient)
-    ((integer-remainder remainder) 'fixnum-remainder)
     ((integer-add-1 1+) 'one-plus-fixnum)
     ((integer-subtract-1 -1+) 'minus-one-plus-fixnum)
     ((integer-negate) 'fixnum-negate)
@@ -1646,9 +1644,9 @@ USA.
 
 (for-each (lambda (generic-op)
 	    (generic-binary-operator generic-op))
-	  '(&+ &- &* #| &/ |# QUOTIENT REMAINDER
-	       INTEGER-ADD INTEGER-SUBTRACT INTEGER-MULTIPLY
-	       INTEGER-QUOTIENT INTEGER-REMAINDER))
+	  ;; Don't add any division operators here.  The open-coding
+	  ;; doesn't test for divide-by-zero.
+	  '(&+ &- &* INTEGER-ADD INTEGER-SUBTRACT INTEGER-MULTIPLY))
 
 (for-each (lambda (generic-op)
 	    (generic-binary-predicate generic-op))