OxCaml: arrays of unboxed numbers

Author: vouillon

compiler/lib/specialize_js.ml

@@ -188,6 +188,14 @@ let specialize_instr opt_count ~target info i =
           incr opt_count;
           Let (x, Prim (Extern "%direct_int_mod", [ y; z ]))
       | _ -> i)
+  | Let (x, Prim (Extern "caml_make_unboxed_int32_vect_bytecode", [ y ])), _ ->
+      Let (x, Prim (Extern "caml_make_vect", [ y; Pc (Int32 0l) ]))
+  | Let (x, Prim (Extern "caml_make_unboxed_int64_vect_bytecode", [ y ])), _ ->
+      Let (x, Prim (Extern "caml_make_vect", [ y; Pc (Int64 0L) ]))
+  | Let (x, Prim (Extern "caml_make_unboxed_nativeint_vect_bytecode", [ y ])), _ ->
+      Let (x, Prim (Extern "caml_make_vect", [ y; Pc (NativeInt 0l) ]))
+  | Let (x, Prim (Extern "caml_make_unboxed_float32_vect_bytecode", [ y ])), _ ->
+      Let (x, Prim (Extern "caml_make_vect", [ y; Pc (Float32 0L) ]))
   | _, _ -> i
 
 let skip_event cont (Event _ :: l | l) = cont l