never executed always true always false

    1 module GHC.CmmToAsm.Types
    2    ( NatCmm
    3    , NatCmmDecl
    4    , NatBasicBlock
    5    , GenBasicBlock(..)
    6    , blockId
    7    , ListGraph(..)
    8    , RawCmmStatics
    9    , RawCmmDecl
   10    )
   11 where
   12 
   13 import GHC.Cmm.Dataflow.Label
   14 import GHC.Cmm
   15 
   16 
   17 -- Our flavours of the Cmm types
   18 -- Type synonyms for Cmm populated with native code
   19 type NatCmm instr
   20         = GenCmmGroup
   21                 RawCmmStatics
   22                 (LabelMap RawCmmStatics)
   23                 (ListGraph instr)
   24 
   25 type NatCmmDecl statics instr
   26         = GenCmmDecl
   27                 statics
   28                 (LabelMap RawCmmStatics)
   29                 (ListGraph instr)
   30 
   31 type NatBasicBlock instr
   32         = GenBasicBlock instr