Sub declarations

OCamlPro · Oct 7, 2024 · 9441d3b · 9441d3b
1 parent f7a76ba
commit 9441d3b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/wasm/emit_wat.ml b/wasm/emit_wat.ml
@@ -2362,7 +2362,7 @@ module ToWasm = struct
     | Array { sub; fields } ->
       let descr = C.array_type fields in
       let descr =
-        match sub with None -> descr | Some sub -> C.sub sub descr
+        C.sub sub descr
       in
       C.type_ name descr
     | Func { params; results } -> C.type_ name (C.func_type params results)

diff --git a/wasm/wat.ml b/wasm/wat.ml
@@ -288,7 +288,7 @@ module C = struct
   let struct_type ~sub fields =
     let descr = node "struct" (List.map field fields) in
     match sub with
-    | None -> descr
+    | None -> node "sub" [ descr ]
     | Some name -> node "sub" [ type_name name; descr ]
 
   let array_type f = node "array" [ node "mut" [ type_atom f ] ]
@@ -351,7 +351,9 @@ module C = struct
       ]
 
   let sub name descr =
-    node "sub" [ type_name name; descr ]
+    match name with
+    | None -> node "sub" [ descr ]
+    | Some name -> node "sub" [ type_name name; descr ]
 
   let opt_tuple fields =
     [ tuple_make fields ]