From: Guillermo J. Rozas Date: Wed, 12 Aug 1992 02:41:48 +0000 (+0000) Subject: Change uses of fsub into f%sub, and fdiv into f%div, etc. X-Git-Tag: 20090517-FFI~9136 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2f18771d57bc973612be246295f2a04da8cac164;p=mit-scheme.git Change uses of fsub into f%sub, and fdiv into f%div, etc. --- diff --git a/v7/src/compiler/machines/i386/rulflo.scm b/v7/src/compiler/machines/i386/rulflo.scm index 1f45f7910..48c145b12 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.17 1992/02/28 20:23:57 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulflo.scm,v 1.18 1992/08/12 02:41:48 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 @@ -240,7 +240,7 @@ MIT in each case. |# (LAP (FLD (ST ,source)) (FMUL (ST 0) (ST 0)) (FLD1) - (FSUBP (ST 1) (ST 0)) + (F%SUBP (ST 1) (ST 0)) (FSQRT) (FLD (ST ,(1+ source))) (FPATAN) @@ -252,7 +252,7 @@ MIT in each case. |# (LAP (FLD (ST ,source)) (FMUL (ST 0) (ST 0)) (FLD1) - (FSUBP (ST 1) (ST 0)) + (F%SUBP (ST 1) (ST 0)) (FSQRT) (FLD (ST ,(1+ source))) (FXCH (ST 0) (ST 1)) @@ -374,9 +374,9 @@ MIT in each case. |# (FSTP (ST ,',(1+ target)))))))))))) (define-flonum-operation flonum-add fadd faddp fadd faddp) - (define-flonum-operation flonum-subtract fsub fsubp fsubr fsubpr) + (define-flonum-operation flonum-subtract f%sub f%subp f%subr f%subpr) (define-flonum-operation flonum-multiply fmul fmulp fmul fmulp) - (define-flonum-operation flonum-divide fdiv fdivp fdivr fdivpr)) + (define-flonum-operation flonum-divide f%div f%divp f%divr f%divpr)) (define-arithmetic-method 'flonum-atan2 flonum-methods/2-args (lambda (target source1 source2)