diff options
| author | Alasdair Armstrong | 2018-06-25 17:24:41 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-06-25 17:42:56 +0100 |
| commit | 9ed70b51d3e02acb3f11b9f2a6c6a0c9931ba554 (patch) | |
| tree | b1a8b0f515a6ea4eff8534c5a4ff2fbda8fcbf1b /mips/main.sail | |
| parent | 745882aaccfc6f605be008d0ab10b19b4ca5e1f9 (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.sail | 5 |
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; } |
