diff options
| author | sof <unknown> | 1997-05-26 01:56:37 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-05-26 01:56:37 +0000 |
| commit | eb34545e41baa17597ad50ef87fa5f99b198614d (patch) | |
| tree | 800643fbd9236240c03f99f66c4d716f3361f75c /ghc/compiler/HsVersions.h | |
| parent | 17f3069df44b1fadcd21af7524516e8ef347b3de (diff) | |
| download | haskell-eb34545e41baa17597ad50ef87fa5f99b198614d.tar.gz | |
[project @ 1997-05-26 01:56:37 by sof]
New macro: ASSERT2
Diffstat (limited to 'ghc/compiler/HsVersions.h')
| -rw-r--r-- | ghc/compiler/HsVersions.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h index 955c5f9b0e..55fedfbf82 100644 --- a/ghc/compiler/HsVersions.h +++ b/ghc/compiler/HsVersions.h @@ -14,8 +14,10 @@ you will screw up the layout where they are used in case expressions! #ifdef DEBUG #define ASSERT(e) if (not (e)) then (assertPanic __FILE__ __LINE__) else +#define ASSERT2(e,msg) if (not (e)) then (assertPprPanic __FILE__ __LINE__ (msg)) else #else #define ASSERT(e) +#define ASSERT2(e,msg) #endif #if __STDC__ |