smp: share: comutl.o

diff --git a/README.txt b/README.txt
index 4707bd41902298bcd0eb674cf174fb64addc6c40..69e0a919414dcfaeb5ceb3bc85b0f7158ea69d7d 100644 (file)
--- 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 e0a9a1487633f9e81c719721dce3f4ab4a8f9459..d02c59687f534605075bb80725285dca72470b46 100644 (file)
--- 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\