From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Jun 1990 14:06:08 +0000 (+0000)
Subject: Add bit-wise boolean operations to the list of functions the compiler
X-Git-Tag: 20090517-FFI~11350
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=56476a73fbcdd560022018a8ef7f7e515a439a41;p=mit-scheme.git

Add bit-wise boolean operations to the list of functions the compiler
can open-code and whose results can be shared.
---

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