(:save-p t)
(:temporary (:sc non-descriptor-reg :offset cfunc-offset) cfunc)
(:temporary (:sc non-descriptor-reg :offset nl0-offset :from (:argument 0))
(:save-p t)
(:temporary (:sc non-descriptor-reg :offset cfunc-offset) cfunc)
(:temporary (:sc non-descriptor-reg :offset nl0-offset :from (:argument 0))
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
(:temporary (:scs (non-descriptor-reg)) temp)
(:vop-var vop)
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
(:temporary (:scs (non-descriptor-reg)) temp)
(:vop-var vop)
;; Allocate 64 bytes, the minimum stack size.
(inst addi 64 nsp-tn nsp-tn)
(inst li (make-fixup "debug_print" :foreign) cfunc)
(let ((fixup (make-fixup "call_into_c" :foreign)))
;; Allocate 64 bytes, the minimum stack size.
(inst addi 64 nsp-tn nsp-tn)
(inst li (make-fixup "debug_print" :foreign) cfunc)
(let ((fixup (make-fixup "call_into_c" :foreign)))