1.0.15.9: further ASSOC & MEMBER transform improvements

[sbcl.git] / src / compiler / sparc / insts.lisp

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 27d40f7..02f2d0f 100644 (file)
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -1878,6 +1878,7 @@ about function addresses and register values.")
                              (component-header-length))))))
 
 ;; code = lra - other-pointer-tag - header - label-offset + other-pointer-tag
+;;      = lra - (header + label-offset)
 (define-instruction compute-code-from-lra (segment dst src label temp)
   (:declare (type tn dst src temp) (type label label))
   (:attributes variable-length)
@@ -1891,6 +1892,7 @@ about function addresses and register values.")
                                 (component-header-length)))))))
 
 ;; lra = code + other-pointer-tag + header + label-offset - other-pointer-tag
+;;     = code + header + label-offset
 (define-instruction compute-lra-from-code (segment dst src label temp)
   (:declare (type tn dst src temp) (type label label))
   (:attributes variable-length)