From: panne <unknown>
Date: Sun, 28 Dec 2003 13:09:43 +0000 (+0000)
Subject: [project @ 2003-12-28 13:09:43 by panne]
X-Git-Tag: Approx_11550_changesets_converted~165
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aa95678657cc96dc2bf7a3f235a7031a6c005b0a;p=ghc-hetmet.git

[project @ 2003-12-28 13:09:43 by panne]
Added prototype for initAdjustor
---

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 */