cpp: Use #pragma once instead of #ifndef guards
[ghc.git] / rts / sm / Compact.h
index 3061384..6dcb50b 100644 (file)
@@ -6,32 +6,31 @@
  *
  * Documentation on the architecture of the Garbage Collector can be
  * found in the online commentary:
- * 
+ *
  *   http://ghc.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef SM_COMPACT_H
-#define SM_COMPACT_H
+#pragma once
 
 #include "BeginPrivate.h"
 
-INLINE_HEADER void 
+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;
 }
@@ -39,9 +38,9 @@ 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);
 }
@@ -49,13 +48,3 @@ is_marked(StgPtr p, bdescr *bd)
 void compact (StgClosure *static_objects);
 
 #include "EndPrivate.h"
-
-#endif /* SM_COMPACT_H */
-
-// Local Variables:
-// mode: C
-// fill-column: 80
-// indent-tabs-mode: nil
-// c-basic-offset: 4
-// buffer-file-coding-system: utf-8-unix
-// End: