, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
, lengthPAName, replicatePAName, emptyPAName, packPAName,
- combinePAName, intEqPAName ]
+ combinePAName ]
\end{code}
nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
nDP_REPR = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Repr")
-nDP_UTILS = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Utils")
nDP_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure")
nDP_INSTANCES = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Instances")
nDP_UARR = mkNDPModule FSLIT("Data.Array.Parallel.Unlifted.Flat.UArr")
emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey
packPAName = varQual nDP_PARRAY FSLIT("packPA") packPAIdKey
combinePAName = varQual nDP_PARRAY FSLIT("combinePA") combinePAIdKey
-intEqPAName = varQual nDP_UTILS FSLIT("intEqPA") intEqPAIdKey
closureTyConName = tcQual nDP_CLOSURE FSLIT(":->") closureTyConKey
mkClosureName = varQual nDP_CLOSURE FSLIT("mkClosure") mkClosureIdKey
applyClosureName = varQual nDP_CLOSURE FSLIT("$:") applyClosureIdKey
emptyPAIdKey = mkPreludeMiscIdUnique 133
packPAIdKey = mkPreludeMiscIdUnique 134
combinePAIdKey = mkPreludeMiscIdUnique 135
-intEqPAIdKey = mkPreludeMiscIdUnique 136
-mkPRIdKey = mkPreludeMiscIdUnique 137
+mkPRIdKey = mkPreludeMiscIdUnique 136
---------------- Template Haskell -------------------
-- USES IdUniques 200-399
, emptyPAVar :: Var
-- , packPAVar :: Var
-- , combinePAVar :: Var
- , intEqPAVar :: Var
, liftingContext :: Var
}
emptyPAVar <- dsLookupGlobalId emptyPAName
-- packPAVar <- dsLookupGlobalId packPAName
-- combinePAVar <- dsLookupGlobalId combinePAName
- intEqPAVar <- dsLookupGlobalId intEqPAName
liftingContext <- liftM (\u -> mkSysLocal FSLIT("lc") u intPrimTy)
newUnique
, emptyPAVar = emptyPAVar
-- , packPAVar = packPAVar
-- , combinePAVar = combinePAVar
- , intEqPAVar = intEqPAVar
, liftingContext = liftingContext
}