Commit b059caca authored by Raymond Toy's avatar Raymond Toy
Browse files

Clean up make-double-float vop. 

Remove the :load-if stuff.  Don't think it's needed.
parent 187d987e

src/compiler/x86/float-sse2.lisp

+2 −5
Changes for src/compiler/x86/float-sse2.lisp: 2 added lines, 5 removed lines.
Original line number Diff line number Diff line
@@ -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))))