[commit: ghc] ghc-8.2: genSym: Fix DEBUG build (e4620dc)
git at git.haskell.org
git at git.haskell.org
Tue Mar 21 14:52:09 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : ghc-8.2
Link : http://ghc.haskell.org/trac/ghc/changeset/e4620dc7d2b54c4fd98139c25cff150b7e4b9640/ghc
>---------------------------------------------------------------
commit e4620dc7d2b54c4fd98139c25cff150b7e4b9640
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.
>---------------------------------------------------------------
e4620dc7d2b54c4fd98139c25cff150b7e4b9640
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