Commit 19fa0e8f authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by Ben Gamari

rts: Introduce debug flag for non-moving GC

parent 4a72fb4a
......@@ -150,21 +150,22 @@ data MiscFlags = MiscFlags
--
-- @since 4.8.0.0
data DebugFlags = DebugFlags
{ scheduler :: Bool -- ^ @s@
, interpreter :: Bool -- ^ @i@
, weak :: Bool -- ^ @w@
, gccafs :: Bool -- ^ @G@
, gc :: Bool -- ^ @g@
, block_alloc :: Bool -- ^ @b@
, sanity :: Bool -- ^ @S@
, stable :: Bool -- ^ @t@
, prof :: Bool -- ^ @p@
, linker :: Bool -- ^ @l@ the object linker
, apply :: Bool -- ^ @a@
, stm :: Bool -- ^ @m@
, squeeze :: Bool -- ^ @z@ stack squeezing & lazy blackholing
, hpc :: Bool -- ^ @c@ coverage
, sparks :: Bool -- ^ @r@
{ scheduler :: Bool -- ^ @s@
, interpreter :: Bool -- ^ @i@
, weak :: Bool -- ^ @w@
, gccafs :: Bool -- ^ @G@
, gc :: Bool -- ^ @g@
, nonmoving_gc :: Bool -- ^ @n@
, block_alloc :: Bool -- ^ @b@
, sanity :: Bool -- ^ @S@
, stable :: Bool -- ^ @t@
, prof :: Bool -- ^ @p@
, linker :: Bool -- ^ @l@ the object linker
, apply :: Bool -- ^ @a@
, stm :: Bool -- ^ @m@
, squeeze :: Bool -- ^ @z@ stack squeezing & lazy blackholing
, hpc :: Bool -- ^ @c@ coverage
, sparks :: Bool -- ^ @r@
} deriving ( Show -- ^ @since 4.8.0.0
)
......@@ -462,6 +463,8 @@ getDebugFlags = do
(#{peek DEBUG_FLAGS, gccafs} ptr :: IO CBool))
<*> (toBool <$>
(#{peek DEBUG_FLAGS, gc} ptr :: IO CBool))
<*> (toBool <$>
(#{peek DEBUG_FLAGS, nonmoving_gc} ptr :: IO CBool))
<*> (toBool <$>
(#{peek DEBUG_FLAGS, block_alloc} ptr :: IO CBool))
<*> (toBool <$>
......
......@@ -50,6 +50,7 @@ enum CapsetType { CapsetTypeCustom = CAPSET_TYPE_CUSTOM,
#define DEBUG_weak RtsFlags.DebugFlags.weak
#define DEBUG_gccafs RtsFlags.DebugFlags.gccafs
#define DEBUG_gc RtsFlags.DebugFlags.gc
#define DEBUG_nonmoving_gc RtsFlags.DebugFlags.nonmoving_gc
#define DEBUG_block_alloc RtsFlags.DebugFlags.alloc
#define DEBUG_sanity RtsFlags.DebugFlags.sanity
#define DEBUG_zero_on_gc RtsFlags.DebugFlags.zero_on_gc
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment