Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed indexing bug in Permute

  • Loading branch information...
commit f7f994b7602c9b269b2d5177846f31e21436b286 1 parent c2e9812
@blambo authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 Data/Array/Accelerate/Repa/Evaluations.hs
View
4 Data/Array/Accelerate/Repa/Evaluations.hs
@@ -463,12 +463,12 @@ evalPreOpenAcc (Permute f dftAcc p acc) letLevel
$$ text "| otherwise =" <+> permuteArgsDoc)
permuteArgsDoc =
- text "let" <+> (text "srcIdx = fromIndex (extent srcArr) idx"
+ text "let" <+> (text "(Z:.srcIdx) = fromIndex (extent srcArr) idx"
$$ text "newArr = fromFunction"
<+> (text "(extent dftArr)"
$$ text "(\\sh -> case sh == (perm srcIdx) of"
$$ nest 1 (text "True -> (dftArr ! (perm srcIdx)) `comb`"
- <+> text "(srcArr ! srcIdx)"
+ <+> text "(srcArr ! (Z:.srcIdx))"
$$ text "False -> index dftArr sh)")))
$$ text "in permute (idx+1) comb newArr perm srcArr"
Please sign in to comment.
Something went wrong with that request. Please try again.