From 43e7199a61888c245b45502f0604ef57447a41b0 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Sat, 14 Aug 2004 18:16:11 +0000 Subject: [PATCH] 0.8.13.62: Fix Debian bug #265644: was a little overzealous in adding #!+#. conditionals for 32/64-bit behavior differences. --- src/compiler/generic/vm-tran.lisp | 7 +++++-- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) 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" -- 1.7.10.4