From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 6 Dec 2014 07:04:40 +0000 (-0700)
Subject: smp: share: cmpint.o
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a98bac5e6b043a3120d069e17682eb2f078f8374;p=mit-scheme.git

smp: share: cmpint.o
---

diff --git a/README.txt b/README.txt
index 9616a775b..f1bf3f4d1 100644
--- a/README.txt
+++ b/README.txt
@@ -905,7 +905,7 @@ command line.  The remaining 12 belong to the 7 microcode modules and
   00000004 C compiler_interface_version
   00000004 C compiler_processor_type
   00000004 C compiler_utilities
-  00000000 b linking_cc_block_p
+  00000000 b linking_cc_block_p		__thread
   00000138 D max_trampoline
   00000004 b n_builtins
   00000004 C reflect_to_interface
@@ -914,6 +914,10 @@ command line.  The remaining 12 belong to the 7 microcode modules and
   00000000 d trampoline_arity_table
   00000040 D utility_table
 
+	OK.  All but one is initialized by the ASM_INIT_HOOK, part of
+	compiler_reset, called after a band-load by the gc_processor,
+	during a gc-wait.
+
   cmpintmd.o:
   00000000 b fp_support_present
 
diff --git a/src/microcode/cmpint.c b/src/microcode/cmpint.c
index e0c6e36a8..d6e3cecf2 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);