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