Example #1
0
File: lock.c Project: mihawk/yatce
void rwlock_init(rwlock_t * rwlock){
  //  rwlock_t * ret;
#ifdef USE_PTHREAD
  //  ret=(pthread_rwlock_t*)malloc(sizeof(pthread_rwlock_t));
  pthread_rwlock_init(rwlock,NULL);
  //  *ret = PTHREAD_RWLOCK_INITIALIZER;
#elif defined  USE_ETHREAD
  *rwlock = erl_drv_rwlock_create(NULL);
#endif
  //  return ret;
}
Example #2
0
struct exmpp_hashtable *
exmpp_ht_create(unsigned int min_length, exmpp_ht_free_value_cb free_value)
{
	struct exmpp_hashtable *ht;
	unsigned int pindex, length;

	/* Check requested length isn't too large. */
	if (min_length > (1u << 30))
		return (NULL);

	/* Enforce length as prime. */
	length = primes[0];
	for (pindex = 0; pindex < prime_table_length; ++pindex) {
		if (primes[pindex] > min_length) {
			length = primes[pindex];
			break;
		}
	}

	ht = driver_alloc(sizeof(*ht));
	if (ht == NULL)
		return (NULL);
	ht->entries = driver_alloc(length * sizeof(*(ht->entries)));
	if (ht->entries == NULL) {
		driver_free(ht);
		return (NULL);
	}
	memset(ht->entries, 0, length * sizeof(*(ht->entries)));

#if defined(USE_RWLOCK)
	ht->lock = erl_drv_rwlock_create("exmpp_hashtable");
	if (ht->lock == NULL) {
		driver_free(ht->entries);
		driver_free(ht);
		return (NULL);
	}
#endif

	ht->length = length;
	ht->entries_count = 0;
	ht->load_limit = (unsigned int)ceil(length * MAX_LOAD_FACTOR);
	ht->prime_index = pindex;
	ht->free_value = free_value;

	return (ht);
}
Example #3
0
File: erl_nif.c Project: a5an0/otp
ErlNifRWLock* enif_rwlock_create(char *name) { return erl_drv_rwlock_create(name); }