From 6ed4dbcc5c63bbd87e053eaf368c3b0612997d36 Mon Sep 17 00:00:00 2001
From: sebc <unknown>
Date: Tue, 18 Dec 2001 19:42:41 +0000
Subject: [PATCH] [project @ 2001-12-18 19:42:41 by sebc] THIS CHANGE AFFECTS
 ALL OBJECT FILES. Please say "make clean"

Move the entry code pointer to the start of info tables, according
to Plan C in ghc/rts/Storage.h
---
 ghc/includes/InfoTables.h |   10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h
index bfaa7d4..2e10e87 100644
--- a/ghc/includes/InfoTables.h
+++ b/ghc/includes/InfoTables.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: InfoTables.h,v 1.23 2001/10/03 13:57:42 simonmar Exp $
+ * $Id: InfoTables.h,v 1.24 2001/12/18 19:42:41 sebc Exp $
  * 
  * (c) The GHC Team, 1998-1999
  *
@@ -206,7 +206,14 @@ typedef union {
 
 typedef StgClosure* StgSRT[];
 
+/*
+ * The entry code pointer must be the first word of an info table.
+ * See the comment in ghc/rts/Storage.h (Plan C) for details.
+ */
 typedef struct _StgInfoTable {
+#ifndef TABLES_NEXT_TO_CODE
+    StgFunPtr       entry;
+#endif
     StgSRT         *srt;	/* pointer to the SRT table */
 #if defined(PAR) || defined(GRAN)
     struct _StgInfoTable    *rbh_infoptr;
@@ -231,7 +238,6 @@ typedef struct _StgInfoTable {
 #ifdef TABLES_NEXT_TO_CODE
     StgCode         code[FLEXIBLE_ARRAY];
 #else
-    StgFunPtr       entry;
     StgFunPtr       vector[FLEXIBLE_ARRAY];
 #endif
 } StgInfoTable;
-- 
1.7.10.4