feat!: Upgrade to Binaryen v123

C-api: WebAssembly/binaryen@version_122...version_123#diff-5d2db7a99567fbac5e617fd39709fbdca0a2d22b92a97d5c3515caf7dba9f78b

Author: spotandjake

binaryen.opam

@@ -16,5 +16,5 @@ depends: [
   "dune" {>= "3.0.0"}
   "dune-configurator" {>= "3.0.0"}
   "js_of_ocaml-compiler" {>= "6.0.0" < "7.0.0"}
-  "libbinaryen" {>= "122.0.0" < "123.0.0"}
+  "libbinaryen" {>= "123.0.0" < "124.0.0"}
 ]

dune

@@ -1,3 +1,3 @@
 (dirs :standard)
 
-(data_only_dirs node_modules)
+(data_only_dirs node_modules)

esy.lock/index.json

@@ -6,7 +6,7 @@
   "license": "Apache-2.0",
   "dependencies": {
     "ocaml": ">= 4.13.0 < 5.4.0",
-    "@grain/libbinaryen": ">= 122.0.0 < 123.0.0",
+    "@grain/libbinaryen": ">= 123.0.0 < 124.0.0",
     "@opam/dune": ">= 3.0.0",
     "@opam/dune-configurator": ">= 3.0.0"
   },
