[project @ 1999-06-23 10:44:59 by simonmar]

[ghc-hetmet.git] / ghc / compiler / utils / PrimPacked.lhs

diff --git a/ghc/compiler/utils/PrimPacked.lhs b/ghc/compiler/utils/PrimPacked.lhs
index 153ff5d..652aaab 100644 (file)
--- a/ghc/compiler/utils/PrimPacked.lhs
+++ b/ghc/compiler/utils/PrimPacked.lhs
@@ -62,7 +62,7 @@ strLength a =
     _ccall_ strlen a  >>= \ len@(I# _) ->
     return len
  )
-
+{-# NOINLINE strLength #-}
 \end{code}
 
 Copying a char string prefix into a byte array,