smp: share: cmpint.o

diff --git a/README.txt b/README.txt
index 9616a775bd24c1abeb92a1acde8709f91d9cdba6..f1bf3f4d1e8abbd701373487c9e882e0267a8c2d 100644 (file)
--- 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 e0c6e36a889a9cb0c5715a8ef09dee8ed6e6fdca..d6e3cecf28167bd1220f3e0728c62461787fce0b 100644 (file)
--- 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);