From 0c5448b7dc950025477e3665a059c31c1b1ee085 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 19 Feb 1992 05:36:13 +0000 Subject: [PATCH] Eliminate spurious extra call to flonum-unary-operation/general from rules involving 1. --- v7/src/compiler/machines/i386/rulflo.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/i386/rulflo.scm b/v7/src/compiler/machines/i386/rulflo.scm index 66c288af3..81b87be73 100644 --- a/v7/src/compiler/machines/i386/rulflo.scm +++ b/v7/src/compiler/machines/i386/rulflo.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulflo.scm,v 1.14 1992/02/19 04:56:56 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulflo.scm,v 1.15 1992/02/19 05:36:13 jinx Exp $ $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -448,8 +448,7 @@ MIT in each case. |# (? overflow?))) (QUALIFIER (binary-flonum-arithmetic? operation)) overflow? ;ignore - ((flonum-unary-operation/general (flonum-1-arg%1/operator operation)) - target source)) + ((flonum-1-arg%1/operator operation) target source)) (define-rule statement (ASSIGN (REGISTER (? target)) @@ -459,8 +458,7 @@ MIT in each case. |# (? overflow?))) (QUALIFIER (binary-flonum-arithmetic? operation)) overflow? ;ignore - ((flonum-unary-operation/general (flonum-1%1-arg/operator operation)) - target source)) + ((flonum-1%1-arg/operator operation) target source)) ;;;; Flonum Predicates -- 2.25.1