projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Restore the entry field in StgInfoTable when !defined(TABLES_NEXT_TO_CODE)
[ghc-hetmet.git]
/
includes
/
rts
/
storage
/
InfoTables.h
diff --git
a/includes/rts/storage/InfoTables.h
b/includes/rts/storage/InfoTables.h
index
4596ce2
..
c81e1e2
100644
(file)
--- a/
includes/rts/storage/InfoTables.h
+++ b/
includes/rts/storage/InfoTables.h
@@
-214,6
+214,10
@@
typedef union {
*/
typedef struct StgInfoTable_ {
+#ifndef TABLES_NEXT_TO_CODE
+ StgFunPtr entry; /* pointer to the entry code */
+#endif
+
#ifdef PROFILING
StgProfInfo prof;
#endif