X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fc-call.lisp;h=01d6e5560e1cb66190c67c33a0ae0bf6dd99274f;hb=57fe836373e2ecb56e6d497320b01c83447a01fc;hp=eae485071e6659354ba0f346423624c9f39d3644;hpb=e119a2f79cf36039a39996f5490934b4d927529a;p=sbcl.git

diff --git a/src/compiler/mips/c-call.lisp b/src/compiler/mips/c-call.lisp
index eae4850..01d6e55 100644
--- a/src/compiler/mips/c-call.lisp
+++ b/src/compiler/mips/c-call.lisp
@@ -452,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))))