diff options
| author | Brian Campbell | 2017-10-25 12:19:08 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-10-25 12:19:08 +0100 |
| commit | d1d7f0ef16080200187230d9708155668af6edbf (patch) | |
| tree | 505dce3dc7a2f3f4841909422d822b292ca91d9b /lib/prelude_wrappers.sail | |
| parent | 05b00c86ee484a3e7f108f306e77ae200816a8ad (diff) | |
Avoid name clash in generated Lem
(complains due to added val spec)
Diffstat (limited to 'lib/prelude_wrappers.sail')
| -rw-r--r-- | lib/prelude_wrappers.sail | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/prelude_wrappers.sail b/lib/prelude_wrappers.sail index b36dcf9c..7fd6eac6 100644 --- a/lib/prelude_wrappers.sail +++ b/lib/prelude_wrappers.sail @@ -78,5 +78,5 @@ function forall Num 'n, Num 'l. (vector<'n,'l,inc,bit>) cast_0_vec_inc i = to_ve function forall Num 'n, Num 'l. (vector<'n,'l,inc,bit>) cast_1_vec_inc i = to_vec_inc (sizeof 'n, sizeof 'l, i) function forall Num 'n, Num 'l. (vector<'n,'l,inc,bit>) cast_01_vec_inc i = to_vec_inc (sizeof 'n, sizeof 'l, i) -val extern forall Num 'n, Num 'm, 'n >= 'm - 1, 'm >= 1. ([:'n:], [:'m:], bit) -> vector<'n,'m,dec,bit> effect pure cast_bit_vec' = "cast_bit_vec" +val extern forall Num 'n, Num 'm, 'n >= 'm - 1, 'm >= 1. ([:'n:], [:'m:], bit) -> vector<'n,'m,dec,bit> effect pure cast_bit_vec' = "cast_bit_vec_basic" function forall Num 'n, Num 'm, 'n >= 'm - 1, 'm >= 1. (vector<'n,'m,dec,bit>) cast_bit_vec b = cast_bit_vec' (sizeof 'n, sizeof 'm, b) |