o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tweaks

Browse source
This commit is contained in:
rsc 2004-09-17 22:06:42 +00:00
parent bcf527a98e
commit 80e841abcf
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
acid/thread
View file

@ -185,6 +185,7 @@ defn stacks(){
P = (Proc)_threadpq.$head; P = (Proc)_threadpq.$head;
while P != 0 do{ while P != 0 do{
proc(P); proc(P);
if mainpid != P.pid then setproc(P.pid);
// setproc(P.pid); // setproc(P.pid);
// if P.thread==0 then{ // if P.thread==0 then{
// print("=== thread scheduler stack\n"); // print("=== thread scheduler stack\n");
@ -192,6 +193,7 @@ defn stacks(){
// } // }
// print("threadstks(", P\X, ")\n"); // print("threadstks(", P\X, ")\n");
threadstks(P); threadstks(P);
if mainpid != P.pid then setproc(mainpid);
P = (Proc)P.next; P = (Proc)P.next;
print("\n"); print("\n");
} }
@ -206,6 +208,7 @@ defn stacksizes(){
P = (Proc)_threadpq.$head; P = (Proc)_threadpq.$head;
while P != 0 do{ while P != 0 do{
P = (Proc)P; P = (Proc)P;
if mainpid != P.pid then setproc(P.pid);
Tq = (Tqueue)P.threads; Tq = (Tqueue)P.threads;
T = (Thread)Tq.$head; T = (Thread)Tq.$head;
while T != 0 do{ while T != 0 do{
@ -213,12 +216,12 @@ defn stacksizes(){
if T.state==Running then { if T.state==Running then {
sp = *SP; sp = *SP;
}else{ }else{
sp = *(T.sched); sp = T.sched.sp;
} }
sp = *(T.sched); print(top-sp\D, " of ", T.stksize\D, " - 0x", top\X, " 0x", sp\X, " ", *T.stk\X, "\n");
print(top-sp\D, "\n");
T = (Thread)T.nextt; T = (Thread)T.nextt;
} }
if mainpid != P.pid then setproc(mainpid);
P = P.next; P = P.next;
} }
// setproc(mainpid); // setproc(mainpid);