diff --git a/ghc/includes/Stg.h b/ghc/includes/Stg.h index 9dd0620ed2d3774beb00ae1cf2f71e4a00e24e81..12ccdbe3a94447f8b5771f24407a48e110528785 100644 --- a/ghc/includes/Stg.h +++ b/ghc/includes/Stg.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Stg.h,v 1.2 1998/12/02 13:21:33 simonm Exp $ + * $Id: Stg.h,v 1.3 1999/01/18 14:37:43 sof Exp $ * * Top-level include file for everything STG-ish. * @@ -105,4 +105,11 @@ extern int prog_argc; extern char **environ; +/* Creating and destroying an adjustor thunk. + I cannot make myself creating a separate .h file + for these two (sof.) +*/ +extern void* createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr); +extern void freeHaskellFunctionPtr(void* ptr); + #endif /* STG_H */