From: Juho Snellman <jsnell@iki.fi>
Date: Tue, 1 Jan 2008 14:45:33 +0000 (+0000)
Subject: 1.0.13.6: Add missing sb-xc-host definition for sign-extend
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b33ca8b35ee6032965d3573f73468f5997da70bb;p=sbcl.git

1.0.13.6: Add missing sb-xc-host definition for sign-extend

        * Patch by David Lichteblau
---

diff --git a/src/compiler/x86-64/c-call.lisp b/src/compiler/x86-64/c-call.lisp
index afbe857..04814f4 100644
--- a/src/compiler/x86-64/c-call.lisp
+++ b/src/compiler/x86-64/c-call.lisp
@@ -210,10 +210,17 @@
                          :sc (sc-or-lose 'dword-reg)
                          :offset (tn-offset val)))))
 
+#-sb-xc-host
 (defun sign-extend (x)
   (declare (type (signed-byte 32) x))
   (sign-extend x))
 
+#+sb-xc-host
+(defun sign-extend (x)
+  (if (logbitp 31 x)
+      (dpb x (byte 32 0) -1)
+      x))
+
 (define-vop (foreign-symbol-sap)
   (:translate foreign-symbol-sap)
   (:policy :fast-safe)
diff --git a/version.lisp-expr b/version.lisp-expr
index 55dade6..02fd538 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.13.5"
+"1.0.13.6"