;;;; files for more information.
(in-package "SB!VM")
-
\f
-;;;; Type frobbing VOPs
+;;;; type frobbing VOPs
(define-vop (get-lowtag)
(:translate get-lowtag)
(inst bis res temp res)))))
\f
-;;;; Allocation
+;;;; allocation
(define-vop (dynamic-space-free-pointer)
(:results (int :scs (sap-reg)))
(move csp-tn int)))
\f
-;;;; Code object frobbing.
+;;;; code object frobbing
(define-vop (code-instructions)
(:translate code-instructions)
(inst addq ndescr offset ndescr)
(inst subq ndescr (- other-pointer-type function-pointer-type) ndescr)
(inst addq code ndescr func)))
-
\f
-;;;; Other random VOPs.
-
+;;;; other random VOPs.
(defknown sb!unix::do-pending-interrupt () (values))
(define-vop (sb!unix::do-pending-interrupt)
(define-vop (halt)
(:generator 1
(inst gentrap halt-trap)))
-
\f
-;;;; Dynamic vop count collection support
+;;;; dynamic vop count collection support
(define-vop (count-me)
(:args (count-vector :scs (descriptor-reg)))