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:
ea81010
)
Add vectorisation-related OccName derivation scheme
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 26 Jul 2007 02:41:11 +0000
(
02:41
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Thu, 26 Jul 2007 02:41:11 +0000
(
02:41
+0000)
compiler/basicTypes/OccName.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/OccName.lhs
b/compiler/basicTypes/OccName.lhs
index
644b59d
..
651d28b
100644
(file)
--- a/
compiler/basicTypes/OccName.lhs
+++ b/
compiler/basicTypes/OccName.lhs
@@
-33,7
+33,7
@@
module OccName (
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
mkVectOcc, mkVectTyConOcc, mkVectDataConOcc, mkVectIsoOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
mkVectOcc, mkVectTyConOcc, mkVectDataConOcc, mkVectIsoOcc,
- mkPArrayTyConOcc, mkPArrayDataConOcc,
+ mkPArrayTyConOcc, mkPArrayDataConOcc, mkPADFunOcc,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
@@
-466,6
+466,7
@@
mkVectDataConOcc = mk_simple_deriv dataName ":VD_"
mkVectIsoOcc = mk_simple_deriv varName "$VI_"
mkPArrayTyConOcc = mk_simple_deriv tcName ":VP_"
mkPArrayDataConOcc = mk_simple_deriv dataName ":VPD_"
mkVectIsoOcc = mk_simple_deriv varName "$VI_"
mkPArrayTyConOcc = mk_simple_deriv tcName ":VP_"
mkPArrayDataConOcc = mk_simple_deriv dataName ":VPD_"
+mkPADFunOcc = mk_simple_deriv varName "$PA_"
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)