Commit cc77a7ba authored by panne's avatar panne

[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.
parent 776afe77
/* -----------------------------------------------------------------------------
* $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);
/* -------------------------------------------------------------------------- */
......
/* -----------------------------------------------------------------------------
* $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);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment