diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-30 03:52:25 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-30 03:52:25 +0000 |
| commit | ee79af08084c320762b6b684e2ce8198395cf089 (patch) | |
| tree | e831ea36c1a8f57bc13c4b0e34231cf964b6c335 /compiler/prelude | |
| parent | 49dca6ac4a383c6dd699263f96c2f65959782128 (diff) | |
| download | haskell-ee79af08084c320762b6b684e2ce8198395cf089.tar.gz | |
Fix vectorisation of sum type constructors
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/PrelNames.lhs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 1f09675005..2740d26840 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -223,6 +223,7 @@ ndpNames = [ parrayTyConName, paTyConName, preprTyConName, prTyConName , closureTyConName , mkClosureName, applyClosureName , mkClosurePName, applyClosurePName + , replicatePAIntPrimName, upToPAIntPrimName , lengthPAName, replicatePAName, emptyPAName, packPAName, combinePAName ] \end{code} @@ -702,6 +703,9 @@ prTyConName = tcQual nDP_PARRAY FSLIT("PR") prTyConKey parrayIntPrimTyConName = tcQual nDP_PRIM FSLIT("PArray_Int#") parrayIntPrimTyConKey mkPRName = varQual nDP_PARRAY FSLIT("mkPR") mkPRIdKey +replicatePAIntPrimName = varQual nDP_PRIM FSLIT("replicatePA_Int#") + replicatePAIntPrimIdKey +upToPAIntPrimName = varQual nDP_PRIM FSLIT("upToPA_Int#") upToPAIntPrimIdKey lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey @@ -1090,6 +1094,8 @@ emptyPAIdKey = mkPreludeMiscIdUnique 133 packPAIdKey = mkPreludeMiscIdUnique 134 combinePAIdKey = mkPreludeMiscIdUnique 135 mkPRIdKey = mkPreludeMiscIdUnique 136 +replicatePAIntPrimIdKey = mkPreludeMiscIdUnique 137 +upToPAIntPrimIdKey = mkPreludeMiscIdUnique 138 ---------------- Template Haskell ------------------- -- USES IdUniques 200-399 |