日々の流転

λ. 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を消さないと期待通りの動きをしなかった。これは何でだろう?