projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0dffbed
)
Make ASSERT2 mention msg even when debug is off (avoid warnings)
author
simonpj@microsoft.com
<unknown>
Fri, 5 Sep 2008 17:14:58 +0000
(17:14 +0000)
committer
simonpj@microsoft.com
<unknown>
Fri, 5 Sep 2008 17:14:58 +0000
(17:14 +0000)
compiler/HsVersions.h
patch
|
blob
|
history
diff --git
a/compiler/HsVersions.h
b/compiler/HsVersions.h
index
09c8d2e
..
4e68bbe
100644
(file)
--- a/
compiler/HsVersions.h
+++ b/
compiler/HsVersions.h
@@
-51,7
+51,7
@@
name = Util.global (value);
-- We have to actually use all the variables we are given or we may get
-- unused variable warnings when DEBUG is off.
#define ASSERT(e) if False && (not (e)) then panic "ASSERT" else
-- We have to actually use all the variables we are given or we may get
-- unused variable warnings when DEBUG is off.
#define ASSERT(e) if False && (not (e)) then panic "ASSERT" else
-#define ASSERT2(e,msg) if False && (not (e)) then pprPanic "ASSERT2" (msg) else
+#define ASSERT2(e,msg) if False && (const False (e,msg)) then pprPanic "ASSERT2" (msg) else
#define MASSERT(e) ASSERT(e) return ()
#define MASSERT2(e,msg) ASSERT2(e,msg) return ()
#define ASSERTM(e) do { let { _mbool = (e) } }
#define MASSERT(e) ASSERT(e) return ()
#define MASSERT2(e,msg) ASSERT2(e,msg) return ()
#define ASSERTM(e) do { let { _mbool = (e) } }