1 76193d7c 2003-09-30 devnull #include "threadimpl.h"
3 76193d7c 2003-09-30 devnull /* this will need work */
6 76193d7c 2003-09-30 devnull PTABHASH = 257,
9 5a8e63b2 2004-02-29 devnull static int multi;
10 5a8e63b2 2004-02-29 devnull static Proc *theproc;
13 5a8e63b2 2004-02-29 devnull _threadmultiproc(void)
15 5a8e63b2 2004-02-29 devnull if(multi == 0){
16 5a8e63b2 2004-02-29 devnull multi = 1;
17 5a8e63b2 2004-02-29 devnull _threadsetproc(theproc);
21 76193d7c 2003-09-30 devnull static Lock ptablock;
22 76193d7c 2003-09-30 devnull Proc *ptab[PTABHASH];
25 76193d7c 2003-09-30 devnull _threadsetproc(Proc *p)
29 5a8e63b2 2004-02-29 devnull if(!multi){
30 5a8e63b2 2004-02-29 devnull theproc = p;
33 76193d7c 2003-09-30 devnull lock(&ptablock);
34 76193d7c 2003-09-30 devnull h = ((unsigned)p->pid)%PTABHASH;
35 76193d7c 2003-09-30 devnull p->link = ptab[h];
36 76193d7c 2003-09-30 devnull unlock(&ptablock);
37 76193d7c 2003-09-30 devnull ptab[h] = p;
40 76193d7c 2003-09-30 devnull static Proc*
41 76193d7c 2003-09-30 devnull __threadgetproc(int rm)
43 76193d7c 2003-09-30 devnull Proc **l, *p;
44 76193d7c 2003-09-30 devnull int h, pid;
46 5a8e63b2 2004-02-29 devnull if(!multi)
47 5a8e63b2 2004-02-29 devnull return theproc;
49 7966faa9 2004-09-23 devnull pid = getpid();
51 76193d7c 2003-09-30 devnull lock(&ptablock);
52 76193d7c 2003-09-30 devnull h = ((unsigned)pid)%PTABHASH;
53 76193d7c 2003-09-30 devnull for(l=&ptab[h]; p=*l; l=&p->link){
54 76193d7c 2003-09-30 devnull if(p->pid == pid){
56 76193d7c 2003-09-30 devnull *l = p->link;
57 76193d7c 2003-09-30 devnull unlock(&ptablock);
58 76193d7c 2003-09-30 devnull return p;
61 76193d7c 2003-09-30 devnull unlock(&ptablock);
62 76193d7c 2003-09-30 devnull return nil;
66 76193d7c 2003-09-30 devnull _threadgetproc(void)
68 76193d7c 2003-09-30 devnull return __threadgetproc(0);
72 76193d7c 2003-09-30 devnull _threaddelproc(void)
74 76193d7c 2003-09-30 devnull return __threadgetproc(1);