Fix the build on amd64/Linux

[ghc-hetmet.git] / compiler / codeGen / StgCmmHpc.hs

diff --git a/compiler/codeGen/StgCmmHpc.hs b/compiler/codeGen/StgCmmHpc.hs
index f53c5c6..ab95a66 100644 (file)
--- a/compiler/codeGen/StgCmmHpc.hs
+++ b/compiler/codeGen/StgCmmHpc.hs
@@ -21,6 +21,7 @@ import FastString
 import HscTypes
 import Char
 import StaticFlags
+import BasicTypes
 
 mkTickBox :: Module -> Int -> CmmAGraph
 mkTickBox mod n 
@@ -54,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)
+               (CmmLit $ CmmLabel $ mkForeignLabel mod_alloc Nothing False IsFunction)
                [ (mkLblExpr mkHpcModuleNameLabel,AddrHint)
                , (CmmLit $ mkIntCLit tickCount,NoHint)
                , (CmmLit $ mkIntCLit hashNo,NoHint)