From: sof <unknown>
Date: Wed, 19 Mar 2003 18:56:14 +0000 (+0000)
Subject: [project @ 2003-03-19 18:56:14 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1062
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=016cf2ca08327cb3fbf1400634d31a0e7548d24d;p=ghc-hetmet.git

[project @ 2003-03-19 18:56:14 by sof]
protoize heapCheckFail()
---

diff --git a/ghc/rts/HeapStackCheck.hc b/ghc/rts/HeapStackCheck.hc
index 20ae42a..2ab2023 100644
--- a/ghc/rts/HeapStackCheck.hc
+++ b/ghc/rts/HeapStackCheck.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HeapStackCheck.hc,v 1.28 2003/02/21 05:34:15 sof Exp $
+ * $Id: HeapStackCheck.hc,v 1.29 2003/03/19 18:56:14 sof Exp $
  *
  * (c) The GHC Team, 1998-2002
  *
@@ -13,10 +13,15 @@
 #include "StgRun.h"	/* for StgReturn and register saving */
 #include "Schedule.h"   /* for context_switch */
 #include "RtsFlags.h"
+#include "RtsUtils.h"
 #include "Apply.h"
 
 #include <stdio.h>
 
+#ifdef mingw32_TARGET_OS
+#include <stdlib.h>
+#endif
+
 /* Stack/Heap Check Failure
  * ------------------------
  *
diff --git a/ghc/rts/RtsUtils.h b/ghc/rts/RtsUtils.h
index 8825460..5a7da5a 100644
--- a/ghc/rts/RtsUtils.h
+++ b/ghc/rts/RtsUtils.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsUtils.h,v 1.12 2001/10/31 10:30:29 simonmar Exp $
+ * $Id: RtsUtils.h,v 1.13 2003/03/19 18:56:14 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -34,4 +34,6 @@ char *ullong_format_string(ullong, char *, rtsBool);
 
 ullong   msTime(void);
 
-
+#ifdef DEBUG
+extern void heapCheckFail( void );
+#endif