From 380052672549608876d390b568fdb892d59c64ff Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 22 Jul 1996 17:46:16 +0000 Subject: [PATCH] Removed useless rule for flonum-subtract. --- v8/src/compiler/machines/spectrum/rulflo.scm | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) 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) -- 2.25.1