From 2faacb28778c0aa95252f95bbd947df31c06b903 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 19 Jul 2015 12:49:26 -0700
Subject: [PATCH] Make utils.o state thread-local.

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

diff --git a/src/microcode/term.c b/src/microcode/term.c
index 53a1be120..35b92ae99 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 10f42268f..0826db17f 100644
--- a/src/microcode/utils.c
+++ b/src/microcode/utils.c
@@ -182,7 +182,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)
@@ -335,7 +335,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