From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 1 Aug 2001 02:17:31 +0000 (+0000)
Subject: Don't access a cache value as a cell.
X-Git-Tag: 20090517-FFI~2622
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=39c51399aac48c963b85a9dc59ee43fa7e2db68e;p=mit-scheme.git

Don't access a cache value as a cell.
---

diff --git a/v7/src/microcode/sdata.h b/v7/src/microcode/sdata.h
index 33e850670..d0f3957c2 100644
--- a/v7/src/microcode/sdata.h
+++ b/v7/src/microcode/sdata.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: sdata.h,v 9.35 2001/07/31 03:12:08 cph Exp $
+$Id: sdata.h,v 9.36 2001/08/01 02:17:31 cph Exp $
 
 Copyright (c) 1987-1989, 1999, 2001 Massachusetts Institute of Technology
 
@@ -438,20 +438,23 @@ USA.
 #define GET_TRAP_CACHE GET_TRAP_EXTENSION
 
 
-#define GET_CACHE_CELL(extension)					\
-  (MEMORY_LOC ((extension), TRAP_EXTENSION_CELL))
+#define GET_CACHE_VALUE(cache)						\
+  (MEMORY_REF ((cache), TRAP_EXTENSION_CELL))
 
-#define GET_CACHE_NAME(extension)					\
-  (MEMORY_REF ((extension), TRAP_EXTENSION_NAME))
+#define SET_CACHE_VALUE(cache, value)					\
+  MEMORY_SET ((cache), TRAP_EXTENSION_CELL, (value))
 
-#define GET_CACHE_CLONE(extension)					\
-  (MEMORY_REF ((extension), TRAP_EXTENSION_CLONE))
+#define GET_CACHE_NAME(cache)						\
+  (MEMORY_REF ((cache), TRAP_EXTENSION_NAME))
 
-#define SET_CACHE_CLONE(extension, clone)				\
-  MEMORY_SET ((extension), TRAP_EXTENSION_CLONE, (clone))
+#define GET_CACHE_CLONE(cache)						\
+  (MEMORY_REF ((cache), TRAP_EXTENSION_CLONE))
 
-#define GET_CACHE_REFERENCES(extension)					\
-  (MEMORY_REF ((extension), TRAP_EXTENSION_REFERENCES))
+#define SET_CACHE_CLONE(cache, clone)					\
+  MEMORY_SET ((cache), TRAP_EXTENSION_CLONE, (clone))
+
+#define GET_CACHE_REFERENCES(cache)					\
+  (MEMORY_REF ((cache), TRAP_EXTENSION_REFERENCES))
 
 
 #define GET_CACHE_REFERENCES_LOOKUP(references)				\