projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e794057
)
inline allocaArray0, to fix withCString benchmark
author
Simon Marlow
<marlowsd@gmail.com>
Fri, 23 Apr 2010 12:47:29 +0000
(12:47 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Fri, 23 Apr 2010 12:47:29 +0000
(12:47 +0000)
Foreign/Marshal/Array.hs
patch
|
blob
|
history
diff --git
a/Foreign/Marshal/Array.hs
b/Foreign/Marshal/Array.hs
index
89859d4
..
8e013fe
100644
(file)
--- 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)
--
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
--
-- |Adjust the size of an array
--