Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -1178,10 +1178,8 @@ ...@@ -1178,10 +1178,8 @@
(inst movd res bits))))))) (inst movd res bits)))))))
(define-vop (make-double-float) (define-vop (make-double-float)
(:args (hi-bits :scs (signed-reg) (:args (hi-bits :scs (signed-reg))
:load-if (not (sc-is hi-bits signed-stack))) (lo-bits :scs (unsigned-reg)))
(lo-bits :scs (unsigned-reg)
:load-if (not (sc-is lo-bits signed-stack))))
(:results (res :scs (double-reg))) (:results (res :scs (double-reg)))
(:arg-types signed-num unsigned-num) (:arg-types signed-num unsigned-num)
(:result-types double-float) (:result-types double-float)
...@@ -1195,7 +1193,6 @@ ...@@ -1195,7 +1193,6 @@
(inst movd res lo-bits) (inst movd res lo-bits)
(inst orpd res temp))) (inst orpd res temp)))
(define-vop (single-float-bits) (define-vop (single-float-bits)
(:args (float :scs (single-reg descriptor-reg) (:args (float :scs (single-reg descriptor-reg)
:load-if (not (sc-is float single-stack)))) :load-if (not (sc-is float single-stack))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment