Type should be unaliased when expecting an array
This commit is contained in:
parent
8cc879be7a
commit
33bc0adff1
1 changed files with 1 additions and 1 deletions
|
@ -158,7 +158,7 @@ let mk_plus_one e = match e.e_desc with
|
|||
|
||||
(** Creates the action list that copies [src] to [dest],
|
||||
updating the value at index [idx_list] with the value [v]. *)
|
||||
let rec update_array dest src idx_list v = match dest.pat_ty, idx_list with
|
||||
let rec update_array dest src idx_list v = match Modules.unalias_type dest.pat_ty, idx_list with
|
||||
| Tarray (t, n), idx::idx_list ->
|
||||
(*Body of the copy loops*)
|
||||
let copy i =
|
||||
|
|
Loading…
Reference in a new issue