import Foreign

 import Data.ByteString (ByteString)

 import qualified GHC.Exts.Heap as Heap

 import GHC.Cmm.Expr ( GlobalRegSet, emptyRegSet, regSetToList )

 import GHC.Unit.Module

 -- for example the 'CgInteractiveGuts' from which 'ByteCodeHpcInfo' can be

 -- derived from

 data ByteCodeHpcInfo = ByteCodeHpcInfo

   -- ^ Name of the module.

   -- ^ Name of the tick box that has been added via 'CStub'.

   , bchi_tick_count :: {-# UNPACK #-} !Int

   -- ^ Number of ticks.

 import GHC.Types.Unique.Supply ( uniqFromTag, UniqueTag(BcoTag) )

 import GHC.Types.Unique.Set

 import GHC.Utils.Fingerprint ( Fingerprint )

 import GHC.Utils.Panic

 import GHC.Utils.Error

           Strict.Just ByteCodeHpcInfo

             { bchi_tick_count = hpcInfoTickCount

             , bchi_hash = hpcInfoHash

             }

     -----------------  Generate byte code ------------------

   withForeignRef ref $ \val ->

     interpCmd interp (AddSptEntry fpr val)

 addHpcModule interp modLabel tickNo hash tickboxes  =

   interpCmd interp (AddHpcModule modLabel tickNo hash tickboxes)

 import Prelude -- See note [Why do we import Prelude here?]

 import Control.Exception

 import Data.Word

 import Foreign

 import GHC.Foreign (CString)

 import GHCi.ObjLink (lookupSymbol)

 -- | Inform the run-time system that the given module name is instrumented via @hpc@

 --

 -- Starts the `hpc` run-time if it hasn't already been started.

 hpcAddModule ::

   -- ^ Name of the module to instrument

   Int ->

   -- ^ Number of hpc ticks in this module

   Int ->

   -- ^ 'HpcInfo's 'hpcInfoHash'

   -- ^ Name of the ticks array found in the c-stub.

   IO ()

 hpcAddModule modlName ticks hash tickboxes = do

     -- we need to find the reference to the ticks array.

     lookupSymbol tickboxes >>= \ case

       Nothing -> do

         -- the symbol is not found, this is a bug!

       Just tickBoxRef -> do

         -- Calling 'hs_hpc_module' multiple times is safe, it will add the module only once.

         hpc_register_module modlNameLiteral (fromIntegral ticks) (fromIntegral hash) (castPtr tickBoxRef)

   -- | Add entries to the Static Pointer Table

   AddSptEntry :: Fingerprint -> HValueRef -> Message ()

   -- | Add module to hpc

   -- | Malloc some data and return a 'RemotePtr' to it

   MallocData :: ByteString -> Message (RemotePtr ())