Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ae6c9e8c75027bc9352ad9d6c79ead4a355155bd >--------------------------------------------------------------- commit ae6c9e8c75027bc9352ad9d6c79ead4a355155bd Author: Manuel M T Chakravarty <[email protected]> Date: Sun Jul 31 18:22:45 2011 +1000 Warning police >--------------------------------------------------------------- GHC/Stats.hsc | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/GHC/Stats.hsc b/GHC/Stats.hsc index b929b54..676caf6 100644 --- a/GHC/Stats.hsc +++ b/GHC/Stats.hsc @@ -7,11 +7,9 @@ module GHC.Stats , getGCStats ) where -import Foreign.C.Types import Foreign.Marshal.Alloc import Foreign.Storable import Foreign.Ptr -import System.Mem import Data.Int #include "Rts.h" @@ -65,6 +63,7 @@ data GCStats = GCStats -- | Retrieves garbage collection and memory statistics as of the last -- garbage collection. If you would like your statistics as recent as -- possible, first run a 'performGC' from "System.Mem". +getGCStats :: IO GCStats getGCStats = allocaBytes (#size GCStats) $ \p -> do getGCStats_ p bytes_allocated <- (# peek GCStats, bytes_allocated) p _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
