浏览代码

use more precise timer

Nicolas Cannasse 13 年之前
父节点
当前提交
ff46d2581b
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      common.ml

+ 1 - 1
common.ml

@@ -241,7 +241,7 @@ type timer_infos = {
 	mutable total : float;
 }
 
-let get_time = Unix.gettimeofday
+let get_time = Extc.cpu_time
 let htimers = Hashtbl.create 0
 
 let new_timer name =