X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Finsts.lisp;h=ac681199cd9f9049562e4be595e8035ac9cddcae;hb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;hp=602916b97d863dc3d8e4e86fa82236bfe5058028;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/hppa/insts.lisp b/src/compiler/hppa/insts.lisp
index 602916b..ac68119 100644
--- a/src/compiler/hppa/insts.lisp
+++ b/src/compiler/hppa/insts.lisp
@@ -1440,8 +1440,8 @@
             (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)
@@ -1453,6 +1453,7 @@
                              (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))
@@ -1464,6 +1465,7 @@
                                 (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))