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

1 files changed, 15 insertions, 0 deletions

diff --git a/sys/lib/acid/kernel b/sys/lib/acid/kernel
index d385248d3..2f604ab9e 100644
--- a/sys/lib/acid/kernel
+++ b/sys/lib/acid/kernel
@@ -28,6 +28,21 @@ defn path(p) {
 
 // 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;