diff --git a/ghc/includes/ClosureMacros.h b/ghc/includes/ClosureMacros.h index 4f170ca186614a14336ea58dfa0e086dafb95a5a..46054a9584a608d83a0c216c602911594caa7099 100644 --- a/ghc/includes/ClosureMacros.h +++ b/ghc/includes/ClosureMacros.h @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: ClosureMacros.h,v 1.12 1999/04/27 10:59:30 sewardj Exp $ + * $Id: ClosureMacros.h,v 1.13 1999/04/27 12:25:23 simonm Exp $ * * (c) The GHC Team, 1998-1999 * @@ -337,6 +337,12 @@ SET_STATIC_HDR(PrelBase_CZh_closure,PrelBase_CZh_info,costCentreStack,const); #define CHARLIKE_CLOSURE(n) ((P_)&CHARLIKE_closure[n]) #define INTLIKE_CLOSURE(n) ((P_)&INTLIKE_closure[(n)-MIN_INTLIKE]) +/* ----------------------------------------------------------------------------- + Closure Tables (for enumerated data types) + -------------------------------------------------------------------------- */ + +#define CLOSURE_TBL(lbl) const StgClosure *lbl[] = { + /* ----------------------------------------------------------------------------- Payload access -------------------------------------------------------------------------- */