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 400554213005..ebc471adeb9f 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 f4aea78b54e1..428061a8f45a 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);
--
GitLab