From 56476a73fbcdd560022018a8ef7f7e515a439a41 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 27 Jun 1990 14:06:08 +0000 Subject: [PATCH] Add bit-wise boolean operations to the list of functions the compiler can open-code and whose results can be shared. --- v7/src/compiler/base/utils.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm index c0ff4d51b..c5b61d15f 100644 --- a/v7/src/compiler/base/utils.scm +++ b/v7/src/compiler/base/utils.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 4.14 1989/10/26 07:36:11 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 4.15 1990/06/27 14:06:08 jinx Exp $ Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology @@ -235,6 +235,8 @@ MIT in each case. |# REAL-PART IMAG-PART MAGNITUDE ANGLE EXACT->INEXACT INEXACT->EXACT FIX:1+ FIX:-1+ FIX:+ FIX:- FIX:* FIX:DIVIDE FIX:GCD FIX:QUOTIENT FIX:REMAINDER + FIX:AND FIX:ANDC FIX:NOT FIX:OR FIX:XOR + INT:+ INT:- INT:* INT:DIVIDE INT:QUOTIENT INT:REMAINDER INT:ABS INT:1+ INT:-1+ INT:NEGATE FLO:+ FLO:- FLO:* FLO:/ FLO:NEGATE FLO:ABS FLO:EXP FLO:LOG FLO:SIN FLO:COS -- 2.25.1