diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-12 15:25:02 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-12 15:25:02 +0000 |
| commit | d068f78b3ae99da8976e0836739cde6213c40041 (patch) | |
| tree | 7664fccbdca1e09e5bd25239b91001470920c964 /compiler/HsVersions.h | |
| parent | 7457c489e32a326224673a07281ae402ee4d25fc (diff) | |
| download | haskell-d068f78b3ae99da8976e0836739cde6213c40041.tar.gz | |
make it easier to have debugging code typechecked even when debugging is turned off
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index a53fb4bf35..464bf82029 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -37,12 +37,14 @@ name = Util.global (value) :: IORef (ty); \ #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 WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) #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 |