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

smp: share: pruxffi.o
---

diff --git a/README.txt b/README.txt
index e0eedc05b..9616a775b 100644
--- a/README.txt
+++ b/README.txt
@@ -892,10 +892,13 @@ command line.  The remaining 12 belong to the 7 microcode modules and
 
   pruxffi.o:
   00000004 b c_call_continue
-  00000000 B cstack_depth
+  00000000 B cstack_depth		__thread
   0000000c b return_to_c
   00000008 b run_callback
 
+	OK.  The primitive caches are single words, atomically
+	read/written.  If a cache is filled twice, no harm done.
+
   cmpint.o:
   00000010 b builtin_names
   0000000c b builtins
diff --git a/src/microcode/pruxffi.c b/src/microcode/pruxffi.c
index cc8f28ff6..b935c1572 100644
--- a/src/microcode/pruxffi.c
+++ b/src/microcode/pruxffi.c
@@ -402,7 +402,7 @@ cstack_pop (char * tos)
 }
 
 /* Number CStack frames, to detect slips. */
-int cstack_depth = 0;
+__thread int cstack_depth = 0;
 
 /* Callouts */