From 9dad5e59e30c1b0d1047838048510f59552be492 Mon Sep 17 00:00:00 2001
From: Tom Tromey <tromey@redhat.com>
Date: Sun, 19 Aug 2012 03:26:42 -0600
Subject: [PATCH] ensure name of a thread is a string

---
 src/thread.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/thread.c b/src/thread.c
index 8fa43dd57f2..b8ffb0662c3 100644
--- a/src/thread.c
+++ b/src/thread.c
@@ -661,6 +661,9 @@ If NAME is given, it names the new thread.  */)
   if (!initialized)
     abort ();
 
+  if (!NILP (name))
+    CHECK_STRING (name);
+
   new_thread = ALLOCATE_PSEUDOVECTOR (struct thread_state, m_gcprolist,
 				      PVEC_THREAD);
   memset ((char *) new_thread + offsetof (struct thread_state, m_gcprolist),
-- 
2.39.5