[Git][cmucl/cmucl][master] Clean up make-double-float vop.

Raymond Toy rtoy at common-lisp.net
Mon Jan 25 04:29:12 UTC 2016

Raymond Toy pushed to branch master at cmucl / cmucl

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


--- 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/b059caca3cd4c094432493b170e5dde664eb92a4
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160125/fc48b884/attachment.html>

More information about the cmucl-cvs mailing list