summaryrefslogtreecommitdiff
path: root/utils/deriveConstants
diff options
context:
space:
mode:
authorGiovanni Campagna <gcampagn@cs.stanford.edu>2016-07-15 19:47:26 +0100
committerSimon Marlow <marlowsd@gmail.com>2016-07-20 16:35:23 +0100
commitcf989ffe490c146be4ed0fd7e0c00d3ff8fe1453 (patch)
tree1bdf626d6e713506852bf0015dae1e1be7d280c0 /utils/deriveConstants
parent93acc02f7db7eb86967b4ec586359f408d62f75d (diff)
downloadhaskell-cf989ffe490c146be4ed0fd7e0c00d3ff8fe1453.tar.gz
Compact Regions
This brings in initial support for compact regions, as described in the ICFP 2015 paper "Efficient Communication and Collection with Compact Normal Forms" (Edward Z. Yang et.al.) and implemented by Giovanni Campagna. Some things may change before the 8.2 release, but I (Simon M.) wanted to get the main patch committed so that we can iterate. What documentation there is is in the Data.Compact module in the new compact package. We'll need to extend and polish the documentation before the release. Test Plan: validate (new test cases included) Reviewers: ezyang, simonmar, hvr, bgamari, austin Subscribers: vikraman, Yuras, RyanGlScott, qnikst, mboes, facundominguez, rrnewton, thomie, erikd Differential Revision: https://phabricator.haskell.org/D1264 GHC Trac Issues: #11493
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"