diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-14 13:03:32 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-19 12:03:16 +0100 |
| commit | 6fbd46b0bb3ee56160b8216cb2a3bb718ccb41c2 (patch) | |
| tree | 8e8c569d0989f89c66a6ccd0d59a466266130649 /compiler/codeGen/CgHpc.hs | |
| parent | 53810006bbcd3fc9b58893858f95c3432cb33f0e (diff) | |
| download | haskell-6fbd46b0bb3ee56160b8216cb2a3bb718ccb41c2.tar.gz | |
Remove the old codegen
Except for CgUtils.fixStgRegisters that is used in the NCG and LLVM
backends, and should probably be moved somewhere else.
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" |