From 016cf2ca08327cb3fbf1400634d31a0e7548d24d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 19 Mar 2003 18:56:14 +0000
Subject: [PATCH] [project @ 2003-03-19 18:56:14 by sof] protoize
 heapCheckFail()

---
 ghc/rts/HeapStackCheck.hc |    7 ++++++-
 ghc/rts/RtsUtils.h        |    6 ++++--
 2 files changed, 10 insertions(+), 3 deletions(-)

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
-- 
1.7.10.4