[commit: ghc] master: genSym: Fix DEBUG build (d744c86)

git at git.haskell.org git at git.haskell.org
Sun Mar 19 18:48:46 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d744c8645e77b97122339b35c4d6c757e606c196/ghc

>---------------------------------------------------------------

commit d744c8645e77b97122339b35c4d6c757e606c196
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sat Mar 18 14:45:35 2017 -0400

    genSym: Fix DEBUG build
    
    It looks like this was likely a cut-and-paste error.


>---------------------------------------------------------------

d744c8645e77b97122339b35c4d6c757e606c196
 compiler/cbits/genSym.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/cbits/genSym.c b/compiler/cbits/genSym.c
index 725a310..4af3940 100644
--- a/compiler/cbits/genSym.c
+++ b/compiler/cbits/genSym.c
@@ -10,7 +10,7 @@ static HsInt GenSymInc = 1;
 STATIC_INLINE void checkUniqueRange(HsInt u STG_UNUSED) {
 #if DEBUG
     // Uh oh! We will overflow next time a unique is requested.
-    assert(h != UNIQUE_MASK);
+    assert(u != UNIQUE_MASK);
 #endif
 }
 



More information about the ghc-commits mailing list