From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 19 Jul 2015 21:51:12 +0000 (-0700)
Subject: Make cmpint.o state thread-local.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e1336942b3a6d0984bb2ff21a57cc0ba7666ef19;p=mit-scheme.git

Make cmpint.o state thread-local.

Make linking_cc_block_p thread-local.  The rest of this module's
variables are initialized by the ASM_INIT_HOOK, part of
compiler_reset, which is called during compiler_initialize (the
singularly threaded boot) or LOAD-BAND (a GC wait).
---

diff --git a/src/microcode/cmpint.c b/src/microcode/cmpint.c
index 2e897f7c3..e1709b3b5 100644
--- a/src/microcode/cmpint.c
+++ b/src/microcode/cmpint.c
@@ -112,7 +112,7 @@ SCHEME_OBJECT compiler_utilities;
 SCHEME_OBJECT return_to_interpreter;
 SCHEME_OBJECT reflect_to_interface;
 
-static bool linking_cc_block_p = 0;
+static __thread bool linking_cc_block_p = 0;
 
 static SCHEME_OBJECT make_compiler_utilities (void);
 static void open_stack_gap (unsigned long, unsigned long);