diff options
| author | Brian Campbell | 2018-06-22 18:38:08 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-06-22 18:38:14 +0100 |
| commit | 86b869b24ad6cba5074bbf17bbbf7622dcf48281 (patch) | |
| tree | d508f4d7b9d3814b10a97609203be37491aa1c96 /test | |
| parent | fbfeea9cbe4af77059ba0f04cc758d9f26c0083a (diff) | |
Fix up constraints in OCaml reg_ref test
Diffstat (limited to 'test')
| -rw-r--r-- | test/ocaml/reg_ref/rr.sail | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/ocaml/reg_ref/rr.sail b/test/ocaml/reg_ref/rr.sail index f6d40a08..667c7d77 100644 --- a/test/ocaml/reg_ref/rr.sail +++ b/test/ocaml/reg_ref/rr.sail @@ -42,12 +42,12 @@ val slice_bits : forall 'n 'm. slice('n, 'm) -> bits('m) function slice_bits MkSlice(_, xs) = xs /* Take a slice from a bitvector */ -val vector_slice : forall 'n 'm 'o, 0 <= 'm <= 'o <= 'n. +val vector_slice : forall 'n 'm 'o, 0 <= 'm <= 'o < 'n. (bits('n), atom('o), atom('m)) -> slice('m, 'o - ('m - 1)) function vector_slice (v, to, from) = MkSlice(from, v[to .. from]) -val slice_slice : forall 'n 'm 'o 'p, 'm <= 'o & 'o - 'p <= 'n. +val slice_slice : forall 'n 'm 'o 'p, 0 <= 'p <= 'm <= 'o & 'o - 'p < 'n. (slice('p, 'n), atom('o), atom('m)) -> slice('m, 'o - ('m - 1)) function slice_slice (MkSlice(start, v), to, from) = MkSlice(from, v[to - start .. from - start]) |