From 88ba83c8e50bd37cd6256d4f0fa699bb54103766 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Wed, 18 Jul 2007 02:51:59 +0000 Subject: [PATCH] More vectorisation-related OccNames --- compiler/basicTypes/OccName.lhs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index c747bf8..644b59d 100644 --- 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, + mkPArrayTyConOcc, mkPArrayDataConOcc, -- ** Deconstruction occNameFS, occNameString, occNameSpace, @@ -459,10 +460,12 @@ mkDataTOcc = mk_simple_deriv varName "$t" 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) -- 1.7.10.4