X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FGCThread.h;h=1d0a05ce447285f9c12ec3e5bd17ae8c8ffa82ef;hp=d6af2b157129367d3cc8800a981f26a523285740;hb=e50364a5a8e5d736445cd8e5b10a813ec0a5a2e0;hpb=9efc323b5b57a0b4d50008c942a90a45dc51ee2d

diff --git a/rts/sm/GCThread.h b/rts/sm/GCThread.h
index d6af2b1..1d0a05c 100644
--- a/rts/sm/GCThread.h
+++ b/rts/sm/GCThread.h
@@ -195,7 +195,14 @@ extern gc_thread **gc_threads;
 
 #define GLOBAL_REG_DECL(type,name,reg) register type name REG(reg);
 
-#if defined(REG_Base) && !defined(i386_HOST_ARCH)
+#if defined(sparc_HOST_ARCH)
+// Don't use REG_base or R1 for gct on SPARC because they're getting clobbered 
+//	by something else. Not sure what yet. -- BL 2009/01/03
+
+extern __thread gc_thread* gct;
+#define DECLARE_GCT __thread gc_thread* gct;
+
+#elif defined(REG_Base) && !defined(i386_HOST_ARCH)
 // on i386, REG_Base is %ebx which is also used for PIC, so we don't
 // want to steal it