From: simonmar <unknown>
Date: Wed, 23 Jun 1999 10:44:59 +0000 (+0000)
Subject: [project @ 1999-06-23 10:44:59 by simonmar]
X-Git-Tag: Approximately_9120_patches~6103
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=40dea1279d4d7940bfdfd6611939b8ec3588501c

[project @ 1999-06-23 10:44:59 by simonmar]
Don't inline strLength, it causes gcc to run out of registers.
---

diff --git a/ghc/compiler/utils/PrimPacked.lhs b/ghc/compiler/utils/PrimPacked.lhs
index 153ff5d..652aaab 100644
--- 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,