shithub: riscv

Info  •  Files  •  Log  •  Branches

acid: add some debugging aid function for counting kernel image cache page refs

--- a/sys/lib/acid/kernel

+++ b/sys/lib/acid/kernel

@@ -28,6 +28,21 @@

 // print Image cache contents

 IHASHSIZE = 64;

+

+defn imagepagerefs(i) {

+	local p, n;

+

+	n = 0;

+	p = palloc.$tail;

+	while p != 0 && p.image != 0 do {

+		if p.image == i then {

+			n = n + 1;

+		}

+		p = p.prev;

+	}

+	return n;

+}

+

 defn imagecacheline(h) {

 	local d, p, q;