[project @ 1999-10-15 11:02:06 by sewardj]
[ghc-hetmet.git] / ghc / rts / ForeignCall.h
1 /* -----------------------------------------------------------------------------
2  * $Id: ForeignCall.h,v 1.4 1999/10/15 11:03:10 sewardj Exp $
3  *
4  * (c) The GHC Team, 1998-1999
5  *
6  * Prototypes for functions in ForeignCall.c
7  *
8  * ---------------------------------------------------------------------------*/
9
10 typedef int StablePtr;
11
12 extern void ccall ( CFunDescriptor* descriptor, void (*fun)(void), StgBCO** bco );
13 extern void hcall ( HFunDescriptor* descriptor, StablePtr fun, void* as, void* rs );
14
15