[commit: testsuite] master: dph/words: don't inline the vectorised exported functions (50b144a)

[Manuel Chakravarty]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/50b144a529f7c9a0f35fe343d4c99fa489917d13

>---------------------------------------------------------------

commit 50b144a529f7c9a0f35fe343d4c99fa489917d13
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
Date:   Tue Feb 5 10:32:10 2013 +1100

    dph/words: don't inline the vectorised exported functions

>---------------------------------------------------------------

 tests/dph/words/WordsVect.hs |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/tests/dph/words/WordsVect.hs b/tests/dph/words/WordsVect.hs
index ba4abc5..344442f 100644
--- a/tests/dph/words/WordsVect.hs
+++ b/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