diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2011-06-24 13:50:27 +1000 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2011-06-24 13:50:27 +1000 |
| commit | 1891f1f5fafb9c89bbced5fc1ee84d31d9e923ba (patch) | |
| tree | 0e94ebe3bd069739e029f766a18697dd1d848084 /testsuite/tests | |
| parent | f2a3fac683eb2d9436412b5cc85fcafb6d6aea23 (diff) | |
| download | haskell-1891f1f5fafb9c89bbced5fc1ee84d31d9e923ba.tar.gz | |
Fix dph-words. sliceP no wants its second argument to be the slice length.
from George.
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghc-regress/dph/words/WordsVect.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/dph/words/dph-words.T | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/testsuite/tests/ghc-regress/dph/words/WordsVect.hs b/testsuite/tests/ghc-regress/dph/words/WordsVect.hs index 43880fd563..abf416e763 100644 --- a/testsuite/tests/ghc-regress/dph/words/WordsVect.hs +++ b/testsuite/tests/ghc-regress/dph/words/WordsVect.hs @@ -71,8 +71,8 @@ stateOfString str | len == 1 = stateOfChar (str !: 0) | otherwise = let half = len `div` 2 - s1 = sliceP 0 half str - s2 = sliceP half len str + s1 = sliceP 0 half str + s2 = sliceP half (len-half) str in plusState (stateOfString s1) (stateOfString s2) in result diff --git a/testsuite/tests/ghc-regress/dph/words/dph-words.T b/testsuite/tests/ghc-regress/dph/words/dph-words.T index 9d40d1d7b8..c89d01b08e 100644 --- a/testsuite/tests/ghc-regress/dph/words/dph-words.T +++ b/testsuite/tests/ghc-regress/dph/words/dph-words.T @@ -7,13 +7,12 @@ test ('dph-words-opt' , only_ways(['normal']) ] , multimod_compile_and_run , [ 'Main' - , '-Odph -fdph-par']) + , '-Odph -fdph-par -fno-liberate-case']) test ('dph-words-fast' , [ reqlib('dph-par') , reqlib('dph-prim-par') - , expect_broken(5065) , only_ways(['normal']) ] , multimod_compile_and_run , [ 'Main' |