From: sof <unknown>
Date: Sat, 2 Mar 2002 17:51:22 +0000 (+0000)
Subject: [project @ 2002-03-02 17:51:22 by sof]
X-Git-Tag: Approx_11550_changesets_converted~2319
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0b7c9ee4d319f10c3b166d7064bb125f6f8add12;p=ghc-hetmet.git

[project @ 2002-03-02 17:51:22 by sof]
re-introduce dataToTagzh macro (unreg builds only)
---

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
    -------------------------------------------------------------------------- */