Raymond Toy pushed to branch master at cmucl / cmucl Commits: 23209c84 by Raymond Toy at 2016-01-23T14:28:45Z Add orps and orpd SSE2 instructions. - - - - - 187d987e by Raymond Toy at 2016-01-23T14:31:09Z Use SSE2 instructions for MAKE-DOUBLE-FLOAT Instead of storing the high and low words to memory and then loading it into the double-reg, use SSE2 instructions to directly create the double-float from the high and low words. - - - - - 2 changed files: - src/compiler/x86/float-sse2.lisp - src/compiler/x86/insts.lisp Changes: ===================================== src/compiler/x86/float-sse2.lisp ===================================== --- a/src/compiler/x86/float-sse2.lisp +++ b/src/compiler/x86/float-sse2.lisp @@ -1178,21 +1178,22 @@ (inst movd res bits))))))) (define-vop (make-double-float) - (:args (hi-bits :scs (signed-reg)) - (lo-bits :scs (unsigned-reg))) + (: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)))) (:results (res :scs (double-reg))) - (:temporary (:sc double-stack) temp) (:arg-types signed-num unsigned-num) (:result-types double-float) (:translate make-double-float) + (:temporary (:sc double-reg) temp) (:policy :fast-safe) (:vop-var vop) - (:generator 2 - (let ((offset (1+ (tn-offset temp)))) - (storew hi-bits ebp-tn (- offset)) - (storew lo-bits ebp-tn (- (1+ offset))) - (inst movsd res (make-ea :dword :base ebp-tn - :disp (- (* (1+ offset) word-bytes))))))) + (:generator 4 + (inst movd temp hi-bits) + (inst psllq temp 32) + (inst movd res lo-bits) + (inst orpd res temp))) (define-vop (single-float-bits) ===================================== src/compiler/x86/insts.lisp ===================================== --- a/src/compiler/x86/insts.lisp +++ b/src/compiler/x86/insts.lisp @@ -3146,6 +3146,8 @@ ;; logical (define-regular-sse-inst andpd #x66 #x54 t) (define-regular-sse-inst andps nil #x54) + (define-regular-sse-inst orpd #x66 #x56 t) + (define-regular-sse-inst orps nil #x56) (define-regular-sse-inst xorpd #x66 #x57 t) (define-regular-sse-inst xorps nil #x57) ;; comparison View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/351351dfc04be5578dc76650c...