[project @ 1999-11-30 11:44:32 by simonmar]

Eliminate warnings for uninitialised srt fields in constructors.

diff --git a/ghc/includes/InfoMacros.h b/ghc/includes/InfoMacros.h
index 270842f..91900d4 100644 (file)
--- 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                                            \
        }