diff options
author | andy@galois.com <unknown> | 2006-10-24 21:29:07 +0000 |
---|---|---|
committer | andy@galois.com <unknown> | 2006-10-24 21:29:07 +0000 |
commit | d5934bbb856aa0aa620c9b2e0fa51c90a1a5a048 (patch) | |
tree | 065c061d4ff87a6ca8bff6a3a4b0fe205728e066 /compiler/profiling | |
parent | 33b8b60e0aa925962cd11a8be98d9818666d58a0 (diff) | |
download | haskell-d5934bbb856aa0aa620c9b2e0fa51c90a1a5a048.tar.gz |
Haskell Program Coverage
This large checkin is the new ghc version of Haskell
Program Coverage, an expression-level coverage tool for Haskell.
Parts:
- Hpc.[ch] - small runtime support for Hpc; reading/writing *.tix files.
- Coverage.lhs - Annotates the HsSyn with coverage tickboxes.
- New Note's in Core,
- TickBox -- ticked on entry to sub-expression
- BinaryTickBox -- ticked on exit to sub-expression, depending
-- on the boolean result.
- New Stg level TickBox (no BinaryTickBoxes, though)
You can run the coverage tool with -fhpc at compile time.
Main must be compiled with -fhpc.
Diffstat (limited to 'compiler/profiling')
-rw-r--r-- | compiler/profiling/SCCfinal.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/profiling/SCCfinal.lhs b/compiler/profiling/SCCfinal.lhs index 8e02892254..d27a3a0c4a 100644 --- a/compiler/profiling/SCCfinal.lhs +++ b/compiler/profiling/SCCfinal.lhs @@ -195,6 +195,10 @@ stgMassageForProfiling this_pkg mod_name us stg_binds = do_let b e `thenMM` \ (b,e) -> returnMM (StgLetNoEscape lvs1 lvs2 b e) + do_expr (StgTick m n expr) + = do_expr expr `thenMM` \ expr' -> + returnMM (StgTick m n expr') + #ifdef DEBUG do_expr other = pprPanic "SCCfinal.do_expr" (ppr other) #endif |