From: sof <unknown>
Date: Mon, 26 May 1997 01:56:37 +0000 (+0000)
Subject: [project @ 1997-05-26 01:56:37 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~548
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eb34545e41baa17597ad50ef87fa5f99b198614d;p=ghc-hetmet.git

[project @ 1997-05-26 01:56:37 by sof]
New macro: ASSERT2
---

diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h
index 955c5f9..55fedfb 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__