diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2013-02-05 10:32:10 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2013-02-06 13:06:09 +1100 |
| commit | a9387d924ca34aec6a4802b08e283c44715769eb (patch) | |
| tree | d396bc81d5fae2268a67f593a1a0e118b822bce0 /testsuite/tests/dph | |
| parent | 9dba3a82c1bce2ffba1c1ef098fbbf84ede90bbc (diff) | |
| download | haskell-a9387d924ca34aec6a4802b08e283c44715769eb.tar.gz | |
dph/words: don't inline the vectorised exported functions
Diffstat (limited to 'testsuite/tests/dph')
| -rw-r--r-- | testsuite/tests/dph/words/WordsVect.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/testsuite/tests/dph/words/WordsVect.hs b/testsuite/tests/dph/words/WordsVect.hs index ba4abc5d39..344442f3fb 100644 --- a/testsuite/tests/dph/words/WordsVect.hs +++ b/testsuite/tests/dph/words/WordsVect.hs @@ -107,6 +107,7 @@ flattenState ss -- | Break up an array of chars into words then flatten it back. wordsOfPArray :: PArray Word8 -> PArray Word8 +{-# NOINLINE wordsOfPArray #-} wordsOfPArray arr = let str = fromPArrayP arr state = stateOfString str @@ -116,6 +117,7 @@ wordsOfPArray arr -- | Count the number of words in an array wordCountOfPArray :: PArray Word8 -> Int +{-# NOINLINE wordCountOfPArray #-} wordCountOfPArray arr = let str = fromPArrayP arr state = stateOfString str |