Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21127/src/runtime
Modified Files:
purify.c
Log Message:
0.9.8.36:
->pure, not ->slots[15] in purify
... independent of whether 7 clos-hash slots get deleted, this
might prevent future maintainers making the same kind of
fool of themselves as I did with my "inconsequential
modifications" error...
Index: purify.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/purify.c,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- purify.c 4 Dec 2005 22:25:08 -0000 1.57
+++ purify.c 12 Jan 2006 09:31:22 -0000 1.58
@@ -537,8 +537,9 @@
static lispobj
ptrans_instance(lispobj thing, lispobj header, boolean /* ignored */ constant)
{
- lispobj layout = ((struct instance *)native_pointer(thing))->slots[0];
- lispobj pure = ((struct instance *)native_pointer(layout))->slots[15];
+ struct layout *layout =
+ (struct layout *) native_pointer(((struct instance *)native_pointer(thing))->slots[0]);
+ lispobj pure = layout->pure;
switch (pure) {
case T:
|