From 8e8df5b7c6f914651d1da5baa4cb2b3c058da720 Mon Sep 17 00:00:00 2001 From: Robert Norton Date: Thu, 21 Nov 2019 13:10:02 +0000 Subject: Implement -cycle-limit option for OCaml emulator similar to one for C. --- lib/main.ml | 3 ++- src/sail_lib.ml | 8 ++++++++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lib/main.ml b/lib/main.ml index c1b6fcae..a3541c69 100644 --- a/lib/main.ml +++ b/lib/main.ml @@ -60,7 +60,8 @@ let options = Arg.align [ | [fname;addr] -> (fname, Nat_big_num.of_string addr) | _ -> raise (Arg.Bad (s ^ " not of form @")) in opt_raw_files := (file, addr) :: !opt_raw_files), - " load a raw binary in memory at given address.")] + " load a raw binary in memory at given address."); + ("-cycle-limit", Arg.Set_int (Sail_lib.opt_cycle_limit), " exit after given number of instructions executed.")] let usage_msg = "Sail OCaml RTS options:" diff --git a/src/sail_lib.ml b/src/sail_lib.ml index 8251f9b4..03994657 100644 --- a/src/sail_lib.ml +++ b/src/sail_lib.ml @@ -17,6 +17,14 @@ let opt_trace = ref false let trace_depth = ref 0 let random = ref false + +let opt_cycle_limit = ref 0 +let cycle_count = ref 0 + +let cycle_limit_reached () = + cycle_count := !cycle_count + 1; + !opt_cycle_limit != 0 && !cycle_count >= !opt_cycle_limit + let sail_call (type t) (f : _ -> t) = let module M = struct exception Return of t end -- cgit v1.2.3