summaryrefslogtreecommitdiff
path: root/lib/mono_rewrites.sail
diff options
context:
space:
mode:
authorThomas Bauereiss2019-08-14 15:17:42 +0100
committerThomas Bauereiss2019-08-14 17:57:03 +0100
commitf1c483a7c35387fae037b7a6c64356c858945587 (patch)
tree8374876b7dc5e3c8ce32cd0d52c218bb6bb79c80 /lib/mono_rewrites.sail
parentba6d82bdc8c86620d3055d964acab0266eabbf7a (diff)
Fix bug in mono rewrites
Diffstat (limited to 'lib/mono_rewrites.sail')
-rw-r--r--lib/mono_rewrites.sail2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/mono_rewrites.sail b/lib/mono_rewrites.sail
index 53ee1ef8..b38e7935 100644
--- a/lib/mono_rewrites.sail
+++ b/lib/mono_rewrites.sail
@@ -82,7 +82,7 @@ val subrange_subrange_concat : forall 'n 'o 'p 'm 'q 'r 's, 's >= 0 & 'n >= 0 &
function subrange_subrange_concat (s, xs, i, j, ys, i', j') = {
let xs = sail_shiftright(xs & slice_mask(j,i-j+1), j) in
- let ys = sail_shiftright(ys & slice_mask(j',i'-j'+1), j) in
+ let ys = sail_shiftright(ys & slice_mask(j',i'-j'+1), j') in
sail_shiftleft(extzv(s, xs), i' - j' + 1) | extzv(s, ys)
}