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
Branches
Tags snapshot-2016-02
No related merge requests found
......@@ -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))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment