GitLab

334ba7f8

by Wen Kokke at 2026-05-14T16:44:50+01:00

ghc-internal: Add @since to TraceFlags.traceIpe

72a5375b
by Wen Kokke at 2026-05-14T16:44:53+01:00
```
ghc-internal: Add ipe to DebugFlags
```
b1a695cd
by Wen Kokke at 2026-05-14T16:44:53+01:00
```
testsuite: Add test for DebugFlags.ipe
```
97983c96
by Wen Kokke at 2026-05-14T16:44:53+01:00
```
ghc-internal: Add @since to DebugFlags.ipe
```

@@ -211,6 +211,8 @@ data DebugFlags = DebugFlags
      , squeeze        :: Bool -- ^ @z@ stack squeezing & lazy blackholing
      , hpc            :: Bool -- ^ @c@ coverage
      , sparks         :: Bool -- ^ @r@
 +    , ipe            :: Bool -- ^ @I@
 +                             --   @since ghc-experimental-9.1001.0
      } deriving ( Show -- ^ @since base-4.8.0.0
                 , Generic -- ^ @since base-4.15.0.0
+                )
@@ -360,6 +362,7 @@ data TraceFlags = TraceFlags
      , sparksFull     :: Bool -- ^ trace spark events 100% accurately
      , user           :: Bool -- ^ trace user events (emitted from Haskell code)
      , traceIpe       :: Bool -- ^ trace IPE events
 +                             --   @since ghc-experimental-9.1001.0
      } deriving ( Show -- ^ @since base-4.8.0.0
                 , Generic -- ^ @since base-4.15.0.0
+                )
@@ -589,6 +592,8 @@ getDebugFlags = do
                     (#{peek DEBUG_FLAGS, hpc} ptr :: IO CBool))
               <*> (toBool <$>
                     (#{peek DEBUG_FLAGS, sparks} ptr :: IO CBool))
 +             <*> (toBool <$>
 +                   (#{peek DEBUG_FLAGS, ipe} ptr :: IO CBool))
  getCCFlags :: IO CCFlags
  getCCFlags = do

 +module Main where
++
 +import GHC.RTS.Flags.Experimental (DebugFlags (..), getDebugFlags)
++
 +main :: IO ()
 +main = print . ipe =<< getDebugFlags

	1	+False
		\ No newline at end of file

	1	+True
		\ No newline at end of file

@@ -18,3 +18,26 @@ test(
      multimod_compile_and_run,
      ['TraceIpe', ''],
+ )
++
 +# Compile and run with default RTS options
 +test(
 +    'T25275_C',
 +    [
 +        only_ways(['debug']),
 +        extra_files(['DebugIpe.hs']),
 +    ],
 +    multimod_compile_and_run,
 +    ['DebugIpe', ''],
 +)
++
 +# Compile and run with -DI
 +test(
 +    'T25275_D',
 +    [
 +        only_ways(['debug']),
 +        extra_files(['DebugIpe.hs']),
 +        extra_run_opts('+RTS -DI -RTS'),
 +    ],
 +    multimod_compile_and_run,
 +    ['DebugIpe', ''],
 +)