5 (:args
(object :scs
(descriptor-reg) :target a0
))
6 (:results
(result :scs
(descriptor-reg)))
8 (:temporary
(:sc any-reg
:offset cfunc-offset
:target result
:to
(:result
0))
10 (:temporary
(:sc descriptor-reg
:offset
4 :from
(:argument
0)) a0
)
11 (:temporary
(:sc control-stack
:offset nfp-save-offset
) nfp-save
)
14 (let ((cur-nfp (current-nfp-tn vop
)))
17 (store-stack-tn nfp-save cur-nfp
))
18 (inst li cfunc
(make-fixup "debug_print" :foreign
))
19 (inst jal
(make-fixup "call_into_c" :foreign
))
20 (inst addu nsp-tn nsp-tn -
16)
21 (inst addu nsp-tn nsp-tn
16)
23 (load-stack-tn cur-nfp nfp-save
))
24 (move result cfunc
))))