トップ «前の日記(2004-11-13) 最新 次の日記(2004-11-15)» 月表示 編集

日々の流転


2004-11-14 [長年日記]

λ. RTDSC.hsc

module RDTSC (rdtsc) where
import Foreign

#def inline unsigned long long exec_rdtsc(void){ asm("  rdtsc"); }

foreign import ccall unsafe "exec_rdtsc" rdtsc :: IO Word64

そういえば、以前にこんなモジュールを書いたことがあったのだけど、GHC 6.2.1 だと何故か常に0が返ってきて、inlineを消さないと期待通りの動きをしなかった。これは何でだろう?

Tags: haskell