diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-12-02 22:30:58 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-12-02 22:30:58 +0000 |
| commit | 4fb390370051439c89958be96308d6d0577ff864 (patch) | |
| tree | 57a858398e4702dee497319b0053be47422c43a1 /compiler/codeGen/CgProf.hs | |
| parent | 9fd5a2ca9b5dda5b45af57cea7c8dc6f3dab422d (diff) | |
| parent | 1469f1eb7817fbc46b17e994498450a9a6b12ea7 (diff) | |
| download | haskell-4fb390370051439c89958be96308d6d0577ff864.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/codeGen/CgProf.hs')
| -rw-r--r-- | compiler/codeGen/CgProf.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/codeGen/CgProf.hs b/compiler/codeGen/CgProf.hs index cac33eef90..a2e40d0f78 100644 --- a/compiler/codeGen/CgProf.hs +++ b/compiler/codeGen/CgProf.hs @@ -170,11 +170,15 @@ emitCostCentreDecl cc = do -- All cost centres will be in the main package, since we -- don't normally use -auto-all or add SCCs to other packages. -- Hence don't emit the package name in the module here. + ; loc <- newByteStringCLit $ bytesFS $ mkFastString $ + showSDoc (ppr (costCentreSrcSpan cc)) + -- XXX going via FastString to get UTF-8 encoding is silly ; let lits = [ zero, -- StgInt ccID, label, -- char *label, modl, -- char *module, - zero, -- StgWord time_ticks + loc, -- char *srcloc, + zero, -- StgWord time_ticks zero64, -- StgWord64 mem_alloc is_caf, -- StgInt is_caf zero -- struct _CostCentre *link |