diff options
Diffstat (limited to 'compiler/codeGen/CgHpc.hs')
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs deleted file mode 100644 index 407de7b647..0000000000 --- a/compiler/codeGen/CgHpc.hs +++ /dev/null @@ -1,40 +0,0 @@ ------------------------------------------------------------------------------ --- --- Code generation for coverage --- --- (c) Galois Connections, Inc. 2006 --- ------------------------------------------------------------------------------ - -module CgHpc (cgTickBox, hpcTable) where - -import OldCmm -import CLabel -import Module -import OldCmmUtils -import CgUtils -import CgMonad -import HscTypes - -cgTickBox :: Module -> Int -> Code -cgTickBox mod n = do - dflags <- getDynFlags - let tick_box = (cmmIndex dflags W64 - (CmmLit $ CmmLabel $ mkHpcTicksLabel $ mod) - n - ) - stmtsC [ CmmStore tick_box - (CmmMachOp (MO_Add W64) - [ CmmLoad tick_box b64 - , CmmLit (CmmInt 1 W64) - ]) - ] - -hpcTable :: Module -> HpcInfo -> Code -hpcTable this_mod (HpcInfo hpc_tickCount _) = do - emitDataLits (mkHpcTicksLabel this_mod) $ - [ CmmInt 0 W64 - | _ <- take hpc_tickCount [0::Int ..] - ] - -hpcTable _ (NoHpcInfo {}) = error "TODO: impossible" |