From 1eb7a921a0b42885d3722fcc8ee4c491a74c6fbc Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 30 Nov 1999 11:44:32 +0000
Subject: [PATCH] [project @ 1999-11-30 11:44:32 by simonmar] Eliminate
 warnings for uninitialised srt fields in constructors.

---
 ghc/includes/InfoMacros.h |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/ghc/includes/InfoMacros.h b/ghc/includes/InfoMacros.h
index 270842f..91900d4 100644
--- a/ghc/includes/InfoMacros.h
+++ b/ghc/includes/InfoMacros.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: InfoMacros.h,v 1.7 1999/06/25 09:13:37 simonmar Exp $
+ * $Id: InfoMacros.h,v 1.8 1999/11/30 11:44:32 simonmar Exp $
  * 
  * (c) The GHC Team, 1998-1999
  *
@@ -20,6 +20,11 @@
 		srt_len : srt_len_,				\
 		type : type_
 
+#define CONSTR_INFO(type_,tag_)			\
+		srt : 0,			\
+		srt_len : tag_,			\
+		type : type_
+
 #ifdef USE_MINIINTERPRETER
 #define INIT_VECTOR {}
 #else
@@ -93,8 +98,7 @@ INFO_TABLE_CONSTR(info, entry, ptrs, nptrs, tag_,type_,info_class,	\
         entry_class(entry);						\
 	info_class INFO_TBL_CONST StgInfoTable info = {			\
 		layout : { payload : {ptrs,nptrs} },			\
-		srt_len : tag_,						\
-		type : type_,						\
+                CONSTR_INFO(type_,tag_),				\
                 INIT_ENTRY(entry),					\
                 INIT_VECTOR						\
 	}
-- 
1.7.10.4