[project @ 2004-11-16 10:00:10 by simonmar]

[ghc-hetmet.git] / ghc / rts / HsFFI.c

diff --git a/ghc/rts/HsFFI.c b/ghc/rts/HsFFI.c
index c84be4a..b89726c 100644 (file)
--- a/ghc/rts/HsFFI.c
+++ b/ghc/rts/HsFFI.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.2 2003/01/28 16:30:06 simonmar Exp $
  *
  * (c) The GHC Team, 2002
  *
@@ -27,7 +26,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 +34,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);