From: Tom Tromey <tromey@redhat.com>
Date: Sun, 19 Aug 2012 09:26:09 +0000 (-0600)
Subject: ensure name of a mutex is a string
X-Git-Tag: emacs-26.0.90~1144^2~17^2~70
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3cbf5b1d3b7b9a89e1ef6b00a5ab91d58959f9ab;p=emacs.git

ensure name of a mutex is a string
---

diff --git a/src/thread.c b/src/thread.c
index 83f25e8d462..8fa43dd57f2 100644
--- a/src/thread.c
+++ b/src/thread.c
@@ -185,6 +185,9 @@ informational only.  */)
   struct Lisp_Mutex *mutex;
   Lisp_Object result;
 
+  if (!NILP (name))
+    CHECK_STRING (name);
+
   mutex = ALLOCATE_PSEUDOVECTOR (struct Lisp_Mutex, mutex, PVEC_MUTEX);
   memset ((char *) mutex + offsetof (struct Lisp_Mutex, mutex),
 	  0, sizeof (struct Lisp_Mutex) - offsetof (struct Lisp_Mutex,