From 49ae8f7c511b6cbb3df84ce2304fbb257fd8ccd0 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 5 Dec 2014 17:47:16 -0700
Subject: [PATCH] smp: share: utils.o

---
 README.txt            | 10 ++++++----
 src/microcode/term.c  |  2 +-
 src/microcode/utils.c |  4 ++--
 3 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/README.txt b/README.txt
index 73df8bc00..127ac5681 100644
--- 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 5984fa92f..d994dc062 100644
--- 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 b6ad533f0..f05f9219c 100644
--- 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)
-- 
2.25.1