Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Ara Adkins
Glasgow Haskell Compiler
Commits
3167d74f
Commit
3167d74f
authored
Jun 24, 2011
by
Ian Lynagh
Browse files
Merge branch 'master' of
http://darcs.haskell.org/testsuite
parents
8a1d0833
8e1bed9c
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/dph/words/WordsVect.hs
View file @
3167d74f
...
...
@@ -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
...
...
testsuite/tests/ghc-regress/dph/words/dph-words.T
View file @
3167d74f
...
...
@@ -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
'
...
...
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