Split cache flusing code from STORE_EXECUTE_CACHE_ADDRESS, since it is

not needed at GC time because the whole cache is flushed immediately
afterwards.

The flushing code is now in FLUSH_I_CACHE_REGION, used explicitly by
store_uuo_link in cmpint.c

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 0bd16aa13d7d9540521d2ed2ea7170a319d1337d..25b0ab7f8bec4f12a1adf6968c6d6cc668c9763d 100644 (file)
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.28 1990/06/20 17:38:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.29 1990/08/17 23:40:55 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -2170,6 +2170,14 @@ extract_uuo_link (block, offset)
   return (ENTRY_TO_OBJECT ((SCHEME_OBJECT *) compiled_entry_address));
 }
 
+#ifndef FLUSH_I_CACHE_REGION
+
+#define FLUSH_I_CACHE_REGION(addr, nwords)                             \
+do {                                                                   \
+} while (0)
+
+#endif
+
 static void
 store_uuo_link (entry, cache_address)
      SCHEME_OBJECT entry, *cache_address;
@@ -2179,6 +2187,7 @@ store_uuo_link (entry, cache_address)
   entry_address = (OBJECT_ADDRESS (entry));
   STORE_EXECUTE_CACHE_CODE (cache_address);
   STORE_EXECUTE_CACHE_ADDRESS (cache_address, entry_address);
+  FLUSH_I_CACHE_REGION (cache_address, EXECUTE_CACHE_ENTRY_SIZE);
   return;
 }
 \f

diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index e0d143bea96769733a6d9724385ae97561e6983c..131f5812627fdce4b0e6fb87a031dfbee98c15a2 100644 (file)
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.28 1990/06/20 17:38:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.29 1990/08/17 23:40:55 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -2170,6 +2170,14 @@ extract_uuo_link (block, offset)
   return (ENTRY_TO_OBJECT ((SCHEME_OBJECT *) compiled_entry_address));
 }
 
+#ifndef FLUSH_I_CACHE_REGION
+
+#define FLUSH_I_CACHE_REGION(addr, nwords)                             \
+do {                                                                   \
+} while (0)
+
+#endif
+
 static void
 store_uuo_link (entry, cache_address)
      SCHEME_OBJECT entry, *cache_address;
@@ -2179,6 +2187,7 @@ store_uuo_link (entry, cache_address)
   entry_address = (OBJECT_ADDRESS (entry));
   STORE_EXECUTE_CACHE_CODE (cache_address);
   STORE_EXECUTE_CACHE_ADDRESS (cache_address, entry_address);
+  FLUSH_I_CACHE_REGION (cache_address, EXECUTE_CACHE_ENTRY_SIZE);
   return;
 }
 \f