From 3cbf5b1d3b7b9a89e1ef6b00a5ab91d58959f9ab Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Sun, 19 Aug 2012 03:26:09 -0600 Subject: [PATCH] ensure name of a mutex is a string --- src/thread.c | 3 +++ 1 file changed, 3 insertions(+) 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, -- 2.39.5