includes/rts/Adjustor.h

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-2009
   4  *
   5  * Adjustor API
   6  *
   7  * -------------------------------------------------------------------------- */
   8
   9 #ifndef RTS_ADJUSTOR_H
  10 #define RTS_ADJUSTOR_H
  11
  12 /* Creating and destroying an adjustor thunk */
  13 void* createAdjustor (int cconv,
  14                       StgStablePtr hptr,
  15                       StgFunPtr wptr,
  16                       char *typeString);
  17
  18 void freeHaskellFunctionPtr (void* ptr);
  19
  20 #endif /* RTS_ADJUSTOR_H */