X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fx86-64%2Fsupport.lisp;h=fb18d8a489fb9ab108a9b6082f14499296020a09;hb=ee5629ee974ee8ce7a1cb245a99e94f8943ffd90;hp=96f1ef38b35a5bfb17f71d8675887395b8676d77;hpb=f78e2d271f540d68d35b4f41696ce746ff129ee3;p=sbcl.git diff --git a/src/assembly/x86-64/support.lisp b/src/assembly/x86-64/support.lisp index 96f1ef3..fb18d8a 100644 --- a/src/assembly/x86-64/support.lisp +++ b/src/assembly/x86-64/support.lisp @@ -24,9 +24,7 @@ (make-ea :qword :disp (make-fixup ',name :assembly-routine))) (inst call temp-reg-tn) (note-this-location ,vop :single-value-return) - (inst jmp :nc single-value) - (move rsp-tn rbx-tn) - single-value) + (inst cmov :c rsp-tn rbx-tn)) '((:save-p :compute-only)))) (:none (values