1998/0604/port/taslock.c (diff list | history)

1998/0603/sys/src/9/port/taslock.c:9,22 – 1998/0604/sys/src/9/port/taslock.c:9,19 (short | long | prev | next)
Bug fix?: remove lockpri hack - run procs with locks at high priority instead. Record p instead of pid in lock. Sched earlier in lock loop on uniprocessor. Debugging: look for iunlock of lock and unlock of iunlock. rsc Fri Mar 4 12:44:25 2005
1995/1030		lockloop(Lock *l, ulong pc) { print("lock loop key 0x%lux pc 0x%lux held by pc 0x%lux proc %d\n", l->key, pc, l->pc, l->pid);
1998/0604		l->key, pc, l->pc, l->p ? l->p->pid : 0);
1995/1030		dumpaproc(up);
1996/0523		/* lower priority till we get the lock */
1997/0327		if(up && up->state == Running && islo()){
1996/0523		up->lockpri = 1;
1998/0604		if(up && up->state == Running && islo())
1996/0523		sched(); }
1995/1030		} void
1998/0603/sys/src/9/port/taslock.c:23,51 – 1998/0604/sys/src/9/port/taslock.c:20,64
1992/0222		lock(Lock *l) {
1996/0523		int i;
1996/0522		ulong pc, pid;
1998/0604		ulong pc;
1995/1009		pc = getcallerpc(l);
1996/0523		pid = up ? up->pid : 0;
1995/1009
1996/0522		if(tas(&l->key) == 0){ l->pc = pc; l->pid = pid;
1998/0604		l->p = up; l->isilock = 0; if(up){ l->pri = up->priority; up->priority = PriLock; }
1995/0110		return;
1995/1009		}
1995/0108
1996/0522		for(;;){ i = 0; while(l->key)
1996/0523		if(i++ > 100000000){ i = 0; lockloop(l, pc);
1998/0604		while(l->key){ if(conf.nmach < 2){ if(i++ > 1000){ i = 0; lockloop(l, pc); } sched(); } else { if(i++ > 100000000){ i = 0; lockloop(l, pc); }
1996/0522		}
1998/0604		}
1995/1009		if(tas(&l->key) == 0){ l->pc = pc;
1996/0522		l->pid = pid;
1996/0523		if(up) up->lockpri = 0;
1998/0604		l->p = up; l->isilock = 0; if(up){ l->pri = up->priority; up->priority = PriLock; }
1995/0108		return;
1995/1009		}
1995/0108		}
1998/0603/sys/src/9/port/taslock.c:55,70 – 1998/0604/sys/src/9/port/taslock.c:68,83
1995/0110		ilock(Lock *l) { ulong x;
1995/1030		ulong pc, pid;
1998/0604		ulong pc;
1995/0110
1995/1009		pc = getcallerpc(l);
1995/1030		pid = up ? up->pid : 0;
1995/1009
1995/0110		x = splhi(); if(tas(&l->key) == 0){ l->sr = x;
1995/1009		l->pc = pc;
1995/1030		l->pid = pid;
1998/0604		l->p = up; l->isilock = 1;
1993/1204		return;
1995/0110		}
1998/0603/sys/src/9/port/taslock.c:79,85 – 1998/0604/sys/src/9/port/taslock.c:92,99
1995/0110		if(tas(&l->key) == 0){ l->sr = x;
1995/1009		l->pc = pc;
1995/1030		l->pid = pid;
1998/0604		l->p = up; l->isilock = 1;
1992/0222		return;
1995/0110		}
1992/0222		}
1998/0603/sys/src/9/port/taslock.c:92,98 – 1998/0604/sys/src/9/port/taslock.c:106,117
1996/0511		return 0;
1996/0522		l->pc = getcallerpc(l);
1996/0523		l->pid = up ? up->pid : 0;
1998/0604		l->p = up; l->isilock = 0; if(up){ l->pri = up->priority; up->priority = PriLock; }
1992/0222		return 1; }
1998/0603/sys/src/9/port/taslock.c:99,108 – 1998/0604/sys/src/9/port/taslock.c:118,134
1992/0222		void unlock(Lock *l) {
1998/0604		int p; p = l->pri;
1998/0522		if(l->key == 0) print("unlock: not locked: pc %uX\n", getcallerpc(l));
1998/0604		if(l->isilock) print("iunlock of lock: pc %lux, held by %lux\n", getcallerpc(l), l->pc);
1996/0522		l->pc = 0;
1997/0327		l->key = 0;
1998/0604		if(up && p < up->priority) up->priority = p;
1997/0220		coherence();
1994/0322		}
1998/0603/sys/src/9/port/taslock.c:113,118 – 1998/0604/sys/src/9/port/taslock.c:139,146
1994/0322
1998/0603		if(l->key == 0) print("iunlock: not locked: pc %uX\n", getcallerpc(l));
1998/0604		if(!l->isilock) print("unlock of ilock: pc %lux, held by %lux\n", getcallerpc(l), l->pc);
1998/0603
1994/0322		sr = l->sr;
1995/1014		l->pc = 0;