From f69e89d31d95c15469110ba75ae1da8ac7cf3f32 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Fri, 7 Jun 2013 22:25:57 -0400 Subject: [PATCH] Adjust internal encoding for TN location for larger SC count limit We need one more bit to encode values up to 62. --- src/code/sc-offset.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/sc-offset.lisp b/src/code/sc-offset.lisp index b05c9b7..1811dd6 100644 --- a/src/code/sc-offset.lisp +++ b/src/code/sc-offset.lisp @@ -16,8 +16,8 @@ ;;;; We represent the place where some value is stored with a SC-OFFSET, ;;;; which is the SC number and offset encoded as an integer. -(defconstant-eqx sc-offset-scn-byte (byte 5 0) #'equalp) -(defconstant-eqx sc-offset-offset-byte (byte 22 5) #'equalp) +(defconstant-eqx sc-offset-scn-byte (byte 6 0) #'equalp) +(defconstant-eqx sc-offset-offset-byte (byte 21 6) #'equalp) (def!type sc-offset () '(unsigned-byte 27)) (defmacro make-sc-offset (scn offset) -- 1.7.10.4