From 0b7c9ee4d319f10c3b166d7064bb125f6f8add12 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 2 Mar 2002 17:51:22 +0000
Subject: [PATCH] [project @ 2002-03-02 17:51:22 by sof] re-introduce
 dataToTagzh macro (unreg builds only)

---
 ghc/includes/PrimOps.h |   14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index e6eeaf4..60a2ac6 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.90 2001/12/18 15:23:16 sewardj Exp $
+ * $Id: PrimOps.h,v 1.91 2002/03/02 17:51:22 sof Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -342,6 +342,18 @@ EXTFUN_RTS(mkForeignObjzh_fast);
 
 
 /* -----------------------------------------------------------------------------
+   Constructor tags
+   -------------------------------------------------------------------------- */
+
+/*
+ * This macro is only used when compiling unregisterised code (see 
+ * AbsCUtils.dsCOpStmt for motivation & the Story).
+ */
+#ifndef TABLES_NEXT_TO_CODE
+# define dataToTagzh(r,a)  r=(GET_TAG(((StgClosure *)a)->header.info))
+#endif
+
+/* -----------------------------------------------------------------------------
    BCOs and BCO linkery
    -------------------------------------------------------------------------- */
 
-- 
1.7.10.4