X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fsc-offset.lisp;h=0f200890e56e66af473f73ed3466f8502dc66551;hb=7dfa54273d2ebc6c2be9a39ab5cd6df639d340c9;hp=b05c9b75763c0ed9d5f07b84d9fdffc05a7b75e9;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/sc-offset.lisp b/src/code/sc-offset.lisp
index b05c9b7..0f20089 100644
--- a/src/code/sc-offset.lisp
+++ b/src/code/sc-offset.lisp
@@ -16,8 +16,11 @@
 ;;;; 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)
+;;;; FIXME: this layout is hardcoded in some .S files,
+;;;; undefined_tramp in at least ppc-assem.S and mips-assem.S uses it.
+;;;; Ideally, it shouldn't be hardcoded.
+(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)