7

ハッキングの24日間でEKGを見た後、プログラムの1つで使用しようとしましたが、メモリ割り当てが表示されませんでした。

そこで、メモリを消費するだけのサンプルプログラムでもう一度試してみました。

{-# LANGUAGE OverloadedStrings #-}
module Main where

import System.Remote.Monitoring (forkServer)
import Control.Applicative ((<$>))
import Control.Monad (foldM, forM_)
import Control.Monad.Primitive (PrimMonad, PrimState)
import Data.Vector.Mutable (MVector, replicate, read, write, length)
import Prelude hiding (read, length, replicate)
import Text.Printf

accumBy :: (Functor m, PrimMonad m) => (a -> a -> a) -> MVector (PrimState m) a -> m a
accumBy f v = do
  a <- read v 0
  foldM (\a i -> do
    a' <- f a <$> read v i
    write v i a'
    return a'
    ) a [1 .. length v - 1]

main :: IO ()
main = do
  forkServer "localhost" 8000
  forM_ [1..] $ \n -> do
    v <- replicate (n*1024) (n :: Int)
    accumBy (+) v >>= printf "%08x\n"

プログラムは正常に実行されます

% ghc --make Temp.hs -rtsopts && ./Temp +RTS -K32mM -RTS
00000400
00001000
00002400
...

しかし、EKGは私のメモリ使用量をまったく検出していないようです

EKG統計

私は何が間違っているのですか？

4

1 に答える 1

11

統計を収集するには-T、orまたは-tor-Sまたは-s RTSオプションを使用する必要があります。例：

ghc --make Temp.hs -rtsopts && ./Temp +RTS -T -K32mM -RTS
于 2012-12-14T23:38:53.573 に答える