smp: share: bkpt.o

diff --git a/README.txt b/README.txt
index 71978046c4225262b325cdd23187a641848b5515..e4b1ed0a42cd2af4a2a0ceb6fb804a19d5b7c6c8 100644 (file)
--- a/README.txt
+++ b/README.txt
@@ -187,8 +187,11 @@ command line.  The remaining 12 belong to the 7 microcode modules and
        OK.  All state is thread-local now.
 
   bkpt.o:
-  00000004 b One_Before
-  00000000 B SP_List
+  00000004 b One_Before                        __thread
+  00000000 B SP_List                   __thread
+
+       OK.  All state is thread-local now.  (What is this?  It seems
+       stack-related and so is now machine-specific, but... ?)
 
   bignum.o:
 

diff --git a/src/microcode/bkpt.c b/src/microcode/bkpt.c
index 955a01b962adc2f47a65319b912edc0e52b7c518..e9aecca3a0ef67f05b608588af57856a84823b5e 100644 (file)
--- 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 e7736a232a2bb30fec471f044d3971aaa79053c0..9ad1744e7c200a1250bdf4d134b06d5535b6467d 100644 (file)
--- 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