From 5e353e17c6d4410487bc33aaa07fdb3121962c16 Mon Sep 17 00:00:00 2001
From: cinap_lenrek <cinap_lenrek@felloff.net>
Date: Mon, 24 Feb 2014 22:45:38 +0100
Subject: [PATCH] acid: add some debugging aid function for counting kernel
 image cache page refs

---
 sys/lib/acid/kernel | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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;
 
-- 
2.44.0