/* -----------------------------------------------------------------------------
- * $Id: ForeignCall.h,v 1.5 1999/10/19 11:01:28 sewardj Exp $
+ * $Id: ForeignCall.h,v 1.8 1999/11/08 15:30:39 sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
extern int ccall ( CFunDescriptor* descriptor,
void (*fun)(void),
- StgBCO** bco
+ StgBCO** bco,
+ char callconv,
+ Capability* cap
);
+extern StgAddr createAdjThunk ( StgStablePtr stableptr,
+ StgAddr typestr,
+ StgChar callconv );