From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 5 Dec 2014 00:24:17 +0000 (-0700)
Subject: smp: share: error.o
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f82f34f334133ff95a6b1c1457e421550d69b927;p=mit-scheme.git

smp: share: error.o
---

diff --git a/README.txt b/README.txt
index 3b07a62c7..9b559b08a 100644
--- a/README.txt
+++ b/README.txt
@@ -230,9 +230,11 @@ command line.  The remaining 12 belong to the 7 microcode modules and
   dfloat.o:
 
   error.o:
-  00000004 b current_handler_record
-  00000008 b current_restart_record
-  00000000 b next_condition_type_index
+  00000004 b current_handler_record	__thread
+  00000008 b current_restart_record	__thread
+  00000000 b next_condition_type_index	__thread
+
+	OK.  Localized, though this appears to be unused.
 
   extern.o:
 
diff --git a/src/microcode/error.c b/src/microcode/error.c
index 817f3ad06..d6f456082 100644
--- a/src/microcode/error.c
+++ b/src/microcode/error.c
@@ -44,9 +44,9 @@ struct restart_record
   struct condition_restart contents;
 };
 
-static unsigned long next_condition_type_index;
-static struct handler_record * current_handler_record;
-static struct restart_record * current_restart_record;
+static __thread unsigned long next_condition_type_index;
+static __thread struct handler_record * current_handler_record;
+static __thread struct restart_record * current_restart_record;
 
 void
 initialize_condition_system (void)