X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FInfoTables.h;h=67bd97bc8f762b3d27e675daa2b2f98c96624b4c;hb=098f818b622e5095fbd3f6318a463fcb2ce14fc6;hp=77171f1bc0a13cd32ec35e2e81e2937c14663881;hpb=6e9450db95482a72b2c9659ab0e9324260aa3f56;p=ghc-hetmet.git

diff --git a/includes/InfoTables.h b/includes/InfoTables.h
index 77171f1..67bd97b 100644
--- a/includes/InfoTables.h
+++ b/includes/InfoTables.h
@@ -412,6 +412,16 @@ typedef struct _StgConInfoTable {
 #endif
 
 /*
+ * GET_CON_DESC(info)
+ * info must be a StgConInfoTable*.
+ */
+#ifdef TABLES_NEXT_TO_CODE
+#define GET_CON_DESC(info) ((char *)((StgWord)((info)+1) + (info->con_desc)))
+#else
+#define GET_CON_DESC(info) ((info)->con_desc)
+#endif
+
+/*
  * GET_FUN_SRT(info)
  * info must be a StgFunInfoTable*
  */