/* ----------------------------------------------------------------------------
- * $Id: InfoMacros.h,v 1.9 2000/01/13 14:34:00 hwloidl Exp $
+ * $Id: InfoMacros.h,v 1.14 2001/03/22 03:51:09 hwloidl Exp $
*
* (c) The GHC Team, 1998-1999
*
srt_len : tag_, \
type : type_
+#ifdef PROFILING
+#define PROF_INFO(type_str, desc_str) \
+ prof: { \
+ closure_type: type_str, \
+ closure_desc: desc_str, \
+ },
+#else
+#define PROF_INFO(type_str, desc_str)
+#endif
+
#ifdef USE_MINIINTERPRETER
#define INIT_VECTOR {}
#else
#endif
/*
- On the GRAN/PAR specific parts of the InfoTables:
+ On the GranSim/GUM specific parts of the InfoTables (GRAN/PAR):
In both GranSim and GUM we use revertible black holes (RBH) when putting
an updatable closure into a packet for communication. The entry code for
type, /* closure type */ \
info_class, entry_class, /* C storage classes */ \
prof_descr, prof_type) /* profiling info */ \
- entry_class(RBH_##entry); \
+ entry_class(stg_RBH_##entry); \
entry_class(entry); \
- info_class INFO_TBL_CONST StgInfoTable info; \
- info_class INFO_TBL_CONST StgInfoTable RBH_##info = { \
+ ED_RO_ StgInfoTable info; \
+ info_class INFO_TBL_CONST StgInfoTable stg_RBH_##info = { \
layout : { payload : {ptrs,nptrs} }, \
- SRT_INFO(RBH,srt_,srt_off_,srt_len_), \
+ PROF_INFO(prof_type, prof_descr) \
+ SRT_INFO(RBH,srt_,srt_off_,srt_len_), \
INCLUDE_RBH_INFO(info), \
- INIT_ENTRY(RBH_##entry), \
+ INIT_ENTRY(stg_RBH_##entry), \
INIT_VECTOR \
- } ; \
- StgFunPtr RBH_##entry (void) { JMP_(RBH_entry); } ; \
+ } ; \
+ StgFunPtr stg_RBH_##entry (void) { \
+ FB_ \
+ JMP_(stg_RBH_entry); \
+ FE_ \
+ } ; \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { payload : {ptrs,nptrs} }, \
+ PROF_INFO(prof_type, prof_descr) \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
- INCLUDE_RBH_INFO(RBH_##info), \
+ INCLUDE_RBH_INFO(stg_RBH_##info), \
INIT_ENTRY(entry), \
INIT_VECTOR \
}
entry_class(entry); \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { payload : {ptrs,nptrs} }, \
+ PROF_INFO(prof_type, prof_descr) \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INIT_ENTRY(entry), \
INIT_VECTOR \
INFO_TABLE_SRT_BITMAP(info, entry, bitmap_, srt_, srt_off_, srt_len_, \
type, info_class, entry_class, \
prof_descr, prof_type) \
- entry_class(RBH_##entry); \
- entry_class(entry); \
- info_class INFO_TBL_CONST StgInfoTable info; \
- info_class INFO_TBL_CONST StgInfoTable RBH_##info = { \
+ entry_class(stg_RBH_##entry); \
+ entry_class(entry); \
+ ED_RO_ StgInfoTable info; \
+ info_class INFO_TBL_CONST StgInfoTable stg_RBH_##info = { \
layout : { bitmap : (StgWord32)bitmap_ }, \
+ PROF_INFO(prof_type, prof_descr) \
SRT_INFO(RBH,srt_,srt_off_,srt_len_), \
- INCLUDE_RBH_INFO(info), \
- INIT_ENTRY(RBH_##entry), \
+ INCLUDE_RBH_INFO(info), \
+ INIT_ENTRY(stg_RBH_##entry), \
INIT_VECTOR \
- }; \
- StgFunPtr RBH_##entry (void) { JMP_(RBH_entry); } ; \
+ }; \
+ StgFunPtr stg_RBH_##entry (void) { \
+ FB_ \
+ JMP_(stg_RBH_entry); \
+ FE_ \
+ } ; \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { bitmap : (StgWord32)bitmap_ }, \
+ PROF_INFO(prof_type, prof_descr) \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
- INCLUDE_RBH_INFO(RBH_##info), \
+ INCLUDE_RBH_INFO(stg_RBH_##info), \
INIT_ENTRY(entry), \
INIT_VECTOR \
}
+
#else
#define \
entry_class(entry); \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { bitmap : (StgWord32)bitmap_ }, \
+ PROF_INFO(prof_type, prof_descr) \
SRT_INFO(type,srt_,srt_off_,srt_len_), \
INIT_ENTRY(entry), \
INIT_VECTOR \
#if defined(GRAN) || defined(PAR)
-#define \
-INFO_TABLE(info, entry, ptrs, nptrs, type, info_class, \
- entry_class, prof_descr, prof_type) \
- entry_class(RBH_##entry); \
- entry_class(entry); \
- info_class INFO_TBL_CONST StgInfoTable info; \
- info_class INFO_TBL_CONST StgInfoTable RBH_##info = { \
- layout : { payload : {ptrs,nptrs} }, \
- STD_INFO(RBH), \
- INCLUDE_RBH_INFO(info), \
- INIT_ENTRY(RBH_##entry), \
- INIT_VECTOR \
- }; \
- StgFunPtr RBH_##entry (void) { JMP_(RBH_entry); } ; \
+#define \
+INFO_TABLE(info, entry, ptrs, nptrs, type, info_class, \
+ entry_class, prof_descr, prof_type) \
+ entry_class(stg_RBH_##entry); \
+ entry_class(entry); \
+ ED_ StgInfoTable info; \
+ info_class INFO_TBL_CONST StgInfoTable stg_RBH_##info = { \
+ layout : { payload : {ptrs,nptrs} }, \
+ PROF_INFO(prof_type, prof_descr) \
+ STD_INFO(RBH), \
+ INCLUDE_RBH_INFO(info), \
+ INIT_ENTRY(stg_RBH_##entry), \
+ INIT_VECTOR \
+ } ; \
+ StgFunPtr stg_RBH_##entry (void) { \
+ FB_ \
+ JMP_(stg_RBH_entry); \
+ FE_ \
+ } ; \
info_class INFO_TBL_CONST StgInfoTable info = { \
- layout : { payload : {ptrs,nptrs} }, \
- STD_INFO(type), \
- INCLUDE_RBH_INFO(RBH_##info), \
- INIT_ENTRY(entry), \
- INIT_VECTOR \
+ layout : { payload : {ptrs,nptrs} }, \
+ PROF_INFO(prof_type, prof_descr) \
+ STD_INFO(type), \
+ INCLUDE_RBH_INFO(stg_RBH_##info), \
+ INIT_ENTRY(entry), \
+ INIT_VECTOR \
}
#else
entry_class(entry); \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { payload : {ptrs,nptrs} }, \
+ PROF_INFO(prof_type, prof_descr) \
STD_INFO(type), \
INIT_ENTRY(entry), \
INIT_VECTOR \
#if defined(GRAN) || defined(PAR)
-#define \
-INFO_TABLE_SELECTOR(info, entry, offset, info_class, \
- entry_class, prof_descr, prof_type) \
- entry_class(RBH_##entry); \
- entry_class(entry); \
- info_class INFO_TBL_CONST StgInfoTable info; \
- info_class INFO_TBL_CONST StgInfoTable RBH_##info = { \
- layout : { selector_offset : offset }, \
- STD_INFO(RBH), \
- INCLUDE_RBH_INFO(info), \
- INIT_ENTRY(RBH_##entry), \
- INIT_VECTOR \
- }; \
- StgFunPtr RBH_##entry (void) { JMP_(RBH_entry); } ; \
- info_class INFO_TBL_CONST StgInfoTable info = { \
- layout : { selector_offset : offset }, \
- STD_INFO(THUNK_SELECTOR), \
- INCLUDE_RBH_INFO(RBH_##info), \
- INIT_ENTRY(entry), \
- INIT_VECTOR \
+#define \
+INFO_TABLE_SELECTOR(info, entry, offset, info_class, \
+ entry_class, prof_descr, prof_type) \
+ entry_class(stg_RBH_##entry); \
+ entry_class(entry); \
+ ED_RO_ StgInfoTable info; \
+ info_class INFO_TBL_CONST StgInfoTable stg_RBH_##info = { \
+ layout : { selector_offset : offset }, \
+ PROF_INFO(prof_type, prof_descr) \
+ STD_INFO(RBH), \
+ INCLUDE_RBH_INFO(info), \
+ INIT_ENTRY(stg_RBH_##entry), \
+ INIT_VECTOR \
+ }; \
+ StgFunPtr stg_RBH_##entry (void) { \
+ FB_ \
+ JMP_(stg_RBH_entry); \
+ FE_ \
+ } ; \
+ info_class INFO_TBL_CONST StgInfoTable info = { \
+ layout : { selector_offset : offset }, \
+ PROF_INFO(prof_type, prof_descr) \
+ STD_INFO(THUNK_SELECTOR), \
+ INCLUDE_RBH_INFO(stg_RBH_##info), \
+ INIT_ENTRY(entry), \
+ INIT_VECTOR \
}
#else
entry_class(entry); \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { selector_offset : offset }, \
+ PROF_INFO(prof_type, prof_descr) \
STD_INFO(THUNK_SELECTOR), \
INIT_ENTRY(entry), \
INIT_VECTOR \
/* constructor info table --------------------------------------------------*/
-#define \
+#define \
INFO_TABLE_CONSTR(info, entry, ptrs, nptrs, tag_,type_,info_class, \
entry_class, prof_descr, prof_type) \
entry_class(entry); \
info_class INFO_TBL_CONST StgInfoTable info = { \
layout : { payload : {ptrs,nptrs} }, \
+ PROF_INFO(prof_type, prof_descr) \
CONSTR_INFO(type_,tag_), \
INIT_ENTRY(entry), \
INIT_VECTOR \
to distinguish these kinds of references.
(ToDo: fill in a more precise href.)
*/
-#ifdef HAVE_WIN32_DLL_SUPPORT
+#ifdef ENABLE_WIN32_DLL_SUPPORT /* mingw DietHEP doesn't seem to care either way */
#define DLL_SRT_ENTRY(x) ((StgClosure*)(((char*)&DLL_IMPORT_DATA_VAR(x)) + 1))
#else
#define DLL_SRT_ENTRY(x) no-can-do
projects / ghc-hetmet.git / blobdiff