kernel: keep cached pages continuous at the end of the page list on imagereclaim()

imagereclaim() sabotaged itself by breaking the invariant
that cached pages are kept at the end of the page list.

once we made a hole of uncached pages, we would stop
reclaiming cached pages before it as the loop breaks
once it hits a uncached page. (we iterate backwards from
the tail to the head of the pagelist until pages have been
reclaimed or we hit a uncached page).

the solution is to move pages to the head of the pagelist
after removing them from the image cache.

1 files changed, 7 insertions, 2 deletions

diff --git a/sys/src/9/port/segment.c b/sys/src/9/port/segment.c
index cd48d52b4..c73698b9e 100644
--- a/sys/src/9/port/segment.c
+++ b/sys/src/9/port/segment.c
@@ -313,7 +313,7 @@ static void
 imagereclaim(void)
 {
 	int n;
-	Page *p;
+	Page *p, *x;
 	uvlong ticks;
 
 	irstats.calls++;
@@ -329,11 +329,16 @@ imagereclaim(void)
 	 * end of the list (see putpage) so start there and work
 	 * backward.
 	 */
-	for(p = palloc.tail; p && p->image && (n<1000 || !imagealloc.free); p = p->prev) {
+	for(p = palloc.tail; p && p->image && (n<1000 || !imagealloc.free); p = x) {
+		x = p->prev;
 		if(p->ref == 0 && canlock(p)) {
 			if(p->ref == 0 && p->image && !p->image->notext) {
 				n++;
 				uncachepage(p);
+
+				/* move to head to maintain the invariant above */
+				pageunchain(p);
+				pagechainhead(p);
 			}
 			unlock(p);
 		}