@grain/binaryen.ml 0.9.0 → 0.11.1

binaryen-archive/src/binaryen_stubs_features.c

@@ -7,6 +7,13 @@
 #include "ocaml_helpers.h"
 
 
+CAMLprim value
+caml_binaryen_module_get_features(value _module) {
+  CAMLparam1(_module);
+  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
+  CAMLreturn(Val_int(BinaryenModuleGetFeatures(module)));
+}
+
 CAMLprim value
 caml_binaryen_module_set_features(value _module, value _features) {
   CAMLparam2(_module, _features);

binaryen-archive/src/binaryen_stubs_functions.c

@@ -2,6 +2,7 @@
 #include <caml/mlvalues.h>
 #include <caml/fail.h>
 #include <caml/memory.h>
+#include <caml/alloc.h>
 
 #include "binaryen-c.h"
 #include "ocaml_helpers.h"
@@ -15,6 +16,22 @@ static value alloc_BinaryenFunctionRef(BinaryenFunctionRef fun)
   return v;
 }
 
+/* Allocating an OCaml custom block to hold the given BinaryenExpressionRef */
+static value alloc_BinaryenExpressionRef(BinaryenExpressionRef exp)
+{
+  value v = caml_alloc_custom(&binaryen_ops, sizeof(BinaryenExpressionRef), 0, 1);
+  BinaryenExpressionRef_val(v) = exp;
+  return v;
+}
+
+/* Allocating an OCaml custom block to hold the given BinaryenType */
+static value alloc_BinaryenType(BinaryenType typ)
+{
+  value v = caml_alloc_custom(&binaryen_ops, sizeof(BinaryenType), 0, 1);
+  BinaryenType_val(v) = typ;
+  return v;
+}
+
 CAMLprim value
 caml_binaryen_add_function(value _module, value _name, value _params, value _results, value _locals, value _body) {
   CAMLparam5(_module, _name, _params, _results, _locals);
@@ -62,6 +79,15 @@ caml_binaryen_get_num_functions(value _module) {
   CAMLreturn(Val_int(BinaryenGetNumFunctions(module)));
 }
 
+CAMLprim value
+caml_binaryen_get_function_by_index(value _module, value _index) {
+  CAMLparam2(_module, _index);
+  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
+  BinaryenIndex index = Int_val(_index);
+  BinaryenFunctionRef fun = BinaryenGetFunctionByIndex(module, index);
+  CAMLreturn(alloc_BinaryenFunctionRef(fun));
+}
+
 CAMLprim value
 caml_binaryen_set_start(value _module, value _fun) {
   CAMLparam2(_module, _fun);
@@ -82,3 +108,55 @@ caml_binaryen_function_set_debug_location(value _fun, value _exp, value _file, v
   BinaryenFunctionSetDebugLocation(fun, exp, file, line, column);
   CAMLreturn(Val_unit);
 }
+
+CAMLprim value
+caml_binaryen_function_get_name(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(caml_copy_string(BinaryenFunctionGetName(fun)));
+}
+
+CAMLprim value
+caml_binaryen_function_get_params(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(alloc_BinaryenType(BinaryenFunctionGetParams(fun)));
+}
+
+CAMLprim value
+caml_binaryen_function_get_results(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(alloc_BinaryenType(BinaryenFunctionGetResults(fun)));
+}
+
+CAMLprim value
+caml_binaryen_function_get_num_vars(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(Val_int(BinaryenFunctionGetNumVars(fun)));
+}
+
+CAMLprim value
+caml_binaryen_function_get_var(value _fun, value _index) {
+  CAMLparam2(_fun, _index);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  BinaryenIndex index = Int_val(_index);
+  CAMLreturn(alloc_BinaryenType(BinaryenFunctionGetVar(fun, index)));
+}
+
+CAMLprim value
+caml_binaryen_function_get_body(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(alloc_BinaryenExpressionRef(BinaryenFunctionGetBody(fun)));
+}
+
+CAMLprim value
+caml_binaryen_function_set_body(value _fun, value _body) {
+  CAMLparam2(_fun, _body);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  BinaryenExpressionRef body = BinaryenExpressionRef_val(_body);
+  BinaryenFunctionSetBody(fun, body);
+  CAMLreturn(Val_unit);
+}

binaryen-archive/src/binaryen_stubs_globals.c

@@ -2,6 +2,7 @@
 #include <caml/mlvalues.h>
 #include <caml/fail.h>
 #include <caml/memory.h>
+#include <caml/alloc.h>
 
 #include "binaryen-c.h"
 #include "ocaml_helpers.h"
@@ -15,6 +16,22 @@ static value alloc_BinaryenGlobalRef(BinaryenGlobalRef exp)
   return v;
 }
 
+/* Allocating an OCaml custom block to hold the given BinaryenType */
+static value alloc_BinaryenType(BinaryenType typ)
+{
+  value v = caml_alloc_custom(&binaryen_ops, sizeof(BinaryenType), 0, 1);
+  BinaryenType_val(v) = typ;
+  return v;
+}
+
+/* Allocating an OCaml custom block to hold the given BinaryenExpressionRef */
+static value alloc_BinaryenExpressionRef(BinaryenExpressionRef exp)
+{
+  value v = caml_alloc_custom(&binaryen_ops, sizeof(BinaryenExpressionRef), 0, 1);
+  BinaryenExpressionRef_val(v) = exp;
+  return v;
+}
+
 CAMLprim value
 caml_binaryen_add_global(value _module, value _name, value _ty, value _mutable_, value _init) {
   CAMLparam5(_module, _name, _ty, _mutable_, _init);
@@ -44,3 +61,49 @@ caml_binaryen_remove_global(value _module, value _name) {
   BinaryenRemoveGlobal(module, name);
   CAMLreturn(Val_unit);
 }
+
+CAMLprim value
+caml_binaryen_get_num_globals(value _module) {
+  CAMLparam1(_module);
+  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
+  CAMLreturn(Val_int(BinaryenGetNumGlobals(module)));
+}
+
+CAMLprim value
+caml_binaryen_get_global_by_index(value _module, value _index) {
+  CAMLparam2(_module, _index);
+  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
+  BinaryenIndex index = Int_val(_index);
+  CAMLreturn(alloc_BinaryenGlobalRef(BinaryenGetGlobalByIndex(module, index)));
+}
+
+CAMLprim value
+caml_binaryen_global_get_name(value _global) {
+  CAMLparam1(_global);
+  BinaryenGlobalRef global = BinaryenGlobalRef_val(_global);
+  const char* name = BinaryenGlobalGetName(global);
+  CAMLreturn(caml_copy_string(name));
+}
+
+CAMLprim value
+caml_binaryen_global_get_type(value _global) {
+  CAMLparam1(_global);
+  BinaryenGlobalRef global = BinaryenGlobalRef_val(_global);
+  BinaryenType ty = BinaryenGlobalGetType(global);
+  CAMLreturn(alloc_BinaryenType(ty));
+}
+
+CAMLprim value
+caml_binaryen_global_is_mutable(value _global) {
+  CAMLparam1(_global);
+  BinaryenGlobalRef global = BinaryenGlobalRef_val(_global);
+  CAMLreturn(Val_bool(BinaryenGlobalIsMutable(global)));
+}
+
+CAMLprim value
+caml_binaryen_global_get_init_expr(value _global) {
+  CAMLparam1(_global);
+  BinaryenGlobalRef global = BinaryenGlobalRef_val(_global);
+  BinaryenExpressionRef exp = BinaryenGlobalGetInitExpr(global);
+  CAMLreturn(alloc_BinaryenExpressionRef(exp));
+}

binaryen-archive/src/binaryen_stubs_imports.c

@@ -2,6 +2,7 @@
 #include <caml/mlvalues.h>
 #include <caml/fail.h>
 #include <caml/memory.h>
+#include <caml/alloc.h>
 
 #include "binaryen-c.h"
 #include "ocaml_helpers.h"
@@ -65,3 +66,31 @@ CAMLprim value
 caml_binaryen_add_global_import__bytecode(value * argv) {
   return caml_binaryen_add_global_import(argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]);
 }
+
+CAMLprim value
+caml_binaryen_function_import_get_module(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(caml_copy_string(BinaryenFunctionImportGetModule(fun)));
+}
+
+CAMLprim value
+caml_binaryen_global_import_get_module(value _global) {
+  CAMLparam1(_global);
+  BinaryenGlobalRef global = BinaryenGlobalRef_val(_global);
+  CAMLreturn(caml_copy_string(BinaryenGlobalImportGetModule(global)));
+}
+
+CAMLprim value
+caml_binaryen_function_import_get_base(value _fun) {
+  CAMLparam1(_fun);
+  BinaryenFunctionRef fun = BinaryenFunctionRef_val(_fun);
+  CAMLreturn(caml_copy_string(BinaryenFunctionImportGetBase(fun)));
+}
+
+CAMLprim value
+caml_binaryen_global_import_get_base(value _global) {
+  CAMLparam1(_global);
+  BinaryenGlobalRef global = BinaryenGlobalRef_val(_global);
+  CAMLreturn(caml_copy_string(BinaryenGlobalImportGetBase(global)));
+}

binaryen-archive/src/binaryen_stubs_memory.c

@@ -23,7 +23,7 @@ caml_binaryen_set_memory(value _module, value _initial, value _maximum, value _e
   }
   _segmentPassive = array_of_list(_segmentPassive);
   int segmentPassiveLen = array_length(_segmentPassive);
-  int8_t segmentPassive[segmentPassiveLen];
+  bool segmentPassive[segmentPassiveLen];
   for (int i = 0; i < segmentPassiveLen; i++) {
     segmentPassive[i] = Bool_val(Field(_segmentPassive, i));
   }

binaryen-archive/src/binaryen_stubs_modules.c

@@ -66,128 +66,6 @@ caml_binaryen_module_optimize(value module) {
   CAMLreturn(Val_unit);
 }
 
-CAMLprim value
-caml_binaryen_get_optimize_level(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetOptimizeLevel();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_optimize_level(value _level) {
-  CAMLparam1(_level);
-  int level = Int_val(_level);
-  BinaryenSetOptimizeLevel(level);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_shrink_level(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetShrinkLevel();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_shrink_level(value _level) {
-  CAMLparam1(_level);
-  int level = Int_val(_level);
-  BinaryenSetShrinkLevel(level);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_debug_info(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetDebugInfo();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_debug_info(value _level) {
-  CAMLparam1(_level);
-  int level = Int_val(_level);
-  BinaryenSetDebugInfo(level);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_low_memory_unused(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetLowMemoryUnused();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_low_memory_unused(value _level) {
-  CAMLparam1(_level);
-  int level = Int_val(_level);
-  BinaryenSetLowMemoryUnused(level);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_pass_argument(value _name) {
-  CAMLparam1(_name);
-  const char* name = Safe_String_val(_name);
-  const char* val = BinaryenGetPassArgument(name);
-  CAMLreturn(caml_copy_string(val));
-}
-
-CAMLprim value
-caml_binaryen_set_pass_argument(value _name, value _val) {
-  CAMLparam2(_name, _val);
-  const char* name = Safe_String_val(_name);
-  const char* val = Safe_String_val(_val);
-  BinaryenSetPassArgument(name, val);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_always_inline_max_size(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetAlwaysInlineMaxSize();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_always_inline_max_size(value _size) {
-  CAMLparam1(_size);
-  int size = Int_val(_size);
-  BinaryenSetAlwaysInlineMaxSize(size);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_flexible_inline_max_size(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetFlexibleInlineMaxSize();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_flexible_inline_max_size(value _size) {
-  CAMLparam1(_size);
-  int size = Int_val(_size);
-  BinaryenSetFlexibleInlineMaxSize(size);
-  CAMLreturn(Val_unit);
-}
-
-CAMLprim value
-caml_binaryen_get_one_caller_inline_max_size(value unit) {
-  CAMLparam1(unit);
-  int res = BinaryenGetOneCallerInlineMaxSize();
-  CAMLreturn(Val_int(res));
-}
-
-CAMLprim value
-caml_binaryen_set_one_caller_inline_max_size(value _size) {
-  CAMLparam1(_size);
-  int size = Int_val(_size);
-  BinaryenSetOneCallerInlineMaxSize(size);
-  CAMLreturn(Val_unit);
-}
-
 CAMLprim value
 caml_binaryen_module_run_passes(value _module, value _passes) {
   CAMLparam2(_module, _passes);

binaryen-archive/src/binaryen_stubs_ops.c

@@ -1499,13 +1499,6 @@ caml_binaryen_binaryen_neg_vec_i8x16(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_any_true_vec_i8x16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenAnyTrueVecI8x16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_all_true_vec_i8x16(value unit) {
   CAMLparam1(unit);
@@ -1583,13 +1576,6 @@ caml_binaryen_binaryen_sub_sat_u_vec_i8x16(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_mul_vec_i8x16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenMulVecI8x16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_min_s_vec_i8x16(value unit) {
   CAMLparam1(unit);
@@ -1639,13 +1625,6 @@ caml_binaryen_binaryen_neg_vec_i16x8(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_any_true_vec_i16x8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenAnyTrueVecI16x8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_all_true_vec_i16x8(value unit) {
   CAMLparam1(unit);
@@ -1779,13 +1758,6 @@ caml_binaryen_binaryen_neg_vec_i32x4(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_any_true_vec_i32x4(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenAnyTrueVecI32x4();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_all_true_vec_i32x4(value unit) {
   CAMLparam1(unit);
@@ -1947,20 +1919,6 @@ caml_binaryen_binaryen_sqrt_vec_f32x4(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_qfma_vec_f32x4(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenQFMAVecF32x4();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_qfms_vec_f32x4(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenQFMSVecF32x4();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_add_vec_f32x4(value unit) {
   CAMLparam1(unit);
@@ -2066,20 +2024,6 @@ caml_binaryen_binaryen_sqrt_vec_f64x2(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_qfma_vec_f64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenQFMAVecF64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_qfms_vec_f64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenQFMSVecF64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_add_vec_f64x2(value unit) {
   CAMLparam1(unit);
@@ -2178,20 +2122,6 @@ caml_binaryen_binaryen_trunc_sat_u_vec_f32x4_to_vec_i32x4(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_trunc_sat_s_vec_f64x2_to_vec_i64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenTruncSatSVecF64x2ToVecI64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_trunc_sat_u_vec_f64x2_to_vec_i64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenTruncSatUVecF64x2ToVecI64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_convert_s_vec_i32x4_to_vec_f32x4(value unit) {
   CAMLparam1(unit);
@@ -2206,90 +2136,6 @@ caml_binaryen_binaryen_convert_u_vec_i32x4_to_vec_f32x4(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_binaryen_convert_s_vec_i64x2_to_vec_f64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenConvertSVecI64x2ToVecF64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_convert_u_vec_i64x2_to_vec_f64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenConvertUVecI64x2ToVecF64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_splat_vec8x16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadSplatVec8x16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_splat_vec16x8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadSplatVec16x8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_splat_vec32x4(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadSplatVec32x4();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_splat_vec64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadSplatVec64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_ext_s_vec8x8_to_vec_i16x8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadExtSVec8x8ToVecI16x8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_ext_u_vec8x8_to_vec_i16x8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadExtUVec8x8ToVecI16x8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_ext_s_vec16x4_to_vec_i32x4(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadExtSVec16x4ToVecI32x4();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_ext_u_vec16x4_to_vec_i32x4(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadExtUVec16x4ToVecI32x4();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_ext_s_vec32x2_to_vec_i64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadExtSVec32x2ToVecI64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_binaryen_load_ext_u_vec32x2_to_vec_i64x2(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenLoadExtUVec32x2ToVecI64x2();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_binaryen_narrow_s_vec_i16x8_to_vec_i8x16(value unit) {
   CAMLparam1(unit);
@@ -2319,64 +2165,64 @@ caml_binaryen_binaryen_narrow_u_vec_i32x4_to_vec_i16x8(value unit) {
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_low_s_vec_i8x16_to_vec_i16x8(value unit) {
+caml_binaryen_binaryen_swizzle_vec8x16(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenLowSVecI8x16ToVecI16x8();
+  BinaryenOp op = BinaryenSwizzleVec8x16();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_high_s_vec_i8x16_to_vec_i16x8(value unit) {
+caml_binaryen_binaryen_ref_is_null(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenHighSVecI8x16ToVecI16x8();
+  BinaryenOp op = BinaryenRefIsNull();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_low_u_vec_i8x16_to_vec_i16x8(value unit) {
+caml_binaryen_binaryen_ref_is_func(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenLowUVecI8x16ToVecI16x8();
+  BinaryenOp op = BinaryenRefIsFunc();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_high_u_vec_i8x16_to_vec_i16x8(value unit) {
+caml_binaryen_binaryen_ref_is_data(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenHighUVecI8x16ToVecI16x8();
+  BinaryenOp op = BinaryenRefIsData();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_low_s_vec_i16x8_to_vec_i32x4(value unit) {
+caml_binaryen_binaryen_ref_is_i31(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenLowSVecI16x8ToVecI32x4();
+  BinaryenOp op = BinaryenRefIsI31();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_high_s_vec_i16x8_to_vec_i32x4(value unit) {
+caml_binaryen_binaryen_ref_as_non_null(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenHighSVecI16x8ToVecI32x4();
+  BinaryenOp op = BinaryenRefAsNonNull();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_low_u_vec_i16x8_to_vec_i32x4(value unit) {
+caml_binaryen_binaryen_ref_as_func(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenLowUVecI16x8ToVecI32x4();
+  BinaryenOp op = BinaryenRefAsFunc();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_widen_high_u_vec_i16x8_to_vec_i32x4(value unit) {
+caml_binaryen_binaryen_ref_as_data(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenWidenHighUVecI16x8ToVecI32x4();
+  BinaryenOp op = BinaryenRefAsData();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
 CAMLprim value
-caml_binaryen_binaryen_swizzle_vec8x16(value unit) {
+caml_binaryen_binaryen_ref_as_i31(value unit) {
   CAMLparam1(unit);
-  BinaryenOp op = BinaryenSwizzleVec8x16();
+  BinaryenOp op = BinaryenRefAsI31();
   CAMLreturn(alloc_BinaryenOp(op));
-}
+}