From 7326ec1190ec8993b2264972f93c158c53d3fbbf Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Thu, 15 Sep 2016 18:24:55 -0400
Subject: [PATCH] Trivial change for consistency

---
 src/compiler/x86-64/system.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/x86-64/system.lisp b/src/compiler/x86-64/system.lisp
index fabddd31d..7edbf3b21 100644
--- a/src/compiler/x86-64/system.lisp
+++ b/src/compiler/x86-64/system.lisp
@@ -329,7 +329,7 @@
   (:generator 2
     (inst mov sap
           (make-ea :qword :base thread-base-tn :index n
-                          :scale (ash 1 (- 3 n-fixnum-tag-bits)))))))
+                          :scale (ash 1 (- word-shift n-fixnum-tag-bits)))))))
 
 (define-vop (halt)
   (:generator 1
-- 
2.11.4.GIT