From 0fcdf0d718105c74453a41620c6242ac23897ad7 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 23 Apr 2010 12:47:29 +0000 Subject: [PATCH] inline allocaArray0, to fix withCString benchmark --- Foreign/Marshal/Array.hs | 3 +++ 1 file changed, 3 insertions(+) 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 -- -- 1.7.10.4