(inst ldo (ldb (byte 11 0) delta) temp temp)
(inst add src temp dst))))))
-;; code = fn - header - label-offset + other-pointer-tag
-(define-instruction compute-code-from-fn (segment src label temp dst)
+;; code = lip - header - label-offset + other-pointer-tag
+(define-instruction compute-code-from-lip (segment src label temp dst)
(:declare (type tn src dst temp)
(type label label))
(:vop-var vop)
(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 src label temp dst)
(:declare (type tn src dst temp)
(type label label))
(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 src label temp dst)
(:declare (type tn src dst temp)
(type label label))