void chpl_sync_markAndSignalEmpty(chpl_sync_aux_t *s) // and unlock
{
PROFILE_INCR(profile_sync_markAndSignalEmpty, 1);
qthread_syncvar_fill(&(s->signal_empty));
s->is_full = 0;
chpl_sync_unlock(s);
}
void chpl_sync_markAndSignalFull(chpl_sync_aux_t *s) // and unlock
{
PROFILE_INCR(profile_sync_markAndSignalFull, 1);
qthread_syncvar_fill(&(s->signal_full));
s->is_full = 1;
chpl_sync_unlock(s);
}
void chpl_task_exit(void)
{
#ifdef CHAPEL_PROFILE
profile_print();
#endif /* CHAPEL_PROFILE */
#ifdef QTHREAD_MULTINODE
#else
if (qthread_shep() == NO_SHEPHERD) {
/* sometimes, tasking is told to shutdown even though it hasn't been
* told to start yet */
if (chpl_qthread_done_initializing == 1) {
qthread_syncvar_fill(&canexit);
while (done_finalizing == 0) SPINLOCK_BODY();
}
} else {
qthread_syncvar_fill(&exit_ret);
}
#endif /* QTHREAD_MULTINODE */
}
int main(int argc,
char *argv[])
{
aligned_t *t[2];
uint64_t x_value;
uint64_t pairs;
assert(qthread_initialize() == 0);
pairs = qthread_num_shepherds() * 6;
CHECK_VERBOSE();
NUMARG(iterations, "ITERATIONS");
NUMARG(pairs, "PAIRS");
t[0] = calloc(pairs, sizeof(aligned_t));
t[1] = calloc(pairs, sizeof(aligned_t));
iprintf("%i threads...\n", qthread_num_shepherds());
iprintf("Initial value of x: %lu\n", (unsigned long)x.u.w);
qthread_syncvar_empty(&id);
qthread_syncvar_writeF_const(&id, 1);
iprintf("id = 0x%lx\n", (unsigned long)id.u.w);
{
uint64_t tmp = 0;
qthread_syncvar_readFF(&tmp, &id);
assert(tmp == 1);
}
iprintf("x's status is: %s (want full (and nowait))\n",
qthread_syncvar_status(&x) ? "full" : "empty");
assert(qthread_syncvar_status(&x) == 1);
qthread_syncvar_readFE(NULL, &x);
iprintf("x's status became: %s (want empty (and nowait))\n",
qthread_syncvar_status(&x) ? "full" : "empty");
assert(qthread_syncvar_status(&x) == 0);
for (unsigned int i = 0; i < pairs; ++i) {
qthread_fork(consumer, (void *)(uintptr_t)i, &(t[0][i]));
}
for (unsigned int i = 0; i < pairs; ++i) {
qthread_fork(producer, (void *)(uintptr_t)(i + pairs), &(t[1][i]));
}
for (unsigned int i = 0; i < pairs; ++i) {
qthread_readFF(NULL, &(t[0][i]));
qthread_readFF(NULL, &(t[1][i]));
}
iprintf("shouldn't be blocking on x (current status: %s)\n",
qthread_syncvar_status(&x) ? "full" : "empty");
qthread_syncvar_fill(&x);
iprintf("shouldn't be blocking on x (current status: %s)\n",
qthread_syncvar_status(&x) ? "full" : "empty");
qthread_syncvar_readFF(&x_value, &x);
assert(qthread_syncvar_status(&x) == 1);
free(t[0]);
free(t[1]);
if (x_value == iterations - 1) {
iprintf("Success! x==%lu\n", (unsigned long)x_value);
return 0;
} else {
fprintf(stderr, "Final value of x=%lu, expected %lu\n",
(unsigned long)x_value, (unsigned long)(iterations - 1));
return -1;
}
}
