diff options
| -rw-r--r-- | sys/lib/acid/kernel | 15 |
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; |