projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
686d874
)
Modify generation of OccNames for closure conversion
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 10 May 2007 01:50:27 +0000
(
01:50
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 10 May 2007 01:50:27 +0000
(
01:50
+0000)
compiler/basicTypes/OccName.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/OccName.lhs
b/compiler/basicTypes/OccName.lhs
index
4968463
..
d3047a9
100644
(file)
--- a/
compiler/basicTypes/OccName.lhs
+++ b/
compiler/basicTypes/OccName.lhs
@@
-32,7
+32,7
@@
module OccName (
mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
- mkCloOcc, mkCloTyCoOcc,
+ mkCloOcc, mkCloTyConOcc, mkCloDataConOcc,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
@@
-459,8
+459,9
@@
mkDataTOcc = mk_simple_deriv varName "$t"
mkDataCOcc = mk_simple_deriv varName "$c"
-- Closure conversion
mkDataCOcc = mk_simple_deriv varName "$c"
-- Closure conversion
-mkCloOcc = mk_simple_deriv varName "$CC_"
-mkCloTyCoOcc = mk_simple_deriv tcName ":CC_"
+mkCloOcc = mk_simple_deriv varName "$CC_"
+mkCloTyConOcc = mk_simple_deriv tcName ":CC_"
+mkCloDataConOcc = mk_simple_deriv dataName ":CD_"
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)