(in-package "SB!VM")
-(!def-vm-support-routine generate-call-sequence (name style vop)
+(defun generate-call-sequence (name style vop)
(ecase style
((:raw :none)
(let ((jump (make-symbol "JUMP")))
(without-scheduling ()
(move csp-tn ocfp-tn)
(inst nop))
- (inst compute-code-from-lra code-tn code-tn
+ (inst compute-code-from-lra code-tn lra-tn
lra-label ,temp)
(when cur-nfp
(load-stack-tn cur-nfp ,nfp-save))))
(:temporary (:sc any-reg) ,jump)
(:save-p :compute-only)))))))
-(!def-vm-support-routine generate-return-sequence (style)
+(defun generate-return-sequence (style)
(ecase style
(:raw
`((inst blr)))