summaryrefslogtreecommitdiff
path: root/src/test
diff options
context:
space:
mode:
authorKathy Gray2014-02-27 14:01:59 +0000
committerKathy Gray2014-02-27 14:01:59 +0000
commitbfe28e3e443fd28e7182cfeff1cf8b5fa5bc4e5a (patch)
tree715adfee820c1b59b0db2fd93f2614b07a69c8c9 /src/test
parent88a18f8abc20fc1b421d22ed06a75a51bb293414 (diff)
parent7582bed6349cd05d7237168a39d5dad99ede7e38 (diff)
Merge branch 'interp_typed'
Conflicts: src/lem_interp/interp.lem src/lem_interp/run_interp.ml
Diffstat (limited to 'src/test')
-rw-r--r--src/test/vectors.sail7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/test/vectors.sail b/src/test/vectors.sail
index 70cc5973..482ef902 100644
--- a/src/test/vectors.sail
+++ b/src/test/vectors.sail
@@ -2,6 +2,9 @@ let (bit[32]) v = 0b101
let (bit[4]) v2 = [0,1,0,0]
register (bit[32]) i
+let (bit[10]) v3 = 0b0101010111
+register (bit[5]) slice_check
+
register nat match_success
function unit decode ([bitzero, bitzero, bitone, bitzero]) = match_success := 1
@@ -9,6 +12,10 @@ and decode x = match_success := x
function bit main _ = {
+ slice_check := v3;
+ slice_check := v3[1..10];
+ slice_check := v3[5..10];
+
i := [bitzero, bitzero, bitone, bitzero];
(* literal match *)