From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 6 Dec 2014 07:09:58 +0000 (-0700)
Subject: smp: share: comutl.o
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d1e3b33a4ce98cd50c0f792b63ef5979bcac852;p=mit-scheme.git

smp: share: comutl.o
---

diff --git a/README.txt b/README.txt
index 4707bd419..69e0a9194 100644
--- a/README.txt
+++ b/README.txt
@@ -924,7 +924,9 @@ command line.  The remaining 12 belong to the 7 microcode modules and
 	OK.
 
   comutl.o:
-  00000000 b ilof_prefix
+  00000000 b ilof_prefix		__thread
+
+	OK.  Now thread-local.
 
   usrdef.o:
   00000000 D MAX_STATIC_PRIMITIVE
diff --git a/src/microcode/comutl.c b/src/microcode/comutl.c
index e0a9a1487..d02c59687 100644
--- a/src/microcode/comutl.c
+++ b/src/microcode/comutl.c
@@ -207,7 +207,7 @@ DEFINE_PRIMITIVE ("INITIALIZE-C-COMPILED-BLOCK",
 }
 
 typedef unsigned long thunk_t (void);
-static const char * ilof_prefix = 0;
+static __thread const char * ilof_prefix = 0;
 
 DEFINE_PRIMITIVE ("INITIALIZE-LIARC-OBJECT-FILE", Prim_initialize_liarc_object_file, 2, 2,
 		  "(ADDRESS PREFIX)\n\