projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
vectoriser: adapt to new superclass story part I (dictionary construction)
[ghc-hetmet.git]
/
compiler
/
vectorise
/
Vectorise
/
Builtins
/
Initialise.hs
diff --git
a/compiler/vectorise/Vectorise/Builtins/Initialise.hs
b/compiler/vectorise/Vectorise/Builtins/Initialise.hs
index
992a880
..
d9a1f0d
100644
(file)
--- a/
compiler/vectorise/Vectorise/Builtins/Initialise.hs
+++ b/
compiler/vectorise/Vectorise/Builtins/Initialise.hs
@@
-46,8
+46,10
@@
initBuiltins pkg
let [parrayDataCon] = tyConDataCons parrayTyCon
pdataTyCon <- externalTyCon dph_PArray (fsLit "PData")
let [parrayDataCon] = tyConDataCons parrayTyCon
pdataTyCon <- externalTyCon dph_PArray (fsLit "PData")
- paTyCon <- externalClassTyCon dph_PArray (fsLit "PA")
- let [paDataCon] = tyConDataCons paTyCon
+ pa <- externalClass dph_PArray (fsLit "PA")
+ let paTyCon = classTyCon pa
+ [paDataCon] = tyConDataCons paTyCon
+ paPRSel = classSCSelId pa 0
preprTyCon <- externalTyCon dph_PArray (fsLit "PRepr")
prTyCon <- externalClassTyCon dph_PArray (fsLit "PR")
preprTyCon <- externalTyCon dph_PArray (fsLit "PRepr")
prTyCon <- externalClassTyCon dph_PArray (fsLit "PR")
@@
-127,6
+129,7
@@
initBuiltins pkg
, pdataTyCon = pdataTyCon
, paTyCon = paTyCon
, paDataCon = paDataCon
, pdataTyCon = pdataTyCon
, paTyCon = paTyCon
, paDataCon = paDataCon
+ , paPRSel = paPRSel
, preprTyCon = preprTyCon
, prTyCon = prTyCon
, prDataCon = prDataCon
, preprTyCon = preprTyCon
, prTyCon = prTyCon
, prDataCon = prDataCon