X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fgc-common.c;h=26bc938b8a803ecd4d31d8eaa5a8496362b6ac06;hb=531b03cfcbc4071c5283309f05d9186e051e5513;hp=cdd10253a448c8d8c4f7eed52d62c0e78e7cb637;hpb=582503547d172f95aaf118311f09fe6828a6ea72;p=sbcl.git

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) {