diff options
| author | Thomas Bauereiss | 2019-03-07 13:28:04 +0000 |
|---|---|---|
| committer | Thomas Bauereiss | 2019-03-07 15:15:14 +0000 |
| commit | e9d0335845cf2caffd4b4626bdedb02732fd8141 (patch) | |
| tree | 6f2263a725b453eb355d0c73b9e0645161d3cfc4 /src | |
| parent | a98c6844fe7ab3dc0c39a27930e6635c5cde89a1 (diff) | |
Fix bug in a mono rewrite helper function
Diffstat (limited to 'src')
| -rw-r--r-- | src/monomorphise.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/monomorphise.ml b/src/monomorphise.ml index 07063ac4..fdc20932 100644 --- a/src/monomorphise.ml +++ b/src/monomorphise.ml @@ -2961,9 +2961,9 @@ let rec rewrite_app env typ (id,args) = else if is_id env (Id "__SetSlice_bits") id then match args with - | [len; slice_len; vector; pos; E_aux (E_app (zeros, _), _)] + | [len; slice_len; vector; start; E_aux (E_app (zeros, _), _)] when is_zeros zeros -> - E_app (mk_id "set_slice_zeros", [len; slice_len; vector; pos]) + E_app (mk_id "set_slice_zeros", [len; vector; start; slice_len]) | _ -> E_app (id, args) else E_app (id,args) |