From: Alexey D. <ade...@us...> - 2003-09-15 09:21:54
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-rotate-byte In directory sc8-pr-cvs1:/tmp/cvs-serv6208/contrib/sb-rotate-byte Modified Files: compiler.lisp Log Message: 0.8.3.62: * Split CONTINUATION into CTRAN (control part) and LVAR (value part); ... remove :DELETED and :DELETED-BLOCK-START continuation kinds; ... remove bug reported by Paul Dietz on sbcl-devel 2003-09-14. Index: compiler.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-rotate-byte/compiler.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- compiler.lisp 16 May 2003 14:42:36 -0000 1.2 +++ compiler.lisp 15 Sep 2003 09:21:38 -0000 1.3 @@ -29,10 +29,10 @@ (defoptimizer (%rotate-byte derive-type) ((count size posn num)) ;; FIXME: this looks fairly unwieldy. I'm sure it can be made ;; simpler, and also be made to deal with negative integers too. - (let ((size (sb-c::continuation-type size))) + (let ((size (sb-c::lvar-type size))) (if (numeric-type-p size) (let ((size-high (numeric-type-high size)) - (num-type (sb-c::continuation-type num))) + (num-type (sb-c::lvar-type num))) (if (and size-high num-type (<= size-high sb-vm:n-word-bits) |