1 include("/sys/src/libc/port/pool.acid");
19 addr = addr+addr.size-sizeofBtail;
42 addr = addr+addr.size;
51 b = addr+addr.asize-sizeofBhdr;
64 addr = addr-sizeofBtail;
81 print(" magic0 ", addr.magic0, "\n");
82 print(" datadiff ", SHORT(addr.datasize), "\n");
83 print(" magic1 ", addr.magic1, "\n");
84 print(" size ", addr.size\X, "\n");
85 print(" hdr ", addr+sizeofBtail-addr.size\X, "\n");
91 print(" ", B2T(addr)\X, "\n");
98 if m == DEAD_MAGIC then
100 if m == FREE_MAGIC then
102 if m == ALLOC_MAGIC then
104 if m == UNALLOC_MAGIC then
106 if m == ARENA_MAGIC then
108 if m == ARENATAIL_MAGIC then
110 if m == ALIGN_MAGIC then
112 if m == FLOATING_MAGIC then
114 return "unknown magic";
121 print(" ", Magic(addr.magic), "\n");
122 print(" data ", B2D(addr), "\n");
123 print(" datasize ", getdsize(addr), "\n");
135 x = x-SHORT(B2T(addr).datasize);
143 if x == 0 then return 0xFE;
144 if x == 1 then return 0xF1;
145 if x == 2 then return 0xF0;
146 if x == 3 then return 0xFA;
152 local badmagic, datamagic, a, b, t, q, n, dsize, taddr, checked;
157 if addr.magic == FREE_MAGIC || addr.magic == UNALLOC_MAGIC then {
158 if taddr.magic0 != TAIL_MAGIC0 || taddr.magic1 != TAIL_MAGIC1 then
159 print(addr\X, " corrupt tail magic\n");
160 if taddr.size != addr.size then
161 print(addr\X, " corrupt tail header pointer\n");
164 if addr.magic == ARENA_MAGIC then {
166 if taddr.magic != ARENATAIL_MAGIC then
167 print(addr\X, " arena with bad tail block\n");
172 if addr.magic == ARENATAIL_MAGIC then {
173 if addr.size != 0 then
174 print(addr\X, " bad size in arena tail\n");
177 if addr.magic == ALLOC_MAGIC then {
180 if a.size > 1024*1024*1024 then
181 print(addr\X, " block ridiculously large\n");
183 if t.magic0 != TAIL_MAGIC0 || t.magic1 != TAIL_MAGIC1 then
184 print(addr\X, " bad tail magic\n");
185 if t.size != addr.size then
186 print(addr\X, " bad tail pointer\n");
188 if dsize > a.size then
189 print(addr\X, " too much data in block\n");
196 if byteat(q) != datamagic(q) then {
202 print(addr\X, " size ", dsize, " user has overwritten boundary\n");
214 while b.magic != ARENATAIL_MAGIC && b < atail do {
216 if B2NB(b) == b then {
217 print("B2NB(", b\X, ") = b\n");
218 b = atail; // end loop
225 print("found wrong tail to arena ", arena\X, "\n");
243 gendumptree(f, in, s)
247 loop 1,in do {print(" ");}
248 print(s, " size ", f.size\D, " left ", f.left\X, " right ", f.right\X, "\n");
250 gendumptree(f.left, in+1, "l");
252 gendumptree(f.right, in+1, "r");
258 gendumptree(f, 0, "*");
262 poolwhopointsat(p, addr)
270 arenawhopointsat(a, addr);
276 arenawhopointsat(arena, addr)
293 poolwhopointsat(*mainmem, addr);
301 while *addr != FREE_MAGIC
302 && *addr != ARENA_MAGIC
303 && *addr != UNALLOC_MAGIC
304 && *addr != ALLOC_MAGIC
305 && *addr != ARENATAIL_MAGIC