From d068f78b3ae99da8976e0836739cde6213c40041 Mon Sep 17 00:00:00 2001 From: Norman Ramsey Date: Wed, 12 Sep 2007 15:25:02 +0000 Subject: [PATCH] make it easier to have debugging code typechecked even when debugging is turned off --- compiler/HsVersions.h | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index a53fb4b..464bf82 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 -- 1.7.10.4