RAND_bytes isn't thread-safe, so wrap it with a lock

1 files changed, 4 insertions, 0 deletions

diff --git a/src/c/urweb.c b/src/c/urweb.c
index 1201b09b..1c66e9e8 100644
--- a/src/c/urweb.c
+++ b/src/c/urweb.c
@@ -4023,9 +4023,13 @@ uw_Basis_unit uw_Basis_debug(uw_context ctx, uw_Basis_string s) {
   return uw_unit_v;
 }
 
+static pthread_mutex_t rand_mutex = PTHREAD_MUTEX_INITIALIZER;
+
 uw_Basis_int uw_Basis_rand(uw_context ctx) {
   uw_Basis_int ret;
+  pthread_mutex_lock(&rand_mutex);
   int r = RAND_bytes((unsigned char *)&ret, sizeof ret);
+  pthread_mutex_unlock(&rand_mutex);
   
   if (r)
     return abs(ret);