From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 22 Jul 1996 17:46:16 +0000 (+0000)
Subject: Removed useless rule for flonum-subtract.
X-Git-Tag: 20090517-FFI~5461
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=380052672549608876d390b568fdb892d59c64ff;p=mit-scheme.git

Removed useless rule for flonum-subtract.
---

diff --git a/v8/src/compiler/machines/spectrum/rulflo.scm b/v8/src/compiler/machines/spectrum/rulflo.scm
index 3c77766e1..ea1ebb1e9 100644
--- a/v8/src/compiler/machines/spectrum/rulflo.scm
+++ b/v8/src/compiler/machines/spectrum/rulflo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulflo.scm,v 1.5 1996/07/22 04:45:41 adams Exp $
+$Id: rulflo.scm,v 1.6 1996/07/22 17:46:16 adams Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -527,16 +527,6 @@ MIT in each case. |#
 
 ;;;; Two arg operations
 
-(define-rule statement
-  (ASSIGN (REGISTER (? target))
-	  (FLONUM-2-ARGS FLONUM-SUBTRACT
-			 (OBJECT->FLOAT (CONSTANT 0.))
-			 (REGISTER (? source))
-			 (? overflow?)))
-  overflow?				; ignore
-  (let ((source (flonum-source! source)))
-    (LAP (FSUB (DBL) 0 ,source ,(flonum-target! target)))))
-
 (define-rule statement
   (ASSIGN (REGISTER (? target))
 	  (FLONUM-2-ARGS (? operation)