ttweaks - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit 80e841abcf573502565d34aedd50ff3ca71cff0f
DIR parent bcf527a98e295548629620a7cb06ada951db7822
HTML Author: rsc <devnull@localhost>
Date: Fri, 17 Sep 2004 22:06:42 +0000
ttweaks
Diffstat:
M acid/thread | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
---
DIR diff --git a/acid/thread b/acid/thread
t@@ -185,6 +185,7 @@ defn stacks(){
P = (Proc)_threadpq.$head;
while P != 0 do{
proc(P);
+ if mainpid != P.pid then setproc(P.pid);
// setproc(P.pid);
// if P.thread==0 then{
// print("=== thread scheduler stack\n");
t@@ -192,6 +193,7 @@ defn stacks(){
// }
// print("threadstks(", P\X, ")\n");
threadstks(P);
+ if mainpid != P.pid then setproc(mainpid);
P = (Proc)P.next;
print("\n");
}
t@@ -206,6 +208,7 @@ defn stacksizes(){
P = (Proc)_threadpq.$head;
while P != 0 do{
P = (Proc)P;
+ if mainpid != P.pid then setproc(P.pid);
Tq = (Tqueue)P.threads;
T = (Thread)Tq.$head;
while T != 0 do{
t@@ -213,12 +216,12 @@ defn stacksizes(){
if T.state==Running then {
sp = *SP;
}else{
- sp = *(T.sched);
+ sp = T.sched.sp;
}
- sp = *(T.sched);
- print(top-sp\D, "\n");
+ print(top-sp\D, " of ", T.stksize\D, " - 0x", top\X, " 0x", sp\X, " ", *T.stk\X, "\n");
T = (Thread)T.nextt;
}
+ if mainpid != P.pid then setproc(mainpid);
P = P.next;
}
// setproc(mainpid);