From 5edbd17d0f915ff56666e92c008bb6e2a7311290 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Thu, 18 May 2000 11:32:21 +0000
Subject: [PATCH] [project @ 2000-05-18 11:32:21 by panne] Make stackOverflow
 prototype available Haskell compilation

---
 ghc/includes/Stg.h |    4 +++-
 ghc/rts/RtsUtils.h |    3 +--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/ghc/includes/Stg.h b/ghc/includes/Stg.h
index 4005542..ebc471a 100644
--- a/ghc/includes/Stg.h
+++ b/ghc/includes/Stg.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stg.h,v 1.29 2000/04/14 15:10:20 sewardj Exp $
+ * $Id: Stg.h,v 1.30 2000/05/18 11:32:21 panne Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -185,6 +185,8 @@ DLL_IMPORT_RTS extern int    prog_argc;
 
 extern char **environ;
 
+extern void stackOverflow(void);
+
 /* Creating and destroying an adjustor thunk.
    I cannot make myself create a separate .h file
    for these two (sof.) 
diff --git a/ghc/rts/RtsUtils.h b/ghc/rts/RtsUtils.h
index f4aea78..428061a 100644
--- a/ghc/rts/RtsUtils.h
+++ b/ghc/rts/RtsUtils.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsUtils.h,v 1.9 2000/04/14 14:07:18 simonmar Exp $
+ * $Id: RtsUtils.h,v 1.10 2000/05/18 11:32:21 panne Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -17,7 +17,6 @@ extern void prog_belch(char *s, ...);
 
 extern void _stgAssert (char *filename, unsigned int linenum);
 
-extern void stackOverflow(void);
 extern void heapOverflow(void);
 
 void resetNonBlockingFd(int fd);
-- 
1.7.10.4