cpp: Use #pragma once instead of #ifndef guards
[ghc.git] / rts / sm / Compact.h
index 7a237ac..6dcb50b 100644 (file)
@@ -6,60 +6,31 @@
  *
  * Documentation on the architecture of the Garbage Collector can be
  * found in the online commentary:
- * 
- *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
+ *
+ *   http://ghc.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_COMPACT_H
-#define SM_COMPACT_H
+#pragma once
 
-INLINE_HEADER rtsBool
-mark_stack_empty(void)
-{
-    return mark_sp == mark_stack;
-}
-
-INLINE_HEADER rtsBool
-mark_stack_full(void)
-{
-    return mark_sp >= mark_splim;
-}
+#include "BeginPrivate.h"
 
 INLINE_HEADER void
-reset_mark_stack(void)
-{
-    mark_sp = mark_stack;
-}
-
-INLINE_HEADER void
-push_mark_stack(StgPtr p)
-{
-    *mark_sp++ = p;
-}
-
-INLINE_HEADER StgPtr
-pop_mark_stack(void)
-{
-    return *--mark_sp;
-}
-
-INLINE_HEADER void 
 mark(StgPtr p, bdescr *bd)
 {
-    nat offset_within_block = p - bd->start; // in words
-    StgPtr bitmap_word = (StgPtr)bd->u.bitmap + 
-       (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
+    uint32_t offset_within_block = p - bd->start; // in words
+    StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
+        (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
     StgWord bit_mask = (StgWord)1 << (offset_within_block & (sizeof(W_)*BITS_PER_BYTE - 1));
     *bitmap_word |= bit_mask;
 }
 
-INLINE_HEADER void 
+INLINE_HEADER void
 unmark(StgPtr p, bdescr *bd)
 {
-    nat offset_within_block = p - bd->start; // in words
-    StgPtr bitmap_word = (StgPtr)bd->u.bitmap + 
-       (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
+    uint32_t offset_within_block = p - bd->start; // in words
+    StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
+        (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
     StgWord bit_mask = (StgWord)1 << (offset_within_block & (sizeof(W_)*BITS_PER_BYTE - 1));
     *bitmap_word &= ~bit_mask;
 }
@@ -67,13 +38,13 @@ unmark(StgPtr p, bdescr *bd)
 INLINE_HEADER StgWord
 is_marked(StgPtr p, bdescr *bd)
 {
-    nat offset_within_block = p - bd->start; // in words
-    StgPtr bitmap_word = (StgPtr)bd->u.bitmap + 
-       (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
+    uint32_t offset_within_block = p - bd->start; // in words
+    StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
+        (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
     StgWord bit_mask = (StgWord)1 << (offset_within_block & (sizeof(W_)*BITS_PER_BYTE - 1));
     return (*bitmap_word & bit_mask);
 }
 
-extern void compact (StgClosure *static_objects);
+void compact (StgClosure *static_objects);
 
-#endif /* SM_COMPACT_H */
+#include "EndPrivate.h"