projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Hopefully fix the windows build to grovel time structures correctly.
[sbcl.git]
/
src
/
code
/
sc-offset.lisp
diff --git
a/src/code/sc-offset.lisp
b/src/code/sc-offset.lisp
index
001367c
..
1811dd6
100644
(file)
--- a/
src/code/sc-offset.lisp
+++ b/
src/code/sc-offset.lisp
@@
-16,13
+16,13
@@
;;;; We represent the place where some value is stored with a SC-OFFSET,
;;;; which is the SC number and offset encoded as an integer.
;;;; 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)
`(dpb ,scn sc-offset-scn-byte
(def!type sc-offset () '(unsigned-byte 27))
(defmacro make-sc-offset (scn offset)
`(dpb ,scn sc-offset-scn-byte
- (dpb ,offset sc-offset-offset-byte 0)))
+ (dpb ,offset sc-offset-offset-byte 0)))
(defmacro sc-offset-scn (sco) `(ldb sc-offset-scn-byte ,sco))
(defmacro sc-offset-offset (sco) `(ldb sc-offset-offset-byte ,sco))
(defmacro sc-offset-scn (sco) `(ldb sc-offset-scn-byte ,sco))
(defmacro sc-offset-offset (sco) `(ldb sc-offset-offset-byte ,sco))