diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2010-01-02 05:37:54 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2010-01-02 05:37:54 +0000 |
| commit | 7854ec4b11e117f8514553890851d14a66690fbb (patch) | |
| tree | f96e7dd94f39eda39fe86da0298e3f628a35ef65 /compiler/codeGen/StgCmmHpc.hs | |
| parent | e5fba2f55f560b41e27047bf59958729d51aca84 (diff) | |
| download | haskell-7854ec4b11e117f8514553890851d14a66690fbb.tar.gz | |
Tag ForeignCalls with the package they correspond to
Diffstat (limited to 'compiler/codeGen/StgCmmHpc.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmHpc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmHpc.hs b/compiler/codeGen/StgCmmHpc.hs index e78acb78b7..8bf1fbfbc3 100644 --- a/compiler/codeGen/StgCmmHpc.hs +++ b/compiler/codeGen/StgCmmHpc.hs @@ -55,7 +55,7 @@ initHpc this_mod (HpcInfo tickCount hashNo) ; id <- newTemp bWord -- TODO FIXME NOW ; emitCCall [(id,NoHint)] - (CmmLit $ CmmLabel $ mkForeignLabel mod_alloc Nothing False IsFunction) + (CmmLit $ CmmLabel $ mkForeignLabel mod_alloc Nothing ForeignLabelInThisPackage IsFunction) [ (mkLblExpr mkHpcModuleNameLabel,AddrHint) , (CmmLit $ mkIntCLit tickCount,NoHint) , (CmmLit $ mkIntCLit hashNo,NoHint) |