-#ifdef GHCI
-
-extern StgThreadReturnCode interpretBCO ( Capability* cap );
-
-typedef unsigned short UShort;
-
-#endif
-
-#if 0
-/* --------------------------------------------------------------------------
- * Sizes of objects it constructs
- * (used by Assembler)
- * ------------------------------------------------------------------------*/
-
-#define Izh_sizeW CONSTR_sizeW(0,sizeofW(StgInt))
-#define I64zh_sizeW CONSTR_sizeW(0,sizeofW(StgInt64))
-#define Wzh_sizeW CONSTR_sizeW(0,sizeofW(StgWord))
-#define Azh_sizeW CONSTR_sizeW(0,sizeofW(StgAddr))
-#define Czh_sizeW CONSTR_sizeW(0,sizeofW(StgWord))
-#define Fzh_sizeW CONSTR_sizeW(0,sizeofW(StgFloat))
-#define Dzh_sizeW CONSTR_sizeW(0,sizeofW(StgDouble))
-#define Stablezh_sizeW CONSTR_sizeW(0,sizeofW(StgStablePtr))
-#define Genericzh_sizeW CONSTR_sizeW(1,0)
-
-/* --------------------------------------------------------------------------
- *
- * ------------------------------------------------------------------------*/
-
-
-extern nat marshall ( char arg_ty, void* arg );
-extern nat unmarshall ( char res_ty, void* res );
-extern nat argSize ( const char* ks );
-
-
-extern StgInt PopTaggedInt ( void ) ;
-extern StgWord PopTaggedWord ( void ) ;
-extern StgAddr PopTaggedAddr ( void ) ;
-extern StgStablePtr PopTaggedStablePtr ( void ) ;
-extern StgChar PopTaggedChar ( void ) ;
-extern StgFloat PopTaggedFloat ( void ) ;
-extern StgDouble PopTaggedDouble ( void ) ;
-
-extern void PushTaggedInt ( StgInt );
-extern void PushTaggedWord ( StgWord );
-extern void PushTaggedAddr ( StgAddr );
-extern void PushTaggedStablePtr ( StgStablePtr );
-extern void PushTaggedChar ( StgChar );
-extern void PushTaggedFloat ( StgFloat );
-extern void PushTaggedDouble ( StgDouble );
-
-extern void PushPtr ( StgPtr );
-extern StgPtr PopPtr ( void );
-
-extern int numEnters;
-
-/*-------------------------------------------------------------------------*/
-#ifdef XMLAMBDA
-
-#define MAX_CALL_VALUES 100