projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-11-18 10:45:45 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
codeGen
/
CgCon.lhs
diff --git
a/ghc/compiler/codeGen/CgCon.lhs
b/ghc/compiler/codeGen/CgCon.lhs
index
3d73263
..
ce9e675
100644
(file)
--- a/
ghc/compiler/codeGen/CgCon.lhs
+++ b/
ghc/compiler/codeGen/CgCon.lhs
@@
-316,7
+316,7
@@
cgReturnDataCon con amodes
temp = CTemp uniq PtrRep
in
temp = CTemp uniq PtrRep
in
- profCtrC SLIT("TICK_UPD_CON_IN_PLACE")
+ profCtrC FSLIT("TICK_UPD_CON_IN_PLACE")
[mkIntCLit (length amodes)] `thenC`
getSpRelOffset args_sp `thenFC` \ sp_rel ->
[mkIntCLit (length amodes)] `thenC`
getSpRelOffset args_sp `thenFC` \ sp_rel ->
@@
-352,7
+352,7
@@
cgReturnDataCon con amodes
let (ret_regs, leftovers) =
assignRegs [] (map getAmodeRep amodes)
in
let (ret_regs, leftovers) =
assignRegs [] (map getAmodeRep amodes)
in
- profCtrC SLIT("TICK_RET_UNBOXED_TUP")
+ profCtrC FSLIT("TICK_RET_UNBOXED_TUP")
[mkIntCLit (length amodes)] `thenC`
doTailCall amodes ret_regs
[mkIntCLit (length amodes)] `thenC`
doTailCall amodes ret_regs
@@
-384,7
+384,7
@@
cgReturnDataCon con amodes
-- RETURN
-- RETURN
- profCtrC SLIT("TICK_RET_NEW") [mkIntCLit (length amodes)] `thenC`
+ profCtrC FSLIT("TICK_RET_NEW") [mkIntCLit (length amodes)] `thenC`
-- could use doTailCall here.
performReturn (move_to_reg amode node) return
\end{code}
-- could use doTailCall here.
performReturn (move_to_reg amode node) return
\end{code}