From: Nikodemus S. <de...@us...> - 2007-11-30 17:46:16
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv9294/tests Modified Files: compiler.pure.lisp Log Message: 1.0.12.9: don't limit TOUCH-OBJECT to descriptor-regs * Allows objects known to be FIXNUM to be pinned. Question: why is a FIXNUM not acceptable to a DESCRIPTOR-REG? Index: compiler.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v retrieving revision 1.169 retrieving revision 1.170 diff -u -d -r1.169 -r1.170 --- compiler.pure.lisp 12 Sep 2007 15:37:06 -0000 1.169 +++ compiler.pure.lisp 30 Nov 2007 17:46:10 -0000 1.170 @@ -2316,3 +2316,10 @@ t) t (error "~a" y))))) + +;;; Compiling W-P-O when the pinned objects are known to be fixnums +;;; or characters. +(compile nil '(lambda (x y) + (declare (fixnum y) (character x)) + (sb-sys:with-pinned-objects (x y) + (some-random-function)))) |