X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FHsFFI.c;h=b89726cc80acdd641d44fc203830e7a5787e0b3d;hb=0d52a0a134871d317b5f8b53a952c882ce5ae5b6;hp=c84be4ae7e3ca5479edbe50e3951647682d85d69;hpb=34b568ce754f3bd56dc59d285a9d9e9e79c370e5;p=ghc-hetmet.git

diff --git a/ghc/rts/HsFFI.c b/ghc/rts/HsFFI.c
index c84be4a..b89726c 100644
--- 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);