/sys/lib/acid/kernel: fix imagecache() and procenv()

1 files changed, 6 insertions, 6 deletions

diff --git a/sys/lib/acid/kernel b/sys/lib/acid/kernel
index 22f562b25..68c484b5d 100644
--- a/sys/lib/acid/kernel
+++ b/sys/lib/acid/kernel
@@ -27,7 +27,6 @@ defn path(p) {
 }
 
 // print Image cache contents
-// requires include("/sys/src/9/xxx/segment.acid")
 IHASHSIZE = 64;
 defn imagecacheline(h) {
 	while h != 0 do {
@@ -41,7 +40,7 @@ defn imagecache() {
 	local i;
 
 	i=0; loop 1,IHASHSIZE do {
-		imagecacheline(imagealloc.free[i]);
+		imagecacheline(imagealloc.hash[i]);
 		i = i+1;
 	}
 }
@@ -182,17 +181,17 @@ defn proc(p) {
 
 defn procenv(p) {
 	complex Proc p;
-	local e, v;
+	local i, e, v;
 
 	e = p.egrp;
 	complex Egrp e;
-	v = e.ent;
-	while v != 0 do {
+	i=0; loop 1,e.nent do {
+		v = e.ent[i];
+		i = i+1;
 		complex Evalue v;
 		print(*(v.name\s), "=");
 		printstringn(v.value, v.len);
 		print("\n");
-		v = v.link;
 	}
 }
 
@@ -379,5 +378,6 @@ if (map()[2]) != {} then {	// map has more than two elements -> active proc
 	}
 	needacid("proc");
 	needacid("chan");
+	needacid("segment");
 }
 }