[Git][ghc/ghc][wip/gc/aligned-block-allocation] Fix lint errors

[Ömer Sinan Ağacan]

Ömer Sinan Ağacan pushed to branch wip/gc/aligned-block-allocation at Glasgow Haskell Compiler / GHC


Commits:
9ba77dd0 by Ömer Sinan Ağacan at 2019-04-10T12:12:32Z
Fix lint errors

- - - - -


1 changed file:

- rts/sm/BlockAlloc.c


Changes:

=====================================
rts/sm/BlockAlloc.c
=====================================
@@ -535,7 +535,7 @@ allocAlignedGroupOnNode (uint32_t node, W_ n)
 
     ASSERT(slop_low_blocks + slop_high_blocks + n == num_blocks);
 
-#ifdef DEBUG
+#if defined(DEBUG)
     checkFreeListSanity();
     W_ free_before = countFreeList();
 #endif
@@ -545,7 +545,7 @@ allocAlignedGroupOnNode (uint32_t node, W_ n)
         ASSERT(countBlocks(bd) == num_blocks - slop_low_blocks);
     }
 
-#ifdef DEBUG
+#if defined(DEBUG)
     ASSERT(countFreeList() == free_before + slop_low_blocks);
     checkFreeListSanity();
 #endif
@@ -553,7 +553,7 @@ allocAlignedGroupOnNode (uint32_t node, W_ n)
     // At this point the bd should be aligned, but we may have slop on the high side
     ASSERT((uintptr_t)bd->start % group_size == 0);
 
-#ifdef DEBUG
+#if defined(DEBUG)
     free_before = countFreeList();
 #endif
 
@@ -562,7 +562,7 @@ allocAlignedGroupOnNode (uint32_t node, W_ n)
         ASSERT(bd->blocks == n);
     }
 
-#ifdef DEBUG
+#if defined(DEBUG)
     ASSERT(countFreeList() == free_before + slop_high_blocks);
     checkFreeListSanity();
 #endif



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/commit/9ba77dd0ffd5724c1302e8550750a413589257d2

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/commit/9ba77dd0ffd5724c1302e8550750a413589257d2
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20190410/89f69a86/attachment-0001.html>