From: Nathan F. <nf...@us...> - 2007-01-29 21:24:23
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86 In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv17855/src/compiler/x86 Modified Files: array.lisp Log Message: 1.0.2.6: *sigh* Fix #+sb-unicode builds. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/array.lisp,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- array.lisp 29 Jan 2007 20:38:40 -0000 1.27 +++ array.lisp 29 Jan 2007 21:24:12 -0000 1.28 @@ -634,7 +634,8 @@ movzx nil unsigned-reg signed-reg) (define-data-vector-frobs simple-array-signed-byte-8 tagged-num movsx nil signed-reg) - (define-data-vector-frobs simple-base-string character mov + (define-data-vector-frobs simple-base-string character + #!+sb-unicode movzx #!-sb-unicode mov #!+sb-unicode nil #!-sb-unicode t character-reg)) ;;; {un,}signed-byte-16 |