A small GC optimisation
[ghc-hetmet.git] / rts / sm / GCThread.h
index 7d46232..62dd1fb 100644 (file)
@@ -16,7 +16,7 @@
 
 #include "WSDeque.h"
 
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
 
 /* -----------------------------------------------------------------------------
    General scheme
@@ -146,7 +146,7 @@ typedef struct gc_thread_ {
     // --------------------
     // evacuate flags
 
-    generation *evac_gen;          // Youngest generation that objects
+    nat evac_gen_no;               // Youngest generation that objects
                                    // should be evacuated to in
                                    // evacuate().  (Logically an
                                    // argument to evacuate, but it's
@@ -226,7 +226,7 @@ extern __thread gc_thread* gct;
 #define DECLARE_GCT __thread gc_thread* gct;
 
 
-#elif defined(sparc_TARGET_ARCH)
+#elif defined(sparc_HOST_ARCH)
 // On SPARC we can't pin gct to a register. Names like %l1 are just offsets
 //     into the register window, which change on each function call.
 //     
@@ -276,7 +276,7 @@ extern StgWord8 the_gc_thread[];
 
 #endif
 
-END_RTS_PRIVATE
+#include "EndPrivate.h"
 
 #endif // SM_GCTHREAD_H