rdtsc-1.2.0.0: tests/TestRdtsc.hs

module Main where

import System.CPUTime.Rdtsc

main = do
  t1 <- rdtsc
  t2 <- rdtsc
  putStrLn ("Cost of rdtsc (ffi call):    " ++ show (t2 - t1))