@@ -16,7 +16,8 @@
     "@opam/ocaml-lsp-server": ">= 1.9.1 < 2.0.0"
   },
   "resolutions": {
-    "@opam/ocp-indent": "1.7.0"
+    "@opam/ocp-indent": "1.7.0",
+    "@grain/libbinaryen": "git+https://github.com/grain-lang/libbinaryen.git#cb37a909a8b27ab2f5ef89b5c5c346e2622424f0"
   },
   "esy": {
     "build": "dune build -p binaryen"

package.json

@@ -1868,7 +1868,7 @@ caml_binaryen_ref_func(value _module, value _name, value _ty) {
   CAMLparam3(_module, _name, _ty);
   BinaryenModuleRef module = BinaryenModuleRef_val(_module);
   char* name = Safe_String_val(_name);
-  BinaryenType ty = BinaryenType_val(_ty);
+  BinaryenHeapType ty = BinaryenHeapType_val(_ty);
   BinaryenExpressionRef exp = BinaryenRefFunc(module, name, ty);
   CAMLreturn(alloc_BinaryenExpressionRef(exp));
 }

src/expression.c

@@ -818,7 +818,8 @@ module Ref = struct
   external as_ : Module.t -> Op.t -> t -> t = "caml_binaryen_ref_as"
   (** Module, op, value *)
 
-  external func : Module.t -> string -> Type.t -> t = "caml_binaryen_ref_func"
+  external func : Module.t -> string -> Heap_type.t -> t
+    = "caml_binaryen_ref_func"
   (** Module, func, type *)
 
   external eq : Module.t -> t -> t -> t = "caml_binaryen_ref_eq"

src/expression.ml

@@ -343,7 +343,7 @@ module Ref : sig
   val as_ : Module.t -> Op.t -> t -> t
   (** Module, op, value *)
 
-  val func : Module.t -> string -> Type.t -> t
+  val func : Module.t -> string -> Heap_type.t -> t
   (** Module, func, type *)
 
   val eq : Module.t -> t -> t -> t

src/expression.mli

@@ -14,10 +14,6 @@ module Feature = struct
 
   let atomics = atomics ()
 
-  external bulk_memory : unit -> t = "caml_binaryen_feature_bulk_memory"
-
-  let bulk_memory = bulk_memory ()
-
   external mutable_globals : unit -> t = "caml_binaryen_feature_mutable_globals"
 
   let mutable_globals = mutable_globals ()
@@ -27,14 +23,18 @@ module Feature = struct
 
   let nontrapping_fp_to_int = nontrapping_fp_to_int ()
 
-  external sign_ext : unit -> t = "caml_binaryen_feature_sign_ext"
-
-  let sign_ext = sign_ext ()
-
   external simd128 : unit -> t = "caml_binaryen_feature_simd128"
 
   let simd128 = simd128 ()
 
+  external bulk_memory : unit -> t = "caml_binaryen_feature_bulk_memory"
+
+  let bulk_memory = bulk_memory ()
+
+  external sign_ext : unit -> t = "caml_binaryen_feature_sign_ext"
+
+  let sign_ext = sign_ext ()
+
   external exception_handling : unit -> t
     = "caml_binaryen_feature_exception_handling"
 
@@ -76,6 +76,28 @@ module Feature = struct
 
   let multi_memory = multi_memory ()
 
+  external stack_switching : unit -> t = "caml_binaryen_feature_stack_switching"
+
+  let stack_switching = stack_switching ()
+
+  external shared_everything : unit -> t
+    = "caml_binaryen_feature_shared_everything"
+
+  let shared_everything = shared_everything ()
+
+  external fp16 : unit -> t = "caml_binaryen_feature_fp16"
+
+  let fp16 = fp16 ()
+
+  external bulk_memory_opt : unit -> t = "caml_binaryen_feature_bulk_memory_opt"
+
+  let bulk_memory_opt = bulk_memory_opt ()
+
+  external call_indirect_overlong : unit -> t
+    = "caml_binaryen_feature_call_indirect_overlong"
+
+  let call_indirect_overlong = call_indirect_overlong ()
+
   external all : unit -> t = "caml_binaryen_feature_all"
 
   let all = all ()

src/module.ml

@@ -5,11 +5,11 @@ module Feature : sig
 
   val mvp : t
   val atomics : t
-  val bulk_memory : t
   val mutable_globals : t
   val nontrapping_fp_to_int : t
-  val sign_ext : t
   val simd128 : t
+  val bulk_memory : t
+  val sign_ext : t
   val exception_handling : t
   val tail_call : t
   val reference_types : t
@@ -20,6 +20,11 @@ module Feature : sig
   val extended_const : t
   val strings : t
   val multi_memory : t
+  val stack_switching : t
+  val shared_everything : t
+  val fp16 : t
+  val bulk_memory_opt : t
+  val call_indirect_overlong : t
   val all : t
 end
 

src/module.mli

@@ -35,12 +35,6 @@ caml_binaryen_feature_atomics(value unit) {
   CAMLreturn(Val_int(BinaryenFeatureAtomics()));
 }
 
-CAMLprim value
-caml_binaryen_feature_bulk_memory(value unit) {
-  CAMLparam1(unit);
-  CAMLreturn(Val_int(BinaryenFeatureBulkMemory()));
-}
-
 CAMLprim value
 caml_binaryen_feature_mutable_globals(value unit) {
   CAMLparam1(unit);
@@ -54,15 +48,21 @@ caml_binaryen_feature_nontrapping_fp_to_int(value unit) {
 }
 
 CAMLprim value
-caml_binaryen_feature_sign_ext(value unit) {
+caml_binaryen_feature_simd128(value unit) {
   CAMLparam1(unit);
-  CAMLreturn(Val_int(BinaryenFeatureSignExt()));
+  CAMLreturn(Val_int(BinaryenFeatureSIMD128()));
 }
 
 CAMLprim value
-caml_binaryen_feature_simd128(value unit) {
+caml_binaryen_feature_bulk_memory(value unit) {
   CAMLparam1(unit);
-  CAMLreturn(Val_int(BinaryenFeatureSIMD128()));
+  CAMLreturn(Val_int(BinaryenFeatureBulkMemory()));
+}
+
+CAMLprim value
+caml_binaryen_feature_sign_ext(value unit) {
+  CAMLparam1(unit);
+  CAMLreturn(Val_int(BinaryenFeatureSignExt()));
 }
 
 CAMLprim value
@@ -125,6 +125,36 @@ caml_binaryen_feature_multi_memory(value unit) {
   CAMLreturn(Val_int(BinaryenFeatureMultiMemory()));
 }
 
+CAMLprim value
+caml_binaryen_feature_stack_switching(value unit) {
+  CAMLparam1(unit);
+  CAMLreturn(Val_int(BinaryenFeatureStackSwitching()));
+}
+
+CAMLprim value
+caml_binaryen_feature_shared_everything(value unit) {
+  CAMLparam1(unit);
+  CAMLreturn(Val_int(BinaryenFeatureSharedEverything()));
+}
+
+CAMLprim value
+caml_binaryen_feature_fp16(value unit) {
+  CAMLparam1(unit);
+  CAMLreturn(Val_int(BinaryenFeatureFP16()));
+}
+
+CAMLprim value
+caml_binaryen_feature_bulk_memory_opt(value unit) {
+  CAMLparam1(unit);
+  CAMLreturn(Val_int(BinaryenFeatureBulkMemoryOpt()));
+}
+
+CAMLprim value
+caml_binaryen_feature_call_indirect_overlong(value unit) {
+  CAMLparam1(unit);
+  CAMLreturn(Val_int(BinaryenFeatureCallIndirectOverlong()));
+}
+
 CAMLprim value
 caml_binaryen_feature_all(value unit) {
   CAMLparam1(unit);