From b059caca3cd4c094432493b170e5dde664eb92a4 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 24 Jan 2016 20:21:39 -0800 Subject: [PATCH] Clean up make-double-float vop. Remove the :load-if stuff. Don't think it's needed. --- src/compiler/x86/float-sse2.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/compiler/x86/float-sse2.lisp b/src/compiler/x86/float-sse2.lisp index 741d3c5e8..67ae88ba9 100644 --- a/src/compiler/x86/float-sse2.lisp +++ b/src/compiler/x86/float-sse2.lisp @@ -1178,10 +1178,8 @@ (inst movd res bits))))))) (define-vop (make-double-float) - (:args (hi-bits :scs (signed-reg) - :load-if (not (sc-is hi-bits signed-stack))) - (lo-bits :scs (unsigned-reg) - :load-if (not (sc-is lo-bits signed-stack)))) + (:args (hi-bits :scs (signed-reg)) + (lo-bits :scs (unsigned-reg))) (:results (res :scs (double-reg))) (:arg-types signed-num unsigned-num) (:result-types double-float) @@ -1195,7 +1193,6 @@ (inst movd res lo-bits) (inst orpd res temp))) - (define-vop (single-float-bits) (:args (float :scs (single-reg descriptor-reg) :load-if (not (sc-is float single-stack)))) -- GitLab