From 30b123f6d3a42f5899e89d435a0add50daa19413 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 1 May 2007 04:14:04 +0000 Subject: [PATCH] OccNames for closure conversion --- compiler/basicTypes/OccName.lhs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index 9fb287f..4968463 100644 --- a/compiler/basicTypes/OccName.lhs +++ b/compiler/basicTypes/OccName.lhs @@ -32,6 +32,7 @@ module OccName ( mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc, mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc, mkInstTyCoOcc, mkEqPredCoOcc, + mkCloOcc, mkCloTyCoOcc, -- ** Deconstruction occNameFS, occNameString, occNameSpace, @@ -457,6 +458,10 @@ mkGenOcc2 = mk_simple_deriv varName "$gto" mkDataTOcc = mk_simple_deriv varName "$t" mkDataCOcc = mk_simple_deriv varName "$c" +-- Closure conversion +mkCloOcc = mk_simple_deriv varName "$CC_" +mkCloTyCoOcc = mk_simple_deriv tcName ":CC_" + mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ) -- Data constructor workers are made by setting the name space -- 1.7.10.4