From f1d7728ddfc59f6df04eaf622c6f3e6b07c739bc Mon Sep 17 00:00:00 2001 From: Cyrus Harmon Date: Sat, 13 May 2006 16:25:45 +0000 Subject: [PATCH] 0.9.12.11: Simplify lui calculation. NOTE: reapplying changes lost in the sf.net CVS outage --- src/compiler/generic/genesis.lisp | 3 +-- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 33a504b..f703646 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -1747,8 +1747,7 @@ core and return a descriptor to it." (setf (bvref-32 gspace-bytes gspace-byte-offset) (logior (mask-field (byte 16 16) (bvref-32 gspace-bytes gspace-byte-offset)) - (+ (ash value -16) - (if (logbitp 15 value) 1 0))))) + (ash (1+ (ldb (byte 17 15) value)) -1)))) (:addi (setf (bvref-32 gspace-bytes gspace-byte-offset) (logior (mask-field (byte 16 16) diff --git a/version.lisp-expr b/version.lisp-expr index 3fa7821..e9b2ce8 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.9.12.10" +"0.9.12.11" -- 1.7.10.4