diff options
| author | Brian Campbell | 2018-06-18 17:39:24 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-06-18 17:39:24 +0100 |
| commit | b399242d6abfe0dced60396bb1abbea1156caafc (patch) | |
| tree | db3331f92ef0a3d9afaa7e6902508413edd86663 /mips/prelude.sail | |
| parent | dbe88c8a54ad7aec225779da639bb1f4237bb0cf (diff) | |
Add bitvector length constraints to mips inequalities
to match new constraints in prelude
Diffstat (limited to 'mips/prelude.sail')
| -rw-r--r-- | mips/prelude.sail | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mips/prelude.sail b/mips/prelude.sail index b2c2931b..f0ce2e5e 100644 --- a/mips/prelude.sail +++ b/mips/prelude.sail @@ -169,10 +169,10 @@ infix 4 >=_s infix 4 <_u infix 4 >=_u -val operator <_s : forall 'n. (bits('n), bits('n)) -> bool -val operator >=_s : forall 'n. (bits('n), bits('n)) -> bool -val operator <_u : forall 'n. (bits('n), bits('n)) -> bool -val operator >=_u : forall 'n. (bits('n), bits('n)) -> bool +val operator <_s : forall 'n, 'n > 0. (bits('n), bits('n)) -> bool +val operator >=_s : forall 'n, 'n > 0. (bits('n), bits('n)) -> bool +val operator <_u : forall 'n, 'n >= 0. (bits('n), bits('n)) -> bool +val operator >=_u : forall 'n, 'n >= 0. (bits('n), bits('n)) -> bool function operator <_s (x, y) = signed(x) < signed(y) function operator >=_s (x, y) = signed(x) >= signed(y) |