Commit 1891f1f5 authored by benl's avatar benl
Browse files

Fix dph-words. sliceP no wants its second argument to be the slice length.

from George.
parent f2a3fac6
......@@ -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
......
......@@ -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'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment