feat!: Upgrade to Binaryen v118

Author: ospencer

src/heap_type.c

@@ -63,27 +63,6 @@ caml_binaryen_heap_type_string(value unit) {
   CAMLreturn(alloc_BinaryenHeapType(ty));
 }
 
-CAMLprim value
-caml_binaryen_heap_type_stringview_wtf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenHeapType ty = BinaryenHeapTypeStringviewWTF8();
-  CAMLreturn(alloc_BinaryenHeapType(ty));
-}
-
-CAMLprim value
-caml_binaryen_heap_type_stringview_wtf16(value unit) {
-  CAMLparam1(unit);
-  BinaryenHeapType ty = BinaryenHeapTypeStringviewWTF16();
-  CAMLreturn(alloc_BinaryenHeapType(ty));
-}
-
-CAMLprim value
-caml_binaryen_heap_type_stringview_iter(value unit) {
-  CAMLparam1(unit);
-  BinaryenHeapType ty = BinaryenHeapTypeStringviewIter();
-  CAMLreturn(alloc_BinaryenHeapType(ty));
-}
-
 CAMLprim value
 caml_binaryen_heap_type_none(value unit) {
   CAMLparam1(unit);

src/heap_type.js

@@ -46,24 +46,6 @@ function caml_binaryen_heap_type_string() {
   return Binaryen._BinaryenHeapTypeString();
 }
 
-//Provides: caml_binaryen_heap_type_stringview_wtf8
-//Requires: Binaryen
-function caml_binaryen_heap_type_stringview_wtf8() {
-  return Binaryen._BinaryenHeapTypeStringviewWTF8();
-}
-
-//Provides: caml_binaryen_heap_type_stringview_wtf16
-//Requires: Binaryen
-function caml_binaryen_heap_type_stringview_wtf16() {
-  return Binaryen._BinaryenHeapTypeStringviewWTF16();
-}
-
-//Provides: caml_binaryen_heap_type_stringview_iter
-//Requires: Binaryen
-function caml_binaryen_heap_type_stringview_iter() {
-  return Binaryen._BinaryenHeapTypeStringviewIter();
-}
-
 //Provides: caml_binaryen_heap_type_none
 //Requires: Binaryen
 function caml_binaryen_heap_type_none() {

src/heap_type.ml

@@ -8,12 +8,6 @@ external i31 : unit -> t = "caml_binaryen_heap_type_i31"
 external struct_ : unit -> t = "caml_binaryen_heap_type_struct"
 external array : unit -> t = "caml_binaryen_heap_type_array"
 external string : unit -> t = "caml_binaryen_heap_type_string"
-external stringview_wtf8 : unit -> t = "caml_binaryen_heap_type_stringview_wtf8"
-
-external stringview_wtf16 : unit -> t
-  = "caml_binaryen_heap_type_stringview_wtf16"
-
-external stringview_iter : unit -> t = "caml_binaryen_heap_type_stringview_iter"
 external none : unit -> t = "caml_binaryen_heap_type_none"
 external noext : unit -> t = "caml_binaryen_heap_type_noext"
 external nofunc : unit -> t = "caml_binaryen_heap_type_nofunc"

src/heap_type.mli

@@ -8,9 +8,6 @@ val i31 : unit -> t
 val struct_ : unit -> t
 val array : unit -> t
 val string : unit -> t
-val stringview_wtf8 : unit -> t
-val stringview_wtf16 : unit -> t
-val stringview_iter : unit -> t
 val none : unit -> t
 val noext : unit -> t
 val nofunc : unit -> t

src/module.c

@@ -44,10 +44,9 @@ caml_binaryen_module_print_asmjs(value module) {
 }
 
 CAMLprim value
-caml_binaryen_module_print_stack_ir(value module, value _optimize) {
-  CAMLparam2(module, _optimize);
-  bool optimize = Bool_val(_optimize);
-  BinaryenModulePrintStackIR(BinaryenModuleRef_val(module), optimize);
+caml_binaryen_module_print_stack_ir(value module) {
+  CAMLparam1(module);
+  BinaryenModulePrintStackIR(BinaryenModuleRef_val(module));
   CAMLreturn(Val_unit);
 }
 
@@ -127,11 +126,10 @@ caml_binaryen_module_write_text(value _module) {
 // There is something weird with this function that causes a bunch of newlines to
 // be printed on stdout when calling it. Not sure if that's a bug in Binaryen.
 CAMLprim value
-caml_binaryen_module_write_stack_ir(value _module, value _optimize) {
-  CAMLparam2(_module, _optimize);
+caml_binaryen_module_write_stack_ir(value _module) {
+  CAMLparam1(_module);
   BinaryenModuleRef module = BinaryenModuleRef_val(_module);
-  bool optimize = Bool_val(_optimize);
-  char* result = BinaryenModuleAllocateAndWriteStackIR(module, optimize);
+  char* result = BinaryenModuleAllocateAndWriteStackIR(module);
   CAMLlocal1(text);
   text = caml_copy_string(result);
   free(result);

src/module.js

@@ -37,10 +37,10 @@ function caml_binaryen_module_print_asmjs(wasm_mod) {
 }
 
 //Provides: caml_binaryen_module_print_stack_ir
-//Requires: caml_string_of_jsstring, caml_js_from_bool
+//Requires: caml_string_of_jsstring
 //Requires: caml_ml_output, caml_ml_string_length
-function caml_binaryen_module_print_stack_ir(wasm_mod, optimize) {
-  var stackir = wasm_mod.emitStackIR(caml_js_from_bool(optimize));
+function caml_binaryen_module_print_stack_ir(wasm_mod) {
+  var stackir = wasm_mod.emitStackIR();
   var chanid = 1; // stdout
   var s = caml_string_of_jsstring(stackir);
   caml_ml_output(chanid, s, 0, caml_ml_string_length(s));
@@ -93,9 +93,9 @@ function caml_binaryen_module_write_text(wasm_mod) {
 }
 
 //Provides: caml_binaryen_module_write_stack_ir
-//Requires: caml_string_of_jsstring, caml_js_from_bool
-function caml_binaryen_module_write_stack_ir(wasm_mod, optimize) {
-  var text = wasm_mod.emitStackIR(caml_js_from_bool(optimize));
+//Requires: caml_string_of_jsstring
+function caml_binaryen_module_write_stack_ir(wasm_mod) {
+  var text = wasm_mod.emitStackIR();
   return caml_string_of_jsstring(text);
 }
 

src/module.ml

@@ -90,10 +90,7 @@ external add_custom_section : t -> string -> string -> unit
 external parse : string -> t = "caml_binaryen_module_parse"
 external print : t -> unit = "caml_binaryen_module_print"
 external print_asmjs : t -> unit = "caml_binaryen_module_print_asmjs"
-
-external print_stack_ir : t -> bool -> unit
-  = "caml_binaryen_module_print_stack_ir"
-
+external print_stack_ir : t -> unit = "caml_binaryen_module_print_stack_ir"
 external validate : t -> int = "caml_binaryen_module_validate"
 external optimize : t -> unit = "caml_binaryen_module_optimize"
 external get_features : t -> int = "caml_binaryen_module_get_features"
@@ -124,10 +121,7 @@ external write : t -> string option -> bytes * string option
   = "caml_binaryen_module_write"
 
 external write_text : t -> string = "caml_binaryen_module_write_text"
-
-external write_stack_ir : t -> bool -> string
-  = "caml_binaryen_module_write_stack_ir"
-
+external write_stack_ir : t -> string = "caml_binaryen_module_write_stack_ir"
 external read : bytes -> t = "caml_binaryen_module_read"
 external interpret : t -> unit = "caml_binaryen_module_interpret"
 

src/module.mli

@@ -29,7 +29,7 @@ val add_custom_section : t -> string -> string -> unit
 val parse : string -> t
 val print : t -> unit
 val print_asmjs : t -> unit
-val print_stack_ir : t -> bool -> unit
+val print_stack_ir : t -> unit
 val validate : t -> int
 val optimize : t -> unit
 val get_features : t -> Feature.t list
@@ -38,7 +38,7 @@ val run_passes : t -> Passes.t list -> unit
 val auto_drop : t -> unit
 val write : t -> string option -> bytes * string option
 val write_text : t -> string
-val write_stack_ir : t -> bool -> string
+val write_stack_ir : t -> string
 val read : bytes -> t
 val interpret : t -> unit
 val add_debug_info_filename : t -> string -> int

src/op.c

@@ -2288,48 +2288,6 @@ caml_binaryen_br_on_cast_fail(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_string_new_utf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringNewUTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_new_wtf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringNewWTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_new_lossy_utf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringNewLossyUTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_new_wtf16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringNewWTF16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_new_utf8_array(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringNewUTF8Array();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_new_wtf8_array(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringNewWTF8Array();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_string_new_lossy_utf8_array(value unit) {
   CAMLparam1(unit);
@@ -2358,139 +2316,27 @@ caml_binaryen_string_measure_utf8(value unit) {
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_string_measure_wtf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringMeasureWTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_string_measure_wtf16(value unit) {
   CAMLparam1(unit);
   BinaryenOp op = BinaryenStringMeasureWTF16();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_string_measure_is_usv(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringMeasureIsUSV();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_measure_wtf16_view(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringMeasureWTF16View();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_encode_utf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringEncodeUTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_encode_lossy_utf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringEncodeLossyUTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_encode_wtf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringEncodeWTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_encode_wtf16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringEncodeWTF16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_encode_utf8_array(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringEncodeUTF8Array();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_string_encode_lossy_utf8_array(value unit) {
   CAMLparam1(unit);
   BinaryenOp op = BinaryenStringEncodeLossyUTF8Array();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_string_encode_wtf8_array(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringEncodeWTF8Array();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_string_encode_wtf16_array(value unit) {
   CAMLparam1(unit);
   BinaryenOp op = BinaryenStringEncodeWTF16Array();
   CAMLreturn(alloc_BinaryenOp(op));
 }
 
-CAMLprim value
-caml_binaryen_string_as_wtf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringAsWTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_as_wtf16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringAsWTF16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_as_iter(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringAsIter();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_iter_move_advance(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringIterMoveAdvance();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_iter_move_rewind(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringIterMoveRewind();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_slice_wtf8(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringSliceWTF8();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
-CAMLprim value
-caml_binaryen_string_slice_wtf16(value unit) {
-  CAMLparam1(unit);
-  BinaryenOp op = BinaryenStringSliceWTF16();
-  CAMLreturn(alloc_BinaryenOp(op));
-}
-
 CAMLprim value
 caml_binaryen_string_eq_equal(value unit) {
   CAMLparam1(unit);