From 9c9bc0e7d75e608b94f3c583d0221fdb83f108b7 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Tue, 12 Oct 2010 05:36:38 +0000 Subject: [PATCH] 1.0.43.48: Unbreak fast-ash-c/fixnum=>fixnum on x86 * ZEROIZE is an x86-64ism (introduced in 1.0.43.47). --- src/compiler/x86/arith.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp index be39dbd..4c97c40 100644 --- a/src/compiler/x86/arith.lisp +++ b/src/compiler/x86/arith.lisp @@ -621,7 +621,7 @@ (aver (not "Impossible: fixnum ASH should not be called with constant shift greater than word length"))) (if (sc-is result any-reg) - (zeroize result) + (inst xor result result) (inst mov result 0))) (t (inst sar result 31) (inst and result (lognot fixnum-tag-mask)))))))) diff --git a/version.lisp-expr b/version.lisp-expr index ac9f45a..06e3a82 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.43.47" +"1.0.43.48" -- 1.7.10.4