Fixed a bug where loops were not generated for copying arrays.

This commit is contained in:
Valentin Perrelle 2014-06-25 18:53:34 +02:00
parent 478e621ac5
commit 1f2e084e6e

View file

@ -218,7 +218,7 @@ let rec create_affect_lit dest l ty =
(** Creates the expression dest <- src (copying arrays if necessary). *)
and create_affect_stm dest src ty =
match ty with
match unalias_ctype ty with
| Cty_arr (n, bty) ->
(match src with
| Carraylit l -> create_affect_lit dest l bty