static void contract(OPENSSL_LHASH *lh);
static OPENSSL_LH_NODE **getrn(OPENSSL_LHASH *lh, const void *data, unsigned long *rhash);
+static ossl_inline int tsan_lock(const OPENSSL_LHASH *lh)
+{
+#ifdef TSAN_REQUIRES_LOCKING
+ if (!CRYPTO_THREAD_write_lock(lh->tsan_lock))
+ return 0;
+#endif
+ return 1;
+}
+
+static ossl_inline void tsan_unlock(const OPENSSL_LHASH *lh)
+{
+#ifdef TSAN_REQUIRES_LOCKING
+ CRYPTO_THREAD_unlock(lh->tsan_lock);
+#endif
+}
+
OPENSSL_LHASH *OPENSSL_LH_new(OPENSSL_LH_HASHFUNC h, OPENSSL_LH_COMPFUNC c)
{
OPENSSL_LHASH *ret;
}
if ((ret->b = OPENSSL_zalloc(sizeof(*ret->b) * MIN_NODES)) == NULL)
goto err;
+#ifdef TSAN_REQUIRES_LOCKING
+ if ((ret->tsan_lock = CRYPTO_THREAD_lock_new()) == NULL)
+ goto err;
+#endif
ret->comp = ((c == NULL) ? (OPENSSL_LH_COMPFUNC)strcmp : c);
ret->hash = ((h == NULL) ? (OPENSSL_LH_HASHFUNC)OPENSSL_LH_strhash : h);
ret->num_nodes = MIN_NODES / 2;
return;
OPENSSL_LH_flush(lh);
+#ifdef TSAN_REQUIRES_LOCKING
+ CRYPTO_THREAD_lock_free(lh->tsan_lock);
+#endif
OPENSSL_free(lh->b);
OPENSSL_free(lh);
}
{
unsigned long hash;
OPENSSL_LH_NODE **rn;
- void *ret;
+ /*-
+ * This should be atomic without tsan.
+ * It's not clear why it was done this way and not elsewhere.
+ */
tsan_store((TSAN_QUALIFIER int *)&lh->error, 0);
rn = getrn(lh, data, &hash);
- if (*rn == NULL) {
- tsan_counter(&lh->num_retrieve_miss);
- return NULL;
- } else {
- ret = (*rn)->data;
- tsan_counter(&lh->num_retrieve);
+ if (tsan_lock(lh)) {
+ tsan_counter(*rn == NULL ? &lh->num_retrieve_miss : &lh->num_retrieve);
+ tsan_unlock(lh);
}
-
- return ret;
+ return *rn == NULL ? NULL : (*rn)->data;
}
static void doall_util_fn(OPENSSL_LHASH *lh, int use_arg,
OPENSSL_LH_NODE **ret, *n1;
unsigned long hash, nn;
OPENSSL_LH_COMPFUNC cf;
+ int do_tsan = 1;
+#ifdef TSAN_REQUIRES_LOCKING
+ do_tsan = tsan_lock(lh);
+#endif
hash = (*(lh->hash)) (data);
- tsan_counter(&lh->num_hash_calls);
+ if (do_tsan)
+ tsan_counter(&lh->num_hash_calls);
*rhash = hash;
nn = hash % lh->pmax;
cf = lh->comp;
ret = &(lh->b[(int)nn]);
for (n1 = *ret; n1 != NULL; n1 = n1->next) {
- tsan_counter(&lh->num_hash_comps);
+ if (do_tsan)
+ tsan_counter(&lh->num_hash_comps);
if (n1->hash != hash) {
ret = &(n1->next);
continue;
}
- tsan_counter(&lh->num_comp_calls);
+ if (do_tsan)
+ tsan_counter(&lh->num_comp_calls);
if (cf(n1->data, data) == 0)
break;
ret = &(n1->next);
}
+ if (do_tsan)
+ tsan_unlock(lh);
return ret;
}