From dc6fa4f565fa0963555b84cd344d744b4b98910f Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Thu, 26 Jul 2007 02:41:11 +0000 Subject: [PATCH] Add vectorisation-related OccName derivation scheme --- compiler/basicTypes/OccName.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index 644b59d..651d28b 100644 --- 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, - mkPArrayTyConOcc, mkPArrayDataConOcc, + mkPArrayTyConOcc, mkPArrayDataConOcc, mkPADFunOcc, -- ** 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_" +mkPADFunOcc = mk_simple_deriv varName "$PA_" mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ) -- 1.7.10.4