diff options
| author | andy@galois.com <unknown> | 2006-10-25 20:14:22 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2006-10-25 20:14:22 +0000 |
| commit | dd8c1ab22f0bf0eaa9028f1621ceac02aea96205 (patch) | |
| tree | 8e751dfd4387566fd5d1d3235760bfe7f0e2bff7 /compiler/codeGen/CgHpc.hs | |
| parent | 2a2f7ba65a4ed59f6690751d0c096c7484fa8101 (diff) | |
| download | haskell-dd8c1ab22f0bf0eaa9028f1621ceac02aea96205.tar.gz | |
fixing type error inside Hpc inc; we had a 32 bit '1'.
Diffstat (limited to 'compiler/codeGen/CgHpc.hs')
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index 53d81c91fa..9620973d10 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) ]) ] |