[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