summaryrefslogtreecommitdiff
path: root/mips/main.sail
diff options
context:
space:
mode:
authorAlasdair Armstrong2018-06-25 17:24:41 +0100
committerAlasdair Armstrong2018-06-25 17:42:56 +0100
commit9ed70b51d3e02acb3f11b9f2a6c6a0c9931ba554 (patch)
treeb1a8b0f515a6ea4eff8534c5a4ff2fbda8fcbf1b /mips/main.sail
parent745882aaccfc6f605be008d0ab10b19b4ca5e1f9 (diff)
Use getopt rather than argp for Mac compatibility in C runtime
Also further tweaks to Sail library for C and include sail lib files for tracing
Diffstat (limited to 'mips/main.sail')
-rw-r--r--mips/main.sail5
1 files changed, 5 insertions, 0 deletions
diff --git a/mips/main.sail b/mips/main.sail
index 8790cf66..1d3b0bd1 100644
--- a/mips/main.sail
+++ b/mips/main.sail
@@ -1,4 +1,8 @@
+val cycle_count = { c: "cycle_count" } : unit -> unit
+
+function cycle_count() = ()
+
register instCount : int
val fetch_and_execute : unit -> bool effect {barr, eamem, escape, rmem, rreg, wmv, wreg, undef, wmvt, rmemt}
@@ -38,6 +42,7 @@ function fetch_and_execute () = {
just continue from nextPC, which should have been set to the appropriate
exception vector (along with clearing branchPending etc.) . */
};
+ cycle_count();
loop_again;
}