diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/deriveConstants/Main.hs | 13 | ||||
| -rw-r--r-- | utils/genprimopcode/Main.hs | 1 |
2 files changed, 13 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" diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 294591444d..07eab0dacb 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -804,6 +804,7 @@ ppType (TyApp (TyCon "RealWorld") []) = "realWorldTy" ppType (TyApp (TyCon "ThreadId#") []) = "threadIdPrimTy" ppType (TyApp (TyCon "ForeignObj#") []) = "foreignObjPrimTy" ppType (TyApp (TyCon "BCO#") []) = "bcoPrimTy" +ppType (TyApp (TyCon "Compact#") []) = "compactPrimTy" ppType (TyApp (TyCon "()") []) = "unitTy" -- unitTy is TysWiredIn's name for () ppType (TyVar "a") = "alphaTy" |