shithub: riscv

Info  •  Files  •  Log  •  Branches

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

--- a/sys/lib/acid/kernel

+++ b/sys/lib/acid/kernel

@@ -27,7 +27,6 @@

 }

 // 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 @@

 	local i;

 	i=0; loop 1,IHASHSIZE do {

-		imagecacheline(imagealloc.free[i]);

+		imagecacheline(imagealloc.hash[i]);

 		i = i+1;

 	}

 }

@@ -182,17 +181,17 @@

 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 @@

 	}

 	needacid("proc");

 	needacid("chan");

+	needacid("segment");

 }

 }