From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Sat, 19 May 2007 01:50:17 +0000 (+0000)
Subject: 1.0.5.52: fix #!-sb-unicode build problems on x86-64
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=dd5b34f093f3f3a1a5ec30831afd16d8619b9d04;p=sbcl.git

1.0.5.52: fix #!-sb-unicode build problems on x86-64

	* just a few uncopied things from the x86 version...
---

diff --git a/src/compiler/x86-64/array.lisp b/src/compiler/x86-64/array.lisp
index 7b32433..8d2a8c1 100644
--- a/src/compiler/x86-64/array.lisp
+++ b/src/compiler/x86-64/array.lisp
@@ -706,7 +706,7 @@
       (:policy :fast-safe)
       (:args (object :scs (descriptor-reg) :to (:eval 0))
              (index :scs (unsigned-reg) :to (:eval 0))
-             (value :scs ,scs :target rax))
+             (value :scs ,scs ,@(unless 8-bit-tns-p '(:target rax))))
       (:info offset)
       (:arg-types ,ptype positive-fixnum
                   (:constant (constant-displacement other-pointer-lowtag
@@ -730,7 +730,7 @@
       (:translate data-vector-set-with-offset)
       (:policy :fast-safe)
       (:args (object :scs (descriptor-reg) :to (:eval 0))
-             (value :scs ,scs :target rax))
+             (value :scs ,scs ,@(unless 8-bit-tns-p '(:target rax))))
       (:info index offset)
       (:arg-types ,ptype (:constant low-index)
                   (:constant (constant-displacement other-pointer-lowtag
@@ -945,6 +945,7 @@
     unsigned-reg signed-reg)
   (define-data-vector-frobs simple-array-signed-byte-32 movsxd tagged-num
     signed-reg)
+  #!+sb-unicode
   (define-data-vector-frobs simple-character-string movzxd character
     character-reg))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 3acc445..070d26a 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.5.51"
+"1.0.5.52"