From: Juho Snellman <jsnell@iki.fi>
Date: Wed, 6 Dec 2006 08:04:21 +0000 (+0000)
Subject: 1.0.0.26:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2cb068e245e00505076e9c325424df2a1260bfb1;p=sbcl.git

1.0.0.26:
        Purify also needs to know of the new function layout.
---

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index aadf78b..5cf5e97 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -802,7 +802,7 @@ ptrans_code(lispobj thing)
         ((struct simple_fun *)native_pointer(func))->self
             += FUN_RAW_ADDR_OFFSET;
 #endif
-        pscav_later(&((struct simple_fun *)native_pointer(func))->name, 3);
+        pscav_later(&((struct simple_fun *)native_pointer(func))->name, 4);
     }
 
     return result;
@@ -1134,7 +1134,7 @@ pscav_code(struct code*code)
         ((struct simple_fun *)native_pointer(func))->self
             += FUN_RAW_ADDR_OFFSET;
 #endif
-        pscav_later(&((struct simple_fun *)native_pointer(func))->name, 3);
+        pscav_later(&((struct simple_fun *)native_pointer(func))->name, 4);
     }
 
     return CEILING(nwords,2);
diff --git a/version.lisp-expr b/version.lisp-expr
index 7262125..b48eb4d 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".)
-"1.0.0.25"
+"1.0.0.26"