ghc/rts/ForeignCall.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: ForeignCall.h,v 1.7 1999/10/26 17:27:30 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                  );
  17
  18 extern StgAddr createAdjThunk ( StgStablePtr stableptr,
  19                                 StgAddr      typestr,
  20                                 StgChar      callconv );