Raymond Toy pushed to branch rtoy-amd64-p1 at cmucl / cmucl Commits: 547b415d by Raymond Toy at 2020-08-16T21:20:47-07:00 Remove functions that are defined in sse2-c-call.lisp. Make amd64/c-call.lisp match x86/c-call.lisp better. - - - - - 1 changed file: - src/compiler/amd64/c-call.lisp Changes: ===================================== src/compiler/amd64/c-call.lisp ===================================== @@ -226,6 +226,7 @@ :foreign-data)) (inst mov res (make-ea :qword :base res)))) +#|| (define-vop (call-out) (:args (function :scs (sap-reg)) (args :more t)) @@ -296,6 +297,7 @@ (let ((delta (logandc2 (+ amount 3) 3))) (inst add rsp-tn delta))))) +||# (define-vop (alloc-alien-stack-space) (:info amount) (:results (result :scs (sap-reg any-reg))) @@ -323,6 +325,7 @@ (- other-pointer-type))) (inst add (make-ea :qword :base temp-tn) delta))))) +#|| ;;; Support for callbacks to Lisp. (export '(make-callback-trampoline callback-accessor-form)) @@ -372,5 +375,4 @@ pointer to the arguments." (let* ((length (finalize-segment segment))) (prog1 (alien::segment-to-trampoline segment length) (release-segment segment))))) - - +||# View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/547b415d065e7bcbc5921eca... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/547b415d065e7bcbc5921eca... You're receiving this email because of your account on gitlab.common-lisp.net.