Commit 51af7f00 authored by Nathan Froyd's avatar Nathan Froyd
Browse files

fix up some vop lifetime issues

parent 05e2d01e

sbcl-opt/x86-64-vm.lisp

+1 −1
Original line number Diff line number Diff line
@@ -65,7 +65,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)

sbcl-opt/x86-vm.lisp

+5 −1
Original line number Diff line number Diff line
@@ -59,7 +59,11 @@ 
                                `(,result-type)))

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

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

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

                                       :from (:argument ,(if setterp

							     (if big-endian-p

								 '(:load 0)

								 '(:argument 0))

							     '(:argument 2)))

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

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

                (:result-types ,result-type)