X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgHpc.hs;h=ce317178858fe9bdf30438beb72550f4cc7c1a95;hb=f8f4cb3f3a46e0495917a927cefe906531b7b38e;hp=9ae576944b31948bc57b29d748a7526a2805ebc5;hpb=bae0a5fde7f43b2d4558b56b1f63bf0cbf5563b7;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs
index 9ae5769..ce31717 100644
--- a/compiler/codeGen/CgHpc.hs
+++ b/compiler/codeGen/CgHpc.hs
@@ -21,6 +21,7 @@ import FastString
 import HscTypes
 import Panic
 import Char
+import BasicTypes
 
 import Data.Word
 
@@ -66,7 +67,7 @@ initHpc this_mod (HpcInfo tickCount hashNo)
                PlayRisky
                [CmmHinted id NoHint]
                (CmmCallee
-                 (CmmLit $ CmmLabel $ mkForeignLabel mod_alloc Nothing False)
+                 (CmmLit $ CmmLabel $ mkForeignLabel mod_alloc Nothing False IsFunction)
                   CCallConv
                )
                [ CmmHinted (mkLblExpr mkHpcModuleNameLabel) AddrHint