+#ifndef OPENSSL_SYS_UNIX
+CRYPTO_RWLOCK *CRYPTO_THREAD_glock_new(const char *name)
+{
+ return CRYPTO_THREAD_lock_new();
+}
+
+#else
+DEFINE_RUN_ONCE_STATIC(glock_init)
+{
+ glock_lock = CRYPTO_THREAD_lock_new();
+ return glock_lock != NULL;
+}
+
+/*
+ * Create a new global lock, return NULL on error.
+ */
+CRYPTO_RWLOCK *CRYPTO_THREAD_glock_new(const char *name)
+{
+ GLOBAL_LOCK *newlock;
+
+ if (glock_lock == NULL && !RUN_ONCE(&glock_once, glock_init))
+ return NULL;
+ if ((newlock = malloc(sizeof(*newlock))) == NULL)
+ return NULL;
+ if ((newlock->lock = CRYPTO_THREAD_lock_new()) == NULL) {
+ free(newlock);
+ return NULL;
+ }
+ newlock->name = name;
+ CRYPTO_THREAD_write_lock(glock_lock);
+ newlock->next = global_locks;
+ global_locks = newlock;
+ CRYPTO_THREAD_unlock(glock_lock);
+ return newlock->lock;
+}
+
+/*
+ * Unlock all global locks.
+ */
+static void unlock_all(void)
+{
+ GLOBAL_LOCK *lp;
+
+ CRYPTO_THREAD_write_lock(glock_lock);
+ for (lp = global_locks; lp != NULL; lp = lp->next)
+ CRYPTO_THREAD_unlock(lp->lock);
+ CRYPTO_THREAD_unlock(glock_lock);
+}
+