[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 (file)
--- 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 (file)
--- 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