diff options
| author | Brian Campbell | 2018-05-23 17:54:24 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-05-23 17:54:43 +0100 |
| commit | 7814d91f79d5873224668658c5b11a34affd42ad (patch) | |
| tree | 668b5ffa1620513ee53c4e661055b5a8f7c45371 /lib/vector_inc.sail | |
| parent | 78950fc508dfba3526cb070547db9cfaa436931e (diff) | |
A couple of missing >= 0 constraints on vector handling functions
Diffstat (limited to 'lib/vector_inc.sail')
| -rw-r--r-- | lib/vector_inc.sail | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/vector_inc.sail b/lib/vector_inc.sail index 04c95996..d053f0b3 100644 --- a/lib/vector_inc.sail +++ b/lib/vector_inc.sail @@ -37,9 +37,9 @@ val truncate = { ocaml: "vector_truncate", lem: "vector_truncate", c: "truncate" -} : forall 'm 'n, 'm <= 'n. (vector('n, inc, bit), atom('m)) -> vector('m, inc, bit) +} : forall 'm 'n, 'm >= 0 & 'm <= 'n. (vector('n, inc, bit), atom('m)) -> vector('m, inc, bit) -val mask : forall 'len 'v, 'v >= 0. (atom('len), vector('v, inc, bit)) -> vector('len, inc, bit) +val mask : forall 'len 'v, 'len >= 0 & 'v >= 0. (atom('len), vector('v, inc, bit)) -> vector('len, inc, bit) function mask(len, v) = if len <= length(v) then truncate(v, len) else zero_extend(v, len) |