From: andy@galois.com <unknown>
Date: Wed, 25 Oct 2006 20:14:22 +0000 (+0000)
Subject: fixing type error inside Hpc inc; we had a 32 bit '1'.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dd8c1ab22f0bf0eaa9028f1621ceac02aea96205;p=ghc-hetmet.git

fixing type error inside Hpc inc; we had a 32 bit '1'.
---

diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs
index 53d81c9..9620973 100644
--- a/compiler/codeGen/CgHpc.hs
+++ b/compiler/codeGen/CgHpc.hs
@@ -29,7 +29,7 @@ cgTickBox mod n = do
        stmtsC [ CmmStore tick_box
                          (CmmMachOp (MO_Add I64)
                                                [ CmmLoad tick_box I64
-                                               , CmmLit (mkIntCLit 1)
+                                               , CmmLit (CmmInt 1 I64)
                                                ])
               ]