acid/kernel: for stacktraces, try to use context from error stack when process is...

[plan9front.git] / sys / lib / acid / pool

diff --git a/sys/lib/acid/pool b/sys/lib/acid/pool
index 5c862ad461ceea7749f216b83eab7fb257e3246c..b00b55273630263dd31c9e1ad10840fd94298092 100644 (file)
--- a/sys/lib/acid/pool
+++ b/sys/lib/acid/pool
@@ -1,4 +1,4 @@
-include("/sys/src/libc/port/pool.acid");
+include("/sys/src/libc/port/pool." + objtype + ".acid");
 
 aggr Byte {
        'b' 0 byte;
@@ -206,18 +206,19 @@ checkblock(addr)
 defn
 checkarena(arena)
 {
-       local atail, b;
+       local atail, b, nb;
 
        atail = A2TB(arena);
        complex Bhdr arena;
        b = arena;
        while b.magic != ARENATAIL_MAGIC && b < atail do {
                checkblock(b);
-               if B2NB(b) == b then {
+               nb = B2NB(b);
+               if nb == b then {
                        print("B2NB(", b\X, ") = b\n");
                        b = atail;      // end loop
-               }
-               b = B2NB(b);
+               } else
+                       b = nb;
        }
 
        checkblock(b);
@@ -308,3 +309,4 @@ blockhdr(addr)
        return addr;
 }
 
+print("/sys/lib/acid/pool");