@@ -2651,7 +2651,7 @@ and gen_assign_op ctx acc e1 f =
op ctx (OCall2 (alloc_tmp ctx HVoid, alloc_fun_path ctx (array_class ctx at).cl_path "__expand", ra, ridx));
j();
match at with
- | HI32 | HF64 ->
+ | HUI8 | HUI16 | HI32 | HF32 | HF64 ->
let hbytes = alloc_tmp ctx HBytes in
op ctx (OField (hbytes, ra, 1));
let ridx = shl ctx ridx (type_size_bits at) in
Nicolas Cannasse