diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:01:33 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:01:33 +0000 |
| commit | 207802589da0d23c3f16195f453b24a1e46e322d (patch) | |
| tree | 2a17423ada08e5a890b17132440dda10c4f860bc /compiler/codeGen/CgHpc.hs | |
| parent | bb5c3f58b1da850b68e0745766f2786e538b5fbf (diff) | |
| download | haskell-207802589da0d23c3f16195f453b24a1e46e322d.tar.gz | |
Added pointerhood to LocalReg
This version should compile but is still incomplete as it introduces
potential bugs at the places marked 'TODO FIXME NOW'.
It is being recorded to help keep track of changes.
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 f70d159739..e457e4c944 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -56,7 +56,7 @@ hpcTable this_mod (NoHpcInfo) = error "TODO: impossible" initHpc :: Module -> HpcInfo -> Code initHpc this_mod (HpcInfo tickCount hashNo) - = do { id <- newTemp wordRep + = do { id <- newNonPtrTemp wordRep -- TODO FIXME NOW ; emitForeignCall' PlayRisky [(id,NoHint)] |