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 76193d7c 2003-09-30 devnull static Lock ptablock;
10 76193d7c 2003-09-30 devnull Proc *ptab[PTABHASH];
13 76193d7c 2003-09-30 devnull _threadsetproc(Proc *p)
17 76193d7c 2003-09-30 devnull lock(&ptablock);
18 76193d7c 2003-09-30 devnull h = ((unsigned)p->pid)%PTABHASH;
19 76193d7c 2003-09-30 devnull p->link = ptab[h];
20 76193d7c 2003-09-30 devnull unlock(&ptablock);
21 76193d7c 2003-09-30 devnull ptab[h] = p;
24 76193d7c 2003-09-30 devnull static Proc*
25 76193d7c 2003-09-30 devnull __threadgetproc(int rm)
27 76193d7c 2003-09-30 devnull Proc **l, *p;
28 76193d7c 2003-09-30 devnull int h, pid;
29 76193d7c 2003-09-30 devnull Thread *t;
30 76193d7c 2003-09-30 devnull ulong *s;
32 76193d7c 2003-09-30 devnull s = (ulong*)((ulong)&pid & ~(STKSIZE-1));
33 76193d7c 2003-09-30 devnull if(s[0] == STKMAGIC){
34 76193d7c 2003-09-30 devnull t = (Thread*)s[1];
35 76193d7c 2003-09-30 devnull return t->proc;
38 76193d7c 2003-09-30 devnull pid = _threadgetpid();
40 76193d7c 2003-09-30 devnull lock(&ptablock);
41 76193d7c 2003-09-30 devnull h = ((unsigned)pid)%PTABHASH;
42 76193d7c 2003-09-30 devnull for(l=&ptab[h]; p=*l; l=&p->link){
43 76193d7c 2003-09-30 devnull if(p->pid == pid){
45 76193d7c 2003-09-30 devnull *l = p->link;
46 76193d7c 2003-09-30 devnull unlock(&ptablock);
47 76193d7c 2003-09-30 devnull return p;
50 76193d7c 2003-09-30 devnull unlock(&ptablock);
51 76193d7c 2003-09-30 devnull return nil;
55 76193d7c 2003-09-30 devnull _threadgetproc(void)
57 76193d7c 2003-09-30 devnull return __threadgetproc(0);
61 76193d7c 2003-09-30 devnull _threaddelproc(void)
63 76193d7c 2003-09-30 devnull return __threadgetproc(1);