From aa95678657cc96dc2bf7a3f235a7031a6c005b0a Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 28 Dec 2003 13:09:43 +0000
Subject: [PATCH] [project @ 2003-12-28 13:09:43 by panne] Added prototype for
 initAdjustor

---
 ghc/includes/Stg.h |   13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/ghc/includes/Stg.h b/ghc/includes/Stg.h
index f37c22f..c6792b3 100644
--- a/ghc/includes/Stg.h
+++ b/ghc/includes/Stg.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Stg.h,v 1.59 2003/11/14 14:28:08 stolz Exp $
+ * $Id: Stg.h,v 1.60 2003/12/28 13:09:43 panne Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -275,12 +275,13 @@ extern void stackOverflow(void);
 #include "DNInvoke.h"
 #endif
 
-/* Creating and destroying an adjustor thunk.
-   I cannot make myself create a separate .h file
-   for these two (sof.) 
+/* Creating and destroying an adjustor thunk and initialising the whole
+   adjustor thunk machinery. I cannot make myself create a separate .h file
+   for these three (sof.) 
    
 */
-extern void* createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr);
-extern void  freeHaskellFunctionPtr(void* ptr);
+extern void*   createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr);
+extern void    freeHaskellFunctionPtr(void* ptr);
+extern rtsBool initAdjustor(void);
 
 #endif /* STG_H */
-- 
1.7.10.4