From: Nathan Froyd Date: Sat, 14 Aug 2004 18:16:11 +0000 (+0000) Subject: 0.8.13.62: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=43e7199a61888c245b45502f0604ef57447a41b0;p=sbcl.git 0.8.13.62: Fix Debian bug #265644: was a little overzealous in adding #!+#. conditionals for 32/64-bit behavior differences. --- diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp index 5a1fa68..e3de20d 100644 --- a/src/compiler/generic/vm-tran.lisp +++ b/src/compiler/generic/vm-tran.lisp @@ -498,9 +498,12 @@ (cut-to-width integer width) ',name)) (setf (gethash ',name *modular-versions*) `(ash ,',width))))) - #!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or)) + ;; This should really be dependent on SB!VM:N-WORD-BITS, but since we + ;; don't have a true Alpha64 port yet, we'll have to stick to + ;; SB!VM:N-MACHINE-WORD-BITS for the time being. --njf, 2004-08-14 + #!+#.(cl:if (cl:= 32 sb!vm:n-machine-word-bits) '(and) '(or)) (def sb!vm::ash-left-mod32 32) - #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or)) + #!+#.(cl:if (cl:= 64 sb!vm:n-machine-word-bits) '(and) '(or)) (def sb!vm::ash-left-mod64 64)) diff --git a/version.lisp-expr b/version.lisp-expr index f2aef6f..86c8385 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".) -"0.8.13.61" +"0.8.13.62"