From: simonm <unknown>
Date: Tue, 27 Apr 1999 12:25:23 +0000 (+0000)
Subject: [project @ 1999-04-27 12:25:23 by simonm]
X-Git-Tag: Approximately_9120_patches~6300
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e7df5b3923cad9920c042c6a129224b21e1b1c64;p=ghc-hetmet.git

[project @ 1999-04-27 12:25:23 by simonm]
Add CLOSURE_TBL() macro for building closure tables.
---

diff --git a/ghc/includes/ClosureMacros.h b/ghc/includes/ClosureMacros.h
index 4f170ca..46054a9 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
  *
@@ -338,6 +338,12 @@ SET_STATIC_HDR(PrelBase_CZh_closure,PrelBase_CZh_info,costCentreStack,const);
 #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
    -------------------------------------------------------------------------- */