smp: share: utils.o

diff --git a/README.txt b/README.txt
index 73df8bc004fe9e44582af29862b14afa5bb2b2fb..127ac5681aa79b6defaad8e5a8b3fbf8da223752 100644 (file)
--- a/README.txt
+++ b/README.txt
@@ -574,10 +574,12 @@ command line.  The remaining 12 belong to the 7 microcode modules and
        OK.  Not modified.
 
   utils.o:
-  00000004 C death_blow
-  00000000 b error_argument
-  00000000 B history_register
-  00000004 B prev_restore_history_offset
+  00000004 C death_blow                        __thread
+  00000000 b error_argument            __thread
+  00000000 B history_register          __thread
+  00000004 B prev_restore_history_offset       __thread
+
+       OK.  Half localized already.
 
   vector.o:
 

diff --git a/src/microcode/term.c b/src/microcode/term.c
index 5984fa92f1d2a68d84cdf4cbb23df546f23f0bf9..d994dc062fd4d629872fb2efa841dcd73751f5de 100644 (file)
--- a/src/microcode/term.c
+++ b/src/microcode/term.c
@@ -32,7 +32,7 @@ USA.
 #include "edwin.h"
 #include "option.h"
 
-extern long death_blow;
+extern __thread long death_blow;
 extern void get_band_parameters (unsigned long *, unsigned long *);
 
 #ifdef __WIN32__

diff --git a/src/microcode/utils.c b/src/microcode/utils.c
index b6ad533f0c932f92e2082e9051357017bce20080..f05f9219c4b5f7d140b53dbaf0a43a9212e79231 100644 (file)
--- a/src/microcode/utils.c
+++ b/src/microcode/utils.c
@@ -186,7 +186,7 @@ err_print (long error_code, outf_channel where)
 #endif
 }
 
-long death_blow;
+__thread long death_blow;
 
 static void
 error_death (long code, const char * message)
@@ -339,7 +339,7 @@ error_external_return (void)
   signal_error_from_primitive (ERR_EXTERNAL_RETURN);
 }
 
-static SCHEME_OBJECT error_argument;
+static __thread SCHEME_OBJECT error_argument;
 
 void
 error_with_argument (SCHEME_OBJECT argument)