diff options
| author | Gabriel Kerneis | 2014-06-05 16:41:24 +0100 |
|---|---|---|
| committer | Gabriel Kerneis | 2014-06-05 16:41:24 +0100 |
| commit | d83f58cfbd05ed2f52730b6c3ea463161668e75b (patch) | |
| tree | 62e560b57c113372e4788c2ad296c3da8022d673 /src | |
| parent | 2ab53d6ef4890eb1330687e655958a6b8d653a80 (diff) | |
Shorten debug output for power
Diffstat (limited to 'src')
| -rw-r--r-- | src/test/run_power.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/test/run_power.ml b/src/test/run_power.ml index 1400769f..6f90adca 100644 --- a/src/test/run_power.ml +++ b/src/test/run_power.ml @@ -128,7 +128,8 @@ let run () = (* entry point: unit -> unit cycle *) let entry = E_aux(E_app(Id_aux((Id "cycle"),Unknown), [E_aux(E_lit (L_aux(L_unit,Unknown)),(Unknown,None))]),(Unknown,None)) in - let t =time_it (fun () -> fde_loop 0 entry !mem reg (!file, Power.defs)) () in + let name = Filename.basename !file in + let t =time_it (fun () -> fde_loop 0 entry !mem reg (name, Power.defs)) () in eprintf "Execution time: %f seconds\n" t ;; |