Raymond Toy pushed to branch master at cmucl / cmucl

Commits: b059caca by Raymond Toy at 2016-01-24T20:21:39Z Clean up make-double-float vop.

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

- - - - -

1 changed file:

- src/compiler/x86/float-sse2.lisp

Changes:

===================================== src/compiler/x86/float-sse2.lisp ===================================== --- 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))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b059caca3cd4c094432493b170...