/sys/lib/acid/kernel: fix intrcount()

1 files changed, 8 insertions, 13 deletions

diff --git a/sys/lib/acid/kernel b/sys/lib/acid/kernel
index 691b0763c..5f8c50644 100644
--- a/sys/lib/acid/kernel
+++ b/sys/lib/acid/kernel
@@ -340,22 +340,17 @@ defn up() {
 }
 
 defn intrcount() {
-	local p, pp, t, i, j;
+	local p, t, i, j;
 
 	p = intrtimes;
-	i=0;
-	loop 1,256 do {
-		pp = p[i];
-		i=i+1;
-		if pp != 0 then {
-			j=0;
-			t=0;
-			loop 1,1000 do {
-				t = t+pp[j];
-				j=j+1;
-			}
-			print(itoa(i, "%5d"), " ", itoa(t, "%11d"), "\n");
+	i=0; loop 1,256 do {
+		t=0;
+		j=0; loop 1,20 do {
+			t = t+*p++;
+			j=j+1;
 		}
+		print(itoa(i, "%5d"), " ", itoa(t, "%11d"), "\n");
+		i=i+1;
 	}
 }