diff options
| author | simonpj@microsoft.com <unknown> | 2008-09-05 17:14:58 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-09-05 17:14:58 +0000 |
| commit | df9195e35a6e7c4bce8737e6930d73781ac6cb58 (patch) | |
| tree | f716a65c52fedc2c803238a3f8d1415de4b521e8 /compiler/HsVersions.h | |
| parent | 0dffbed453a400f0df66d68e3e64184c1e4d940d (diff) | |
| download | haskell-df9195e35a6e7c4bce8737e6930d73781ac6cb58.tar.gz | |
Make ASSERT2 mention msg even when debug is off (avoid warnings)
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 09c8d2efed..4e68bbe250 100644 --- 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 -#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) } } |