From eb34545e41baa17597ad50ef87fa5f99b198614d Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 01:56:37 +0000 Subject: [PATCH] [project @ 1997-05-26 01:56:37 by sof] New macro: ASSERT2 --- ghc/compiler/HsVersions.h | 2 ++ 1 file changed, 2 insertions(+) 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__ -- 1.7.10.4