summaryrefslogtreecommitdiff
path: root/mips/prelude.sail
diff options
context:
space:
mode:
authorAlasdair Armstrong2018-06-21 16:06:21 +0100
committerAlasdair Armstrong2018-06-21 16:06:21 +0100
commit3658789d204eb100e901a2adb67b6bf8a30157bf (patch)
tree65eb0255c01214cc044ef88f3e15c8b6641901ec /mips/prelude.sail
parent5489108f054fb51aa190e1fda847d8ab59ee915b (diff)
Fix MIPS wrt changes to C runtime
This plus changes to bitfield internals is enough to run some MIPS tests at 1Mhz.
Diffstat (limited to 'mips/prelude.sail')
-rw-r--r--mips/prelude.sail6
1 files changed, 3 insertions, 3 deletions
diff --git a/mips/prelude.sail b/mips/prelude.sail
index b2c2931b..bb80ec86 100644
--- a/mips/prelude.sail
+++ b/mips/prelude.sail
@@ -103,10 +103,10 @@ val quotient = {ocaml: "quotient", lem: "integerDiv"} : (int, int) -> int
overload operator / = {quotient_nat, quotient}
-val quot_round_zero = {ocaml: "quot_round_zero", lem: "hardware_quot", _ : "div_int"} : (int, int) -> int
-val rem_round_zero = {ocaml: "rem_round_zero", lem: "hardware_mod", _ : "mod_int"} : (int, int) -> int
+val quot_round_zero = {ocaml: "quot_round_zero", lem: "hardware_quot", _ : "tdiv_int"} : (int, int) -> int
+val rem_round_zero = {ocaml: "rem_round_zero", lem: "hardware_mod", _ : "tmod_int"} : (int, int) -> int
-val modulus = {ocaml: "modulus", lem: "hardware_mod", _ : "mod_int"} : forall 'n, 'n > 0 . (int, atom('n)) -> range(0, 'n - 1)
+val modulus = {ocaml: "modulus", lem: "hardware_mod", _ : "tmod_int"} : forall 'n, 'n > 0 . (int, atom('n)) -> range(0, 'n - 1)
overload operator % = {modulus}