Commit fdbd3fea authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Track changes to package ndp

parent 3403e407
......@@ -149,13 +149,13 @@ initBuiltins
upToPAIntPrimVar <- externalVar nDP_PRIM FSLIT("upToPA_Int#")
selectPAIntPrimVar <- externalVar nDP_PRIM FSLIT("selectPA_Int#")
truesPABoolPrimVar <- externalVar nDP_PRIM FSLIT("truesPA_Bool#")
lengthPAVar <- externalVar nDP_PARRAY FSLIT("lengthPA")
replicatePAVar <- externalVar nDP_PARRAY FSLIT("replicatePA")
lengthPAVar <- externalVar nDP_PARRAY FSLIT("lengthPA#")
replicatePAVar <- externalVar nDP_PARRAY FSLIT("replicatePA#")
emptyPAVar <- externalVar nDP_PARRAY FSLIT("emptyPA")
packPAVar <- externalVar nDP_PARRAY FSLIT("packPA")
packPAVar <- externalVar nDP_PARRAY FSLIT("packPA#")
combines <- mapM (externalVar nDP_PARRAY)
[mkFastString ("combine" ++ show i ++ "PA")
[mkFastString ("combine" ++ show i ++ "PA#")
| i <- [2..mAX_NDP_COMBINE]]
let combinePAVars = listArray (2, mAX_NDP_COMBINE) combines
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment