X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Finsts.lisp;h=4d47ade256fc3753a80f2abaa92c7f7faa6f1daf;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=27d40f734495c3881c44d43b1215dfe0eefc958f;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index 27d40f7..4d47ade 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -48,7 +48,7 @@
   "If non-NIL, print registers using the Lisp register names.
 Otherwise, use the Sparc register names")
 
-(!def-vm-support-routine location-number (loc)
+(defun location-number (loc)
   (etypecase loc
     (null)
     (number)
@@ -1733,7 +1733,7 @@ about function addresses and register values.")
   (:delay 0)
   (:emitter (emit-format-2-immed segment 0 0 #b100 0)))
 
-(!def-vm-support-routine emit-nop (segment)
+(defun emit-nop (segment)
   (emit-format-2-immed segment 0 0 #b100 0))
 
 (define-instruction cmp (segment src1 &optional src2)
@@ -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)