diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-05-24 19:50:50 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-05-24 19:50:50 -0400 |
| commit | 2590af96c9dd1bd12ed939bceefaf643b7cf1534 (patch) | |
| tree | acdcccb02278e39f57341b93773a199c671cd4f7 /compiler/GHC/Cmm/CLabel.hs | |
| parent | d7c7772eccd9a3c9e3e0882a935f232f42f5b3f0 (diff) | |
| download | haskell-wip/keepAlive.tar.gz | |
And now for something completely different...wip/keepAlive
Diffstat (limited to 'compiler/GHC/Cmm/CLabel.hs')
| -rw-r--r-- | compiler/GHC/Cmm/CLabel.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/GHC/Cmm/CLabel.hs b/compiler/GHC/Cmm/CLabel.hs index c6969be7ca..4f28818291 100644 --- a/compiler/GHC/Cmm/CLabel.hs +++ b/compiler/GHC/Cmm/CLabel.hs @@ -43,6 +43,7 @@ module GHC.Cmm.CLabel ( mkDirty_MUT_VAR_Label, mkNonmovingWriteBarrierEnabledLabel, + mkKeepAliveInfoLabel, mkUpdInfoLabel, mkBHUpdInfoLabel, mkIndStaticInfoLabel, @@ -500,6 +501,7 @@ mkBlockInfoTableLabel name c = IdLabel name c BlockInfoTable -- Constructing Cmm Labels mkDirty_MUT_VAR_Label, mkNonmovingWriteBarrierEnabledLabel, + mkKeepAliveInfoLabel, mkUpdInfoLabel, mkBHUpdInfoLabel, mkIndStaticInfoLabel, mkMainCapabilityLabel, mkMAP_FROZEN_CLEAN_infoLabel, mkMAP_FROZEN_DIRTY_infoLabel, @@ -512,6 +514,7 @@ mkDirty_MUT_VAR_Label, mkDirty_MUT_VAR_Label = mkForeignLabel (fsLit "dirty_MUT_VAR") Nothing ForeignLabelInExternalPackage IsFunction mkNonmovingWriteBarrierEnabledLabel = CmmLabel rtsUnitId (fsLit "nonmoving_write_barrier_enabled") CmmData +mkKeepAliveInfoLabel = CmmLabel rtsUnitId (fsLit "stg_keepAlive_frame") CmmInfo mkUpdInfoLabel = CmmLabel rtsUnitId (fsLit "stg_upd_frame") CmmInfo mkBHUpdInfoLabel = CmmLabel rtsUnitId (fsLit "stg_bh_upd_frame" ) CmmInfo mkIndStaticInfoLabel = CmmLabel rtsUnitId (fsLit "stg_IND_STATIC") CmmInfo |