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:
c6eadad
)
More vectorisation-related OccNames
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 18 Jul 2007 02:51:59 +0000
(
02:51
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 18 Jul 2007 02:51:59 +0000
(
02:51
+0000)
compiler/basicTypes/OccName.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/OccName.lhs
b/compiler/basicTypes/OccName.lhs
index
c747bf8
..
644b59d
100644
(file)
--- a/
compiler/basicTypes/OccName.lhs
+++ b/
compiler/basicTypes/OccName.lhs
@@
-33,6
+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,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
@@
-459,10
+460,12
@@
mkDataTOcc = mk_simple_deriv varName "$t"
mkDataCOcc = mk_simple_deriv varName "$c"
-- Vectorisation
mkDataCOcc = mk_simple_deriv varName "$c"
-- Vectorisation
-mkVectOcc = mk_simple_deriv varName "$v_"
-mkVectTyConOcc = mk_simple_deriv tcName ":V_"
-mkVectDataConOcc = mk_simple_deriv dataName ":VD_"
-mkVectIsoOcc = mk_simple_deriv varName "$VI_"
+mkVectOcc = mk_simple_deriv varName "$v_"
+mkVectTyConOcc = mk_simple_deriv tcName ":V_"
+mkVectDataConOcc = mk_simple_deriv dataName ":VD_"
+mkVectIsoOcc = mk_simple_deriv varName "$VI_"
+mkPArrayTyConOcc = mk_simple_deriv tcName ":VP_"
+mkPArrayDataConOcc = mk_simple_deriv dataName ":VPD_"
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)