From cf989ffe490c146be4ed0fd7e0c00d3ff8fe1453 Mon Sep 17 00:00:00 2001 From: Giovanni Campagna Date: Fri, 15 Jul 2016 19:47:26 +0100 Subject: 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 --- utils/deriveConstants/Main.hs | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'utils/deriveConstants') 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" -- cgit v1.2.1