projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use message-passing to implement throwTo in the RTS
[ghc-hetmet.git]
/
includes
/
rts
/
storage
/
InfoTables.h
diff --git
a/includes/rts/storage/InfoTables.h
b/includes/rts/storage/InfoTables.h
index
c81e1e2
..
8d51428
100644
(file)
--- a/
includes/rts/storage/InfoTables.h
+++ b/
includes/rts/storage/InfoTables.h
@@
-231,7
+231,12
@@
typedef struct StgInfoTable_ {
StgClosureInfo layout; /* closure layout info (one word) */
StgHalfWord type; /* closure type */
StgClosureInfo layout; /* closure layout info (one word) */
StgHalfWord type; /* closure type */
- StgHalfWord srt_bitmap; /* number of entries in SRT (or constructor tag) */
+ StgHalfWord srt_bitmap;
+ /* In a CONSTR:
+ - the constructor tag
+ In a FUN/THUNK
+ - a bitmap of SRT entries
+ */
#ifdef TABLES_NEXT_TO_CODE
StgCode code[FLEXIBLE_ARRAY];
#ifdef TABLES_NEXT_TO_CODE
StgCode code[FLEXIBLE_ARRAY];