summaryrefslogtreecommitdiff
path: root/utils/deriveConstants
diff options
context:
space:
mode:
Diffstat (limited to 'utils/deriveConstants')
-rw-r--r--utils/deriveConstants/Main.hs13
1 files changed, 12 insertions, 1 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs
index 63e2233f8b..fb292b1394 100644
--- a/utils/deriveConstants/Main.hs
+++ b/utils/deriveConstants/Main.hs
@@ -391,7 +391,7 @@ wanteds os = concat
,structField Both "bdescr" "blocks"
,structField C "bdescr" "gen_no"
,structField C "bdescr" "link"
- ,structField C "bdescr" "flags"
+ ,structField Both "bdescr" "flags"
,structSize C "generation"
,structField C "generation" "n_new_large_words"
@@ -563,6 +563,17 @@ wanteds os = concat
,closureField C "MessageBlackHole" "tso"
,closureField C "MessageBlackHole" "bh"
+ ,closureSize C "StgCompactNFData"
+ ,closureField C "StgCompactNFData" "totalW"
+ ,closureField C "StgCompactNFData" "autoBlockW"
+ ,closureField C "StgCompactNFData" "nursery"
+ ,closureField C "StgCompactNFData" "last"
+
+ ,structSize C "StgCompactNFDataBlock"
+ ,structField C "StgCompactNFDataBlock" "self"
+ ,structField C "StgCompactNFDataBlock" "owner"
+ ,structField C "StgCompactNFDataBlock" "next"
+
,structField_ C "RtsFlags_ProfFlags_showCCSOnException"
"RTS_FLAGS" "ProfFlags.showCCSOnException"
,structField_ C "RtsFlags_DebugFlags_apply"