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 3c77766e1b170cba8f2eb92801b0b271badbee37..ea1ebb1e99d190839f52a4616f5b5b9975e6ad3e 100644 (file)
--- 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. |#
 \f
 ;;;; 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)