WIP

Author: vouillon

compiler/lib-wasm/gc_target.ml

@@ -1442,10 +1442,8 @@ module Bigarray = struct
               let* e = Memory.unbox_float x in
               return (W.F32DemoteF64 e) )
       | Float64 -> "dv_set_f64", F64, 3, Memory.unbox_float
-      | Int8_signed -> "dv_set_i8", I32, 0, Fun.id
-      | Int8_unsigned | Char -> "dv_set_ui8", I32, 0, Fun.id
-      | Int16_signed -> "dv_set_i16", I32, 1, Fun.id
-      | Int16_unsigned -> "dv_set_ui16", I32, 1, Fun.id
+      | Int8_signed | Int8_unsigned | Char -> "dv_set_ui8", I32, 0, Fun.id
+      | Int16_signed | Int16_unsigned -> "dv_set_ui16", I32, 1, Fun.id
       | Int32 -> "dv_set_i32", I32, 2, Memory.unbox_int32
       | Nativeint -> "dv_set_i32", I32, 2, Memory.unbox_nativeint
       | Int64 -> "dv_set_i64", I64, 3, Memory.unbox_int64