void erts_lcnt_init_lock_x(erts_lcnt_lock_t *lock, char *name, Uint16 flag, Eterm id) {
int i;
if (!name) {
lock->flag = 0;
return;
}
lcnt_lock();
lock->next = NULL;
lock->prev = NULL;
lock->flag = flag;
lock->name = name;
lock->id = id;
ethr_atomic_init(&lock->r_state, 0);
ethr_atomic_init(&lock->w_state, 0);
#ifdef DEBUG
ethr_atomic_init(&lock->flowstate, 0);
#endif
lock->n_stats = 1;
for (i = 0; i < ERTS_LCNT_MAX_LOCK_LOCATIONS; i++) {
lcnt_clear_stats(&lock->stats[i]);
}
erts_lcnt_list_insert(erts_lcnt_data->current_locks, lock);
lcnt_unlock();
}
static ethr_ts_event *ts_event_pool(int size, ethr_ts_event **endpp)
{
int i;
ethr_aligned_ts_event *atsev;
atsev = ethr_mem__.std.alloc(sizeof(ethr_aligned_ts_event) * size
+ ETHR_CACHE_LINE_SIZE);
if (!atsev)
return NULL;
if ((((EthrPtrSzUInt) atsev) & ETHR_CACHE_LINE_MASK) == 0)
atsev = ((ethr_aligned_ts_event *)
((((EthrPtrSzUInt) atsev) & ~ETHR_CACHE_LINE_MASK)
+ ETHR_CACHE_LINE_SIZE));
for (i = 1; i < size; i++) {
atsev[i-1].ts_ev.next = &atsev[i].ts_ev;
ethr_atomic_init(&atsev[i-1].ts_ev.uaflgs, 0);
atsev[i-1].ts_ev.iflgs = 0;
}
ethr_atomic_init(&atsev[size-1].ts_ev.uaflgs, 0);
atsev[size-1].ts_ev.iflgs = 0;
atsev[size-1].ts_ev.next = NULL;
if (endpp)
*endpp = &atsev[size-1].ts_ev;
return &atsev[0].ts_ev;
}
static void
atomic_test(void)
{
long data_init, data_final, val;
int res, i;
ethr_tid tid[AT_THREADS];
ethr_thr_opts thr_opts = ETHR_THR_OPTS_DEFAULT_INITER;
atomic_basic_test();
#if ETHR_SIZEOF_PTR > 4
at_rm_val = ((long) 1) << 57;
at_set_val = ((long) 1) << 60;
#else
at_rm_val = ((long) 1) << 27;
at_set_val = ((long) 1) << 30;
#endif
at_max_val = at_set_val + at_rm_val + ((long) AT_THREADS + 1) * 4711;
data_init = at_rm_val + (long) 4711;
data_final = at_set_val + (long) 4711;
thr_opts.detached = 1;
print_line("Initializing");
ethr_atomic_init(&at_ready, 0);
ethr_atomic_init(&at_go, 0);
ethr_atomic_init(&at_done, data_init);
ethr_atomic_init(&at_data, data_init);
val = ethr_atomic_read(&at_data);
ASSERT(val == data_init);
ethr_atomic_set(&at_done, 0);
val = ethr_atomic_read(&at_done);
ASSERT(val == 0);
print_line("Creating threads");
for (i = 0; i < AT_THREADS; i++) {
res = ethr_thr_create(&tid[i], at_thread, NULL, &thr_opts);
ASSERT(res == 0);
}
print_line("Waiting for threads to ready up");
do {
val = ethr_atomic_read(&at_ready);
ASSERT(val >= 0);
ASSERT(val <= AT_THREADS);
} while (val != AT_THREADS);
print_line("Letting threads loose");
val = ethr_atomic_xchg(&at_go, 17);
ASSERT(val == 0);
val = ethr_atomic_read(&at_go);
ASSERT(val == 17);
print_line("Waiting for threads to finish");
do {
val = ethr_atomic_read(&at_done);
ASSERT(val >= 0);
ASSERT(val <= AT_THREADS);
} while (val != AT_THREADS);
print_line("Checking result");
val = ethr_atomic_read(&at_data);
ASSERT(res == 0);
ASSERT(val == data_final);
print_line("Result ok");
}