Commit b3ef2d1a authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by Ben Gamari
Browse files

rts: Introduce debug flag for non-moving GC

parent 6ff29c06
......@@ -155,6 +155,7 @@ data DebugFlags = DebugFlags
, weak :: Bool -- ^ @w@
, gccafs :: Bool -- ^ @G@
, gc :: Bool -- ^ @g@
, nonmoving_gc :: Bool -- ^ @n@
, block_alloc :: Bool -- ^ @b@
, sanity :: Bool -- ^ @S@
, stable :: Bool -- ^ @t@
......@@ -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