[project @ 2002-12-05 23:49:43 by mthomas]
[ghc-hetmet.git] / ghc / rts / ForeignCall.h
1 /* -----------------------------------------------------------------------------
2  * $Id: ForeignCall.h,v 1.8 1999/11/08 15:30:39 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 int ccall ( CFunDescriptor* descriptor, 
13                    void            (*fun)(void), 
14                    StgBCO**        bco,
15                    char            callconv,
16                    Capability*     cap
17                  );
18
19 extern StgAddr createAdjThunk ( StgStablePtr stableptr,
20                                 StgAddr      typestr,
21                                 StgChar      callconv );