From: Juho S. <js...@us...> - 2005-10-15 14:02:42
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31769/tests Modified Files: callback.impure.lisp Log Message: 0.9.5.66: Fix the umpteenth sign-extension problem on x86-64 (invalid types for SIGN-EXTEND VOP). Index: callback.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/callback.impure.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- callback.impure.lisp 15 Oct 2005 12:55:53 -0000 1.8 +++ callback.impure.lisp 15 Oct 2005 14:02:35 -0000 1.9 @@ -134,7 +134,7 @@ ;;; tests for a sign extension problem in callback argument handling on x86-64 -(with-test (:name sign-extension :fails-on :x86-64) +(with-test (:name sign-extension) (let ((*add-two-ints* (sb-alien::alien-callback (function int int int) #'+))) (assert (= (alien-funcall *add-two-ints* #x-80000000 1) |