Commit ddb484c2 authored by Bertram Felgenhauer's avatar Bertram Felgenhauer Committed by Austin Seipp

Update comment about C helper for foreign exports (#9713)

Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent 1f6b1ab4
......@@ -398,12 +398,16 @@ f cback =
foreign import "&f_helper" f_helper :: FunPtr (StablePtr Fun -> Fun)
-- and the helper in C: (approximately; see `mkFExportCBits` below)
f_helper(StablePtr s, HsBool b, HsInt i)
{
{
Capability *cap;
cap = rts_lock();
rts_evalIO(&cap,
rts_apply(rts_apply(deRefStablePtr(s),
rts_mkBool(b)), rts_mkInt(i)));
rts_unlock(cap);
}
\end{verbatim}
......
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