| ... |
... |
@@ -211,6 +211,7 @@ data DebugFlags = DebugFlags |
|
211
|
211
|
, squeeze :: Bool -- ^ @z@ stack squeezing & lazy blackholing
|
|
212
|
212
|
, hpc :: Bool -- ^ @c@ coverage
|
|
213
|
213
|
, sparks :: Bool -- ^ @r@
|
|
|
214
|
+ , ipe :: Bool -- ^ @I@
|
|
214
|
215
|
} deriving ( Show -- ^ @since base-4.8.0.0
|
|
215
|
216
|
, Generic -- ^ @since base-4.15.0.0
|
|
216
|
217
|
)
|
| ... |
... |
@@ -359,6 +360,7 @@ data TraceFlags = TraceFlags |
|
359
|
360
|
, sparksSampled :: Bool -- ^ trace spark events by a sampled method
|
|
360
|
361
|
, sparksFull :: Bool -- ^ trace spark events 100% accurately
|
|
361
|
362
|
, user :: Bool -- ^ trace user events (emitted from Haskell code)
|
|
|
363
|
+ , traceIpe :: Bool -- ^ trace IPE events
|
|
362
|
364
|
} deriving ( Show -- ^ @since base-4.8.0.0
|
|
363
|
365
|
, Generic -- ^ @since base-4.15.0.0
|
|
364
|
366
|
)
|
| ... |
... |
@@ -588,6 +590,8 @@ getDebugFlags = do |
|
588
|
590
|
(#{peek DEBUG_FLAGS, hpc} ptr :: IO CBool))
|
|
589
|
591
|
<*> (toBool <$>
|
|
590
|
592
|
(#{peek DEBUG_FLAGS, sparks} ptr :: IO CBool))
|
|
|
593
|
+ <*> (toBool <$>
|
|
|
594
|
+ (#{peek DEBUG_FLAGS, ipe} ptr :: IO CBool))
|
|
591
|
595
|
|
|
592
|
596
|
getCCFlags :: IO CCFlags
|
|
593
|
597
|
getCCFlags = do
|
| ... |
... |
@@ -647,6 +651,8 @@ getTraceFlags = do |
|
647
|
651
|
(#{peek TRACE_FLAGS, sparks_full} ptr :: IO CBool))
|
|
648
|
652
|
<*> (toBool <$>
|
|
649
|
653
|
(#{peek TRACE_FLAGS, user} ptr :: IO CBool))
|
|
|
654
|
+ <*> (toBool <$>
|
|
|
655
|
+ (#{peek TRACE_FLAGS, ipe} ptr :: IO CBool))
|
|
650
|
656
|
#endif
|
|
651
|
657
|
|
|
652
|
658
|
getTickyFlags :: IO TickyFlags
|