diff options
| author | Alasdair Armstrong | 2017-09-14 15:55:28 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-09-14 15:55:28 +0100 |
| commit | bf509b250cf676e96e11ace54648f30e43848754 (patch) | |
| tree | f0add29f0b908e41c26220ab5af26be1c3ed53ae /lib | |
| parent | 59892ba3127112fd2c5c6b3cd93ab4f29502ebb2 (diff) | |
| parent | 4e7a568bb57337d41dda893044ed84b66e62752f (diff) | |
Merge branch 'experiments' of https://bitbucket.org/Peter_Sewell/sail into experiments
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/prelude_wrappers.sail | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/prelude_wrappers.sail b/lib/prelude_wrappers.sail index 4568f6ab..1d85b4ff 100644 --- a/lib/prelude_wrappers.sail +++ b/lib/prelude_wrappers.sail @@ -1,5 +1,5 @@ -val extern forall Num 'm. ([:'l:], [:'m:], int) -> vector<'l,'m,dec,bit> effect pure to_vec_dec -val extern forall Num 'm. ([:'l:], [:'m:], int) -> vector<'l,'m,inc,bit> effect pure to_vec_inc +val extern forall Num 'l, Num 'm. ([:'l:], [:'m:], int) -> vector<'l,'m,dec,bit> effect pure to_vec_dec +val extern forall Num 'l, Num 'm. ([:'l:], [:'m:], int) -> vector<'l,'m,inc,bit> effect pure to_vec_inc function forall Num 'n, Num 'm. (vector<'m - 1,'m,dec,bit>) to_vec (n) = to_vec_dec ((sizeof 'm) - 1, sizeof 'm, n) function forall Num 'm. (vector<'m - 1,'m,dec,bit>) to_svec (n) = to_vec_dec ((sizeof 'm) - 1, sizeof 'm, n) |