From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Sat, 30 Apr 2005 19:14:13 +0000 (+0000)
Subject: 0.9.0.10:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=629bc05208573daaeca6e00541b528420a8454b5;p=sbcl.git

0.9.0.10:
	More MIPS/Thiemo patchery
	... blast away icache after purify()
		Message-ID: <20050422233214.GN10767@hattusa.textio>
---

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 6f3bb42..1c92c0a 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -1599,6 +1599,10 @@ purify(lispobj static_roots, lispobj read_only_roots)
 #endif
 #endif
 
+    /* Blast away instruction cache */
+    os_flush_icache((os_vm_address_t)READ_ONLY_SPACE_START, READ_ONLY_SPACE_SIZE);
+    os_flush_icache((os_vm_address_t)STATIC_SPACE_START, STATIC_SPACE_SIZE);
+
 #ifdef PRINTNOISE
     printf(" done]\n");
     fflush(stdout);
diff --git a/version.lisp-expr b/version.lisp-expr
index 5649506..5d59e57 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.0.9"
+"0.9.0.10"