X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsc-offset.lisp;h=29c86365aca0ce5ba48d37bcc365e60d888e751f;hb=HEAD;hp=1811dd61780b1f1a2fc406ad9695d08400183ccb;hpb=f69e89d31d95c15469110ba75ae1da8ac7cf3f32;p=sbcl.git

diff --git a/src/code/sc-offset.lisp b/src/code/sc-offset.lisp
index 1811dd6..29c8636 100644
--- a/src/code/sc-offset.lisp
+++ b/src/code/sc-offset.lisp
@@ -16,6 +16,9 @@
 ;;;; We represent the place where some value is stored with a SC-OFFSET,
 ;;;; which is the SC number and offset encoded as an integer.
 
+;;;; FIXME: this layout is hardcoded in some .S files,
+;;;; undefined_tramp in at least mips/ppc/sparc-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))