Sub in runtime

OCamlPro · Oct 7, 2024 · f7e5147 · f7e5147
1 parent a99e41e
commit f7e5147
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/wasm/imports_binaryen.wat b/wasm/imports_binaryen.wat
@@ -1,8 +1,8 @@
 (module
-  (type $Float (struct (field (mut f64))))
+  (type $Float (sub (struct (field (mut f64)))))
   (type $Int64 (struct (field (mut i64))))
-  (type $String (array (mut i8)))
-  (type $Gen_block (array (mut (ref eq))))
+  (type $String (sub (array (mut i8))))
+  (type $Gen_block (sub (array (mut (ref eq)))))
 
 
   (import "js_runtime" "print_string" (func $print_string (param (ref $String))))

diff --git a/wasm/runtime_binaryen.wat b/wasm/runtime_binaryen.wat
@@ -1,9 +1,9 @@
 (module
-  (type $Float (struct (field (mut f64))))
-  (type $String (array (mut i8)))
-  (type $Array (array (mut (ref eq))))
-  (type $FloatArray (array (mut f64)))
-  (type $Gen_block (array (mut (ref eq))))
+  (type $Float (sub (struct (field (mut f64)))))
+  (type $String (sub (array (mut i8))))
+  (type $Array (sub (array (mut (ref eq)))))
+  (type $FloatArray (sub (array (mut f64))))
+  (type $Gen_block (sub (array (mut (ref eq)))))
   (import "exn_tag" "exc" (tag $exc (param (ref eq))))
 
   ;; ==========