/* ----------------------------------------------------------------------------
- * $Id: InfoMacros.h,v 1.18 2002/02/26 05:03:27 sof Exp $
+ * $Id: InfoMacros.h,v 1.19 2002/06/03 12:56:41 matthewc Exp $
*
* (c) The GHC Team, 1998-1999
*
#define PROF_INFO(type_str, desc_str)
#endif
-/* Why no empty array initializer in the 'else' branch? sof 2/02 */
-#ifdef USE_MINIINTERPRETER
-#define INIT_VECTOR vector : {}
-#else
-#define INIT_VECTOR
-#endif
-
/*
On the GranSim/GUM specific parts of the InfoTables (GRAN/PAR):
SRT_INFO(RBH,srt_,srt_off_,srt_len_), \
INCLUDE_RBH_INFO(info), \
INIT_ENTRY(stg_RBH_##entry), \
- INIT_VECTOR \
} ; \
StgFunPtr stg_RBH_##entry (void) { \
FB_ \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INCLUDE_RBH_INFO(stg_RBH_##info), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#else
PROF_INFO(prof_type, prof_descr) \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#endif
SRT_INFO(RBH,srt_,srt_off_,srt_len_), \
INCLUDE_RBH_INFO(info), \
INIT_ENTRY(stg_RBH_##entry), \
- INIT_VECTOR \
}; \
StgFunPtr stg_RBH_##entry (void) { \
FB_ \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INCLUDE_RBH_INFO(stg_RBH_##info), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#else
PROF_INFO(prof_type, prof_descr) \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#endif
STD_INFO(RBH), \
INCLUDE_RBH_INFO(info), \
INIT_ENTRY(stg_RBH_##entry), \
- INIT_VECTOR \
} ; \
StgFunPtr stg_RBH_##entry (void) { \
FB_ \
STD_INFO(type), \
INCLUDE_RBH_INFO(stg_RBH_##info), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#else
PROF_INFO(prof_type, prof_descr) \
STD_INFO(type), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#endif
STD_INFO(RBH), \
INCLUDE_RBH_INFO(info), \
INIT_ENTRY(stg_RBH_##entry), \
- INIT_VECTOR \
}; \
StgFunPtr stg_RBH_##entry (void) { \
FB_ \
STD_INFO(THUNK_SELECTOR), \
INCLUDE_RBH_INFO(stg_RBH_##info), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#else
PROF_INFO(prof_type, prof_descr) \
STD_INFO(THUNK_SELECTOR), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#endif
PROF_INFO(prof_type, prof_descr) \
CONSTR_INFO(type_,tag_), \
INIT_ENTRY(entry), \
- INIT_VECTOR \
}
#define constrTag(con) (get_itbl(con)->srt_len)
i : { layout : { bitmap : (StgWord)bitmap_ }, \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INIT_ENTRY(nm##_entry), \
- INIT_VECTOR \
}, \
vec : { \
(F_) nm##_0_entry, \