void *Slave(void *arg)
{
long long duration;
sleep(1);
duration = PAPI_get_real_usec();
lockloop(10000,&tmpcount);
duration = PAPI_get_real_usec() - duration;
/* First one here set's the number */
PAPI_lock(PAPI_USR2_LOCK);
if (num_iters == 0) {
printf("10000 iterations took %lld us.\n",duration);
num_iters = 10*(TIME_LIMIT_IN_US/duration);
printf("Running %d iterations\n",num_iters);
}
PAPI_unlock(PAPI_USR2_LOCK);
lockloop(num_iters,&count);
pthread_exit(NULL);
}
int
lock(Lock *l)
{
Proc *up = externup();
int i;
uintptr_t pc;
uint64_t t0;
pc = getcallerpc();
lockstats.locks++;
if(up)
ainc(&up->nlocks); /* prevent being scheded */
if(TAS(&l->key) == 0){
if(up)
up->lastlock = l;
l->_pc = pc;
l->p = up;
l->isilock = 0;
if(LOCKCYCLES)
cycles(&l->lockcycles);
return 0;
}
if(up)
adec(&up->nlocks);
cycles(&t0);
lockstats.glare++;
for(;;){
lockstats.inglare++;
i = 0;
while(l->key){
if(sys->nmach < 2 && up && up->edf && (up->edf->flags & Admitted)){
/*
* Priority inversion, yield on a uniprocessor; on a
* multiprocessor, the other processor will unlock
*/
print("inversion %#p pc %#p proc %d held by pc %#p proc %d\n",
l, pc, up ? up->pid : 0, l->_pc, l->p ? l->p->pid : 0);
up->edf->d = todget(nil); /* yield to process with lock */
}
if(i++ > 100000000){
i = 0;
lockloop(l, pc);
}
}
if(up)
ainc(&up->nlocks);
if(TAS(&l->key) == 0){
if(up)
up->lastlock = l;
l->_pc = pc;
l->p = up;
l->isilock = 0;
if(LOCKCYCLES)
cycles(&l->lockcycles);
if(l != &waitstatslk)
addwaitstat(pc, t0, WSlock);
return 1;
}
if(up)
adec(&up->nlocks);
}
}
int
lock(Lock *l)
{
int i;
ulong pc;
pc = getcallerpc(&l);
lockstats.locks++;
if(up)
inccnt(&up->nlocks); /* prevent being scheded */
if(tas(&l->key) == 0){
if(up)
up->lastlock = l;
l->pc = pc;
l->p = up;
l->isilock = 0;
#ifdef LOCKCYCLES
l->lockcycles = -lcycles();
#endif
return 0;
}
if(up)
deccnt(&up->nlocks);
lockstats.glare++;
for(;;){
lockstats.inglare++;
i = 0;
while(l->key){
if(conf.nmach < 2 && up && up->edf && (up->edf->flags & Admitted)){
/*
* Priority inversion, yield on a uniprocessor; on a
* multiprocessor, the other processor will unlock
*/
print("inversion %#p pc %#lux proc %lud held by pc %#lux proc %lud\n",
l, pc, up ? up->pid : 0, l->pc, l->p ? l->p->pid : 0);
up->edf->d = todget(nil); /* yield to process with lock */
}
if(i++ > 100000000){
i = 0;
lockloop(l, pc);
}
}
if(up)
inccnt(&up->nlocks);
if(tas(&l->key) == 0){
if(up)
up->lastlock = l;
l->pc = pc;
l->p = up;
l->isilock = 0;
#ifdef LOCKCYCLES
l->lockcycles = -lcycles();
#endif
return 1;
}
if(up)
deccnt(&up->nlocks);
}
}