projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simplify EMIT-GENERIC-VOP.
[sbcl.git]
/
src
/
compiler
/
ir2opt.lisp
diff --git
a/src/compiler/ir2opt.lisp
b/src/compiler/ir2opt.lisp
index
b664980
..
8705c4a
100644
(file)
--- a/
src/compiler/ir2opt.lisp
+++ b/
src/compiler/ir2opt.lisp
@@
-131,9
+131,9
@@
(let ((end (ir2-block-last-vop 2block))
(move (template-or-lose 'move)))
(multiple-value-bind (first last)
(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))
+ (emit-vop node 2block move
+ (reference-tn src nil)
+ (reference-tn dst t))
(insert-vop-sequence first last 2block end))))))
(load-and-coerce arg-if value-if)
(load-and-coerce arg-else value-else))
(insert-vop-sequence first last 2block end))))))
(load-and-coerce arg-if value-if)
(load-and-coerce arg-else value-else))