Commit ba533f82 authored by Nathan Froyd's avatar Nathan Froyd
Browse files

fixup lifetime issues for x86 vops from evidence, not cargo-culting

parent c76ace9c

sbcl-opt/x86-vm.lisp

+4 −6
Original line number Diff line number Diff line
@@ -59,11 +59,9 @@ 
                                `(,result-type)))

                ,@(when (or setterp big-endian-p)

                    `((:temporary (:sc unsigned-reg :offset eax-offset

                                       :from (:argument ,(if setterp

							     (if big-endian-p

                                       :from ,(if setterp

						  '(:load 0)

								 '(:argument 0))

							     '(:argument 2)))

						  '(:argument 2))

                                       :to (:result 0)) eax)))

                (:results (result :scs (,result-sc)))

                (:result-types ,result-type)
@@ -128,7 +126,7 @@ 
                                `(,result-type)))

                ,@(when (and setterp big-endian-p)

                    `((:temporary (:sc unsigned-reg

                                       :from (:argument ,(if setterp 0 2))

                                       :from (:load 0)

                                       :to (:result 0)) temp)))

                (:results (result :scs (,result-sc)))

                (:result-types ,result-type)