From cc77a7baa29f0becb1bb32b9c9b74ed16cd9f7ae Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 12 Apr 2004 16:26:41 +0000
Subject: [PATCH] [project @ 2004-04-12 16:26:40 by panne] Fixed a
 long-standing buglet in the signatures of
 hs_free_stable_ptr and hs_free_fun_ptr, both had a
 superfluous "*". Now everything conforms to the FFI
 addendum.

---
 ghc/includes/HsFFI.h |    6 +++---
 ghc/rts/HsFFI.c      |    6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index 57a0be3..fc029bb 100644
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.18 2003/01/28 16:30:07 simonmar Exp $
+ * $Id: HsFFI.h,v 1.19 2004/04/12 16:26:40 panne Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -155,8 +155,8 @@ extern void hs_add_root (void (*init_root)(void));
 
 extern void hs_perform_gc (void);
 
-extern void hs_free_stable_ptr (HsStablePtr *sp);
-extern void hs_free_fun_ptr    (HsFunPtr *fp);
+extern void hs_free_stable_ptr (HsStablePtr sp);
+extern void hs_free_fun_ptr    (HsFunPtr fp);
 
 /* -------------------------------------------------------------------------- */
 
diff --git a/ghc/rts/HsFFI.c b/ghc/rts/HsFFI.c
index c84be4a..ec8f520 100644
--- a/ghc/rts/HsFFI.c
+++ b/ghc/rts/HsFFI.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.2 2003/01/28 16:30:06 simonmar Exp $
+ * $Id: HsFFI.c,v 1.3 2004/04/12 16:26:41 panne Exp $
  *
  * (c) The GHC Team, 2002
  *
@@ -27,7 +27,7 @@ hs_perform_gc(void)
 }
 
 void
-hs_free_stable_ptr(HsStablePtr *sp)
+hs_free_stable_ptr(HsStablePtr sp)
 {
     /* The cast is for clarity only, both HsStablePtr and StgStablePtr are
        typedefs for void*. */
@@ -35,7 +35,7 @@ hs_free_stable_ptr(HsStablePtr *sp)
 }
 
 void
-hs_free_fun_ptr(HsFunPtr *fp)
+hs_free_fun_ptr(HsFunPtr fp)
 {
     /* I simply *love* all these similar names... */
     freeHaskellFunctionPtr(fp);
-- 
1.7.10.4