X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fsanctify.lisp;h=f41288dc94e057dbdc2fdf0d0e384c058b0dbc84;hb=88fbde7b3c6e6e66bdde408348337e97068f2568;hp=87e5d5e41c459258f4d723c3fba366760be14502;hpb=bc46c8bcdd6ac8918df8ea9e9db49808e4924fcf;p=sbcl.git

diff --git a/src/compiler/sparc/sanctify.lisp b/src/compiler/sparc/sanctify.lisp
index 87e5d5e..f41288d 100644
--- a/src/compiler/sparc/sanctify.lisp
+++ b/src/compiler/sparc/sanctify.lisp
@@ -14,7 +14,19 @@
 
 (in-package :sb!vm)
 
+;;; The comments in some of the cmucl source read that "the i and d
+;;; caches are unified, and so there is no need to flush them."
+;;;
+;;; Other bits of the cmucl source say that this is not true for
+;;; "newer machines, such as the SuperSPARC and MicroSPARC based
+;;; ones". Welcome to the 21st century... -- CSR, 2002-05-06
 (defun sanctify-for-execution (component)
-  (declare (ignore component))
+  (without-gcing
+   (alien-funcall (extern-alien "os_flush_icache"
+				(function void
+					  system-area-pointer
+					  unsigned-long))
+		  (code-instructions component)
+		  (* (code-header-ref component code-code-size-slot)
+		     n-word-bytes)))
   nil)
-