- (let ((end (ir2-block-last-vop 2block))
- (move (template-or-lose 'move)))
- (multiple-value-bind (first last)
- (funcall (template-emit-function move) node 2block
- move (reference-tn src nil)
- (reference-tn dst t))
- (insert-vop-sequence first last 2block end))))))
+ (emit-and-insert-vop node 2block
+ (template-or-lose 'move)
+ (reference-tn src nil)
+ (reference-tn dst t)
+ (ir2-block-last-vop 2block)))))