diff --git a/src/compiler/x86/float-sse2.lisp b/src/compiler/x86/float-sse2.lisp index bfa6df901f8f69274fa01913883e121224936813..e7b1b8665072a91d0d1c370050b74ff8e1eb377f 100644 --- a/src/compiler/x86/float-sse2.lisp +++ b/src/compiler/x86/float-sse2.lisp @@ -1272,7 +1272,8 @@ (define-vop (double-float-bits) (:args (float :scs (double-reg descriptor-reg) - :load-if (not (sc-is float double-stack)))) + :load-if (not (sc-is float double-stack)) + :to (:result 1))) (:results (hi-bits :scs (signed-reg)) (lo-bits :scs (unsigned-reg))) (:arg-types double-float)