1995/1030/port/taslock.c (diff list | history)

1995/1014/sys/src/9/port/taslock.c:6,20 – 1995/1030/sys/src/9/port/taslock.c:6,30 (short | long | prev | next)
1992/0222		#include "../port/error.h" void
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); dumpaproc(up); } void
1992/0222		lock(Lock *l) {
1995/1009		int i; ulong pc;
1995/1030		ulong pc, pid;
1995/1009		pc = getcallerpc(l);
1995/1030		pid = up ? up->pid : 0;
1995/1009		if(tas(&l->key) == 0){ l->pc = pc;
1995/1030		l->pid = pid;
1995/0110		return;
1995/1009		}
1995/0108
1995/1014/sys/src/9/port/taslock.c:21,31 – 1995/1030/sys/src/9/port/taslock.c:31,43
1995/0110		for(;;){
1995/1009		i = 0;
1995/0110		while(l->key)
1995/1014		if(i++ > 100000000) panic("lock loop key 0x%lux pc 0x%lux held by pc 0x%lux pl 0x%lux\n", l->key, pc, l->pc, splhi());
1995/1030		if(i++ > 100000000){ i = 0; lockloop(l, pc); }
1995/1009		if(tas(&l->key) == 0){ l->pc = pc;
1995/1030		l->pid = pid;
1995/0108		return;
1995/1009		}
1995/0108		}
1995/1014/sys/src/9/port/taslock.c:35,48 – 1995/1030/sys/src/9/port/taslock.c:47,62
1995/0110		ilock(Lock *l) { ulong x;
1995/1009		ulong pc;
1995/1030		ulong pc, pid;
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;
1993/1204		return;
1995/0110		}
1995/1014/sys/src/9/port/taslock.c:52,57 – 1995/1030/sys/src/9/port/taslock.c:66,72
1995/0110		if(tas(&l->key) == 0){ l->sr = x;
1995/1009		l->pc = pc;
1995/1030		l->pid = pid;
1992/0222		return;
1995/0110		}
1992/0222		}
1995/1014/sys/src/9/port/taslock.c:64,69 – 1995/1030/sys/src/9/port/taslock.c:79,85
1992/0222		return 0;
1995/0110
1995/1009		l->pc = getcallerpc(l);
1995/1030		l->pid = up ? up->pid : 0;
1992/0222		return 1; }