X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FHsFFI.h;h=7010aa14eb891d065841285cb0b6e6820f323497;hb=49c120b93b0688863d46582eee6b20bfbed6c077;hp=7164007d563801c860eaee822c717f2c99a71259;hpb=49d6688668fbe6ee72e429a53e3239d517ff9afe;p=ghc-hetmet.git

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index 7164007..7010aa1 100644
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.16 2001/11/07 19:11:43 sof Exp $
+ * $Id: HsFFI.h,v 1.17 2002/11/17 15:27:07 panne Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -148,6 +148,15 @@ typedef void*			HsForeignObj;   /* DEPRECATED */
 #define HS_DOUBLE_MAX_EXP	DBL_MAX_EXP
 #define HS_DOUBLE_MAX_10_EXP	DBL_MAX_10_EXP
 
+extern void hs_init     (int *argc, char **argv[]);
+extern void hs_exit     (void);
+extern void hs_set_argv (int argc, char *argv[]);
+
+extern void hs_perform_gc (void);
+
+extern void hs_free_stable_ptr (HsStablePtr *sp);
+extern void hs_free_fun_ptr    (HsFunPtr *fp);
+
 /* -------------------------------------------------------------------------- */
 
 #ifdef __cplusplus