Fix the build on amd64/Linux
[ghc-hetmet.git] / compiler / codeGen / CgHpc.hs
index 9ae5769..ce31717 100644 (file)
@@ -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