Fix numa001 failure with "too many NUMA nodes"
[ghc.git] / rts / Arena.c
index 92e479b..cd547e5 100644 (file)
@@ -63,8 +63,8 @@ void  *
 arenaAlloc( Arena *arena, size_t size )
 {
     void *p;
-    nat size_w;
-    nat req_blocks;
+    uint32_t size_w;
+    uint32_t req_blocks;
     bdescr *bd;
 
     // round up to nearest alignment chunk.
@@ -117,11 +117,3 @@ arenaBlocks( void )
 {
     return arena_blocks;
 }
-
-// Local Variables:
-// mode: C
-// fill-column: 80
-// indent-tabs-mode: nil
-// c-basic-offset: 4
-// buffer-file-coding-system: utf-8-unix
-// End: