From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 19 Jul 2015 17:39:56 +0000 (-0700)
Subject: Make bkpt.o state thread-local.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ccb6bf1b35338f7a2a069c7a9cb52229bc56f070;p=mit-scheme.git

Make bkpt.o state thread-local.
---

diff --git a/src/microcode/bkpt.c b/src/microcode/bkpt.c
index 973f1e356..635b8e5d0 100644
--- a/src/microcode/bkpt.c
+++ b/src/microcode/bkpt.c
@@ -33,11 +33,11 @@ USA.
 
 #define sp_nil ((struct sp_record *) 0)
 
-sp_record_list SP_List = sp_nil;
+__thread sp_record_list SP_List = sp_nil;
 
 extern bool Add_a_Pop_Return_Breakpoint (SCHEME_OBJECT *);
 
-static struct sp_record One_Before =
+static __thread struct sp_record One_Before =
 {
   ((SCHEME_OBJECT *) 0),
   sp_nil
diff --git a/src/microcode/bkpt.h b/src/microcode/bkpt.h
index 00104aa04..597cf35c5 100644
--- a/src/microcode/bkpt.h
+++ b/src/microcode/bkpt.h
@@ -35,7 +35,7 @@ struct sp_record
 };
 
 typedef struct sp_record * sp_record_list;
-extern sp_record_list SP_List;
+extern __thread sp_record_list SP_List;
 
 #define DEBUG_MAXSLOTS 100