From: Nikodemus S. <de...@us...> - 2008-01-15 22:13:25
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv4173/tests Modified Files: character.pure.lisp Log Message: 1.0.13.42: character untagging test from Lutz Euler sbcl-devel 2007-05-01 Index: character.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/character.pure.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- character.pure.lisp 1 Jun 2006 12:01:19 -0000 1.8 +++ character.pure.lisp 15 Jan 2008 22:13:21 -0000 1.9 @@ -73,3 +73,15 @@ (assert name)))) (assert (null (name-char 'foo))) + +;;; Between 1.0.4.53 and 1.0.4.69 character untagging was broken on +;;; x86-64 if the result of the VOP was allocated on the stack, failing +;;; an aver in the compiler. +(with-test (:name :character-untagging) + (compile nil + '(lambda (c0 c1 c2 c3 c4 c5 c6 c7 + c8 c9 ca cb cc cd ce cf) + (declare (type character c0 c1 c2 c3 c4 c5 c6 c7 + c8 c9 ca cb cc cd ce cf)) + (char< c0 c1 c2 c3 c4 c5 c6 c7 + c8 c9 ca cb cc cd ce cf)))) |