diff options
| author | Tom Tromey | 2012-08-19 03:26:09 -0600 |
|---|---|---|
| committer | Tom Tromey | 2012-08-19 03:26:09 -0600 |
| commit | 3cbf5b1d3b7b9a89e1ef6b00a5ab91d58959f9ab (patch) | |
| tree | 5d6f21902c3cedba5119a49088b245dfdd394ad8 /src/thread.c | |
| parent | 977c4aa65f42a1cf2c07ea92a6190c18c349b2e7 (diff) | |
| download | emacs-3cbf5b1d3b7b9a89e1ef6b00a5ab91d58959f9ab.tar.gz emacs-3cbf5b1d3b7b9a89e1ef6b00a5ab91d58959f9ab.zip | |
ensure name of a mutex is a string
Diffstat (limited to 'src/thread.c')
| -rw-r--r-- | src/thread.c | 3 |
1 files changed, 3 insertions, 0 deletions
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. */) | |||
| 185 | struct Lisp_Mutex *mutex; | 185 | struct Lisp_Mutex *mutex; |
| 186 | Lisp_Object result; | 186 | Lisp_Object result; |
| 187 | 187 | ||
| 188 | if (!NILP (name)) | ||
| 189 | CHECK_STRING (name); | ||
| 190 | |||
| 188 | mutex = ALLOCATE_PSEUDOVECTOR (struct Lisp_Mutex, mutex, PVEC_MUTEX); | 191 | mutex = ALLOCATE_PSEUDOVECTOR (struct Lisp_Mutex, mutex, PVEC_MUTEX); |
| 189 | memset ((char *) mutex + offsetof (struct Lisp_Mutex, mutex), | 192 | memset ((char *) mutex + offsetof (struct Lisp_Mutex, mutex), |
| 190 | 0, sizeof (struct Lisp_Mutex) - offsetof (struct Lisp_Mutex, | 193 | 0, sizeof (struct Lisp_Mutex) - offsetof (struct Lisp_Mutex, |