diff options
| author | simonmar <unknown> | 2004-08-13 13:11:23 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-08-13 13:11:23 +0000 |
| commit | 423d477bfecd490de1449c59325c8776f91d7aac (patch) | |
| tree | 2fe481e38a21be66b17539de24a4fe56daf80642 /ghc/compiler/HsVersions.h | |
| parent | 553e90d9a32ee1b1809430f260c401cc4169c6c7 (diff) | |
| download | haskell-423d477bfecd490de1449c59325c8776f91d7aac.tar.gz | |
[project @ 2004-08-13 13:04:50 by simonmar]
Merge backend-hacking-branch onto HEAD. Yay!
Diffstat (limited to 'ghc/compiler/HsVersions.h')
| -rw-r--r-- | ghc/compiler/HsVersions.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h index 1ba51b56a7..0bd9c142c4 100644 --- a/ghc/compiler/HsVersions.h +++ b/ghc/compiler/HsVersions.h @@ -66,10 +66,10 @@ name = Util.global (value) :: IORef (ty); \ #define WARN( e, msg ) (warnPprTrace (e) __FILE__ __LINE__ (msg)) #define ASSERTM(e) ASSERT(e) do #else -#define ASSERT(e) -#define ASSERT2(e,msg) +#define ASSERT(e) if False then error "ASSERT" else +#define ASSERT2(e,msg) if False then error "ASSERT2" else #define ASSERTM(e) -#define WARN(e,msg) +#define WARN(e,msg) if False then error "WARN" else #endif -- temporary usage assertion control KSW 2000-10 |