X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fmips%2Fc-call.lisp;h=fcaecfbd7d560f27b2ec03457fc781753dadc7a0;hb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;hp=32c8f1d68c50584003a84b90a608765d01657287;hpb=fe9173b98a9ddeb703a98b89f38ee7115c1b6717;p=sbcl.git

diff --git a/src/compiler/mips/c-call.lisp b/src/compiler/mips/c-call.lisp
index 32c8f1d..fcaecfb 100644
--- a/src/compiler/mips/c-call.lisp
+++ b/src/compiler/mips/c-call.lisp
@@ -131,7 +131,7 @@
                 (invoke-alien-type-method :result-tn type state))
             values)))
 
-(!def-vm-support-routine make-call-out-tns (type)
+(defun make-call-out-tns (type)
   (let ((arg-state (make-arg-state)))
     (collect ((arg-tns))
       (dolist (arg-type (alien-fun-type-arg-types type))
@@ -271,6 +271,7 @@
 
 (define-vop (alloc-number-stack-space)
   (:info amount)
+  (:result-types system-area-pointer)
   (:results (result :scs (sap-reg any-reg)))
   (:temporary (:scs (unsigned-reg) :to (:result 0)) temp)
   (:generator 0
@@ -451,7 +452,15 @@ and a pointer to the arguments."
       (finalize-segment segment)
       ;; Now that the segment is done, convert it to a static
       ;; vector we can point foreign code to.
-      (let ((buffer (sb!assem::segment-buffer segment)))
-        (make-static-vector (length buffer)
-                            :element-type '(unsigned-byte 8)
-                            :initial-contents buffer)))))
+      (let* ((buffer (sb!assem::segment-buffer segment))
+             (vector (make-static-vector (length buffer)
+                                         :element-type '(unsigned-byte 8)
+                                         :initial-contents buffer))
+             (sap (sb!sys:vector-sap vector)))
+        (sb!alien:alien-funcall
+         (sb!alien:extern-alien "os_flush_icache"
+                                (function void
+                                          system-area-pointer
+                                          unsigned-long))
+         sap (length buffer))
+        vector))))