diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 13:57:55 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 13:57:55 +0000 |
| commit | 71847273007b8346735f6ec34bfcc8750e2c6ecd (patch) | |
| tree | 8cc6d38dd713644fa8425f341124263e412a3474 /compiler/HsVersions.h | |
| parent | f555abffd676544cd13d022bf1eb829e63f7aebe (diff) | |
| download | haskell-71847273007b8346735f6ec34bfcc8750e2c6ecd.tar.gz | |
Put debugIsOn in Util, rather than rely on it being CPPed in
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index c8c09e6294..034a9bc07c 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -40,7 +40,6 @@ name = Util.global (value); #define COMMA , #ifdef DEBUG -#define debugIsOn True #define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else #define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else #define MASSERT(e) ASSERT(e) return () @@ -49,7 +48,6 @@ name = Util.global (value); #define ASSERTM(mbool) do { bool <- mbool; ASSERT(bool) return () } #define ASSERTM2(mbool,msg) do { bool <- mbool; ASSERT2(bool,msg) return () } #else -#define debugIsOn False -- 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 |