ghc/rts/ForeignCall.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: ForeignCall.h,v 1.6 1999/10/22 15:58:21 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                  );
  16
  17 extern StgAddr createAdjThunk ( StgStablePtr stableptr,
  18                                 StgAddr      typestr );