From e7df5b3923cad9920c042c6a129224b21e1b1c64 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 27 Apr 1999 12:25:23 +0000
Subject: [PATCH] [project @ 1999-04-27 12:25:23 by simonm] Add CLOSURE_TBL()
macro for building closure tables.
---
ghc/includes/ClosureMacros.h | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ghc/includes/ClosureMacros.h b/ghc/includes/ClosureMacros.h
index 4f170ca18661..46054a9584a6 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
-------------------------------------------------------------------------- */
--
GitLab