[Git][cmucl/cmucl][rtoy-amd64-p1] Remove functions that are defined in sse2-c-call.lisp.

[Raymond Toy]

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/547b415d065e7bcbc5921eca23e66c88d69e1200

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/547b415d065e7bcbc5921eca23e66c88d69e1200
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20200817/c47d1cd9/attachment-0001.htm>