Skip to content
Snippets Groups Projects
Commit 087b4dc3 authored by wlott's avatar wlott
Browse files

Fixed some typos in the bit-not transform.

parent 322064b8
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.22 1991/01/13 23:37:26 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.23 1991/01/14 01:43:02 wlott Exp $
;;; ;;;
;;; This file contains impelemtentation-dependent transforms. ;;; This file contains impelemtentation-dependent transforms.
;;; ;;;
...@@ -272,27 +272,27 @@ ...@@ -272,27 +272,27 @@
(%raw-bits bit-array-2 index))))))) (%raw-bits bit-array-2 index)))))))
(deftransform bit-not (deftransform bit-not
((bit-array-1 result-bit-array) ((bit-array result-bit-array)
(simple-bit-vector simple-bit-vector) * (simple-bit-vector simple-bit-vector) *
:node node :policy (>= speed space)) :node node :policy (>= speed space))
`(progn `(progn
,@(unless (policy node (zerop safety)) ,@(unless (policy node (zerop safety))
'((unless (= (length bit-array-1) (length bit-array-2) '((unless (= (length bit-array)
(length result-bit-array)) (length result-bit-array))
(error "Argument and result bit arrays not the same length:~ (error "Argument and result bit arrays not the same length:~
~% ~S~% ~S" ~% ~S~% ~S"
bit-array-1 result-bit-array)))) bit-array result-bit-array))))
(do ((index vm:vector-data-offset (1+ index)) (do ((index vm:vector-data-offset (1+ index))
(end (+ vm:vector-data-offset (end (+ vm:vector-data-offset
(truncate (the index (truncate (the index
(+ (length bit-array-1) (+ (length bit-array)
vm:word-bits -1)) (1- vm:word-bits)))
vm:word-bits)))) vm:word-bits))))
((= index end) result-bit-array) ((= index end) result-bit-array)
(declare (optimize (speed 3) (safety 0)) (declare (optimize (speed 3) (safety 0))
(type index index end)) (type index index end))
(setf (%raw-bits result-bit-array index) (setf (%raw-bits result-bit-array index)
(32bit-logical-not (%raw-bits bit-array-1 index)))))) (32bit-logical-not (%raw-bits bit-array index))))))
;;;; Primitive translator for byte-blt ;;;; Primitive translator for byte-blt
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment