From: simonmar <unknown>
Date: Thu, 30 Jan 2003 10:06:35 +0000 (+0000)
Subject: [project @ 2003-01-30 10:06:35 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1220
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=858255ab48783ac56fe13cf75a32ccfee3372b26;p=ghc-hetmet.git

[project @ 2003-01-30 10:06:35 by simonmar]
gcc 2.96 miscompiles LDV_recordDead_FILL_SLOP_DYNAMIC() when DEBUG is
on, and I think I must have debugged this crash about three times
already.  So I'm inserting a #error to stop me doing it again.
---

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index efced28..e325374 100644
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: LdvProfile.c,v 1.3 2002/12/11 15:36:42 simonmar Exp $
+ * $Id: LdvProfile.c,v 1.4 2003/01/30 10:06:35 simonmar Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -43,6 +43,10 @@ LDV_recordDead_FILL_SLOP_DYNAMIC( StgClosure *p )
     StgInfoTable *info;
     nat nw, i;
 
+#if defined(__GNUC__) && __GNUC__ < 3 && defined(DEBUG)
+#error Please use gcc 3.0+ to compile this file with DEBUG; gcc < 3.0 miscompiles it
+#endif
+
     if (era > 0) {
 	info = get_itbl((p));
 	switch (info->type) {