Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
03c36c77
Commit
03c36c77
authored
Dec 12, 2007
by
rl@cse.unsw.edu.au
Browse files
Track changes to package ndp
parent
26028c7e
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/VectBuiltIn.hs
View file @
03c36c77
...
...
@@ -63,7 +63,7 @@ mkNDPModule m = mkModule ndpPackageId (mkModuleNameFS m)
nDP_PARRAY
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.PArray"
)
nDP_REPR
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.Repr"
)
nDP_CLOSURE
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.Closure"
)
nDP_
PRIM
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.
Prim
"
)
nDP_
UNBOXED
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.
Unboxed
"
)
nDP_INSTANCES
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.Instances"
)
nDP_COMBINATORS
=
mkNDPModule
FSLIT
(
"Data.Array.Parallel.Lifted.Combinators"
)
...
...
@@ -128,8 +128,8 @@ initBuiltins
preprTyCon
<-
externalTyCon
nDP_PARRAY
FSLIT
(
"PRepr"
)
prTyCon
<-
externalTyCon
nDP_PARRAY
FSLIT
(
"PR"
)
let
[
prDataCon
]
=
tyConDataCons
prTyCon
parrayIntPrimTyCon
<-
externalTyCon
nDP_
PRIM
FSLIT
(
"PArray_Int#"
)
parrayBoolPrimTyCon
<-
externalTyCon
nDP_
PRIM
FSLIT
(
"PArray_Bool#"
)
parrayIntPrimTyCon
<-
externalTyCon
nDP_
UNBOXED
FSLIT
(
"PArray_Int#"
)
parrayBoolPrimTyCon
<-
externalTyCon
nDP_
UNBOXED
FSLIT
(
"PArray_Bool#"
)
closureTyCon
<-
externalTyCon
nDP_CLOSURE
FSLIT
(
":->"
)
voidTyCon
<-
externalTyCon
nDP_REPR
FSLIT
(
"Void"
)
...
...
@@ -146,10 +146,10 @@ initBuiltins
applyClosureVar
<-
externalVar
nDP_CLOSURE
FSLIT
(
"$:"
)
mkClosurePVar
<-
externalVar
nDP_CLOSURE
FSLIT
(
"mkClosureP"
)
applyClosurePVar
<-
externalVar
nDP_CLOSURE
FSLIT
(
"$:^"
)
replicatePAIntPrimVar
<-
externalVar
nDP_
PRIM
FSLIT
(
"replicatePA_Int#"
)
upToPAIntPrimVar
<-
externalVar
nDP_
PRIM
FSLIT
(
"upToPA_Int#"
)
selectPAIntPrimVar
<-
externalVar
nDP_
PRIM
FSLIT
(
"selectPA_Int#"
)
truesPABoolPrimVar
<-
externalVar
nDP_
PRIM
FSLIT
(
"truesPA_Bool#"
)
replicatePAIntPrimVar
<-
externalVar
nDP_
UNBOXED
FSLIT
(
"replicatePA_Int#"
)
upToPAIntPrimVar
<-
externalVar
nDP_
UNBOXED
FSLIT
(
"upToPA_Int#"
)
selectPAIntPrimVar
<-
externalVar
nDP_
UNBOXED
FSLIT
(
"selectPA_Int#"
)
truesPABoolPrimVar
<-
externalVar
nDP_
UNBOXED
FSLIT
(
"truesPA_Bool#"
)
lengthPAVar
<-
externalVar
nDP_PARRAY
FSLIT
(
"lengthPA#"
)
replicatePAVar
<-
externalVar
nDP_PARRAY
FSLIT
(
"replicatePA#"
)
emptyPAVar
<-
externalVar
nDP_PARRAY
FSLIT
(
"emptyPA"
)
...
...
@@ -349,7 +349,7 @@ primMethod :: TyCon -> String -> DsM (Maybe Var)
primMethod
tycon
method
|
Just
suffix
<-
lookupNameEnv
prim_ty_cons
(
tyConName
tycon
)
=
liftM
Just
$
dsLookupGlobalId
=<<
lookupOrig
nDP_
PRIM
(
mkVarOcc
$
method
++
suffix
)
$
dsLookupGlobalId
=<<
lookupOrig
nDP_
UNBOXED
(
mkVarOcc
$
method
++
suffix
)
|
otherwise
=
return
Nothing
...
...
@@ -357,7 +357,7 @@ primPArray :: TyCon -> DsM (Maybe TyCon)
primPArray
tycon
|
Just
suffix
<-
lookupNameEnv
prim_ty_cons
(
tyConName
tycon
)
=
liftM
Just
$
dsLookupTyCon
=<<
lookupOrig
nDP_
PRIM
(
mkOccName
tcName
$
"PArray"
++
suffix
)
$
dsLookupTyCon
=<<
lookupOrig
nDP_
UNBOXED
(
mkOccName
tcName
$
"PArray"
++
suffix
)
|
otherwise
=
return
Nothing
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment