From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Fri, 9 Jan 2004 10:38:48 +0000 (+0000)
Subject: 0.8.7.11:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fadb4cdcb7da29210301103f6f06946fc34f9953;p=sbcl.git

0.8.7.11:
	Remove madvise() (and dubious value for PAGE_SIZE) from
	gc-common.c
	... GC still not working properly :(
	... memcpy()'s behaviour when given overlapping memory ranges
		appears not to be the problem, either; replacing it with
		memmove() doesn't fix things
---

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index cdd1025..26bc938 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -134,17 +134,12 @@ static int scav_lose(lispobj *where, lispobj object); /* forward decl */
 /* FIXME: Most calls end up going to some trouble to compute an
  * 'n_words' value for this function. The system might be a little
  * simpler if this function used an 'end' parameter instead. */
-#define PAGE_SIZE 4096
 void
 scavenge(lispobj *start, long n_words)
 {
     lispobj *end = start + n_words;
     lispobj *object_ptr;
     int n_words_scavenged;
-    if((((unsigned int)start & (PAGE_SIZE-1))==0) &&
-       (n_words>(PAGE_SIZE/4))) {
-       	madvise(start, n_words*4, MADV_SEQUENTIAL|MADV_WILLNEED);
-    }
     for (object_ptr = start;
 	 object_ptr < end;
 	 object_ptr += n_words_scavenged) {
diff --git a/version.lisp-expr b/version.lisp-expr
index 3e837e8..6248ab0 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.8.7.10"
+"0.8.7.11"