From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 23 Apr 2010 12:47:29 +0000 (+0000)
Subject: inline allocaArray0, to fix withCString benchmark
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=0fcdf0d718105c74453a41620c6242ac23897ad7

inline allocaArray0, to fix withCString benchmark
---

diff --git a/Foreign/Marshal/Array.hs b/Foreign/Marshal/Array.hs
index 89859d4..8e013fe 100644
--- a/Foreign/Marshal/Array.hs
+++ b/Foreign/Marshal/Array.hs
@@ -108,6 +108,9 @@ allocaArray  = doAlloca undefined
 --
 allocaArray0      :: Storable a => Int -> (Ptr a -> IO b) -> IO b
 allocaArray0 size  = allocaArray (size + 1)
+{-# INLINE allocaArray0 #-}
+  -- needed to get allocaArray to inline into withCString, for unknown
+  -- reasons --SDM 23/4/2010, see #4004 for benchmark
 
 -- |Adjust the size of an array
 --