From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 21 Jul 2015 07:35:11 +0000 (-0700)
Subject: Make error.o state thread-local.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c2016768e4b6c4d5477cb873e57260729c23aef4;p=mit-scheme.git

Make error.o state thread-local.
---

diff --git a/src/microcode/error.c b/src/microcode/error.c
index 044ee3b7c..013486e51 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)