File tree Expand file tree Collapse file tree 1 file changed +9
-3
lines changed
Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Original file line number Diff line number Diff line change @@ -171,13 +171,19 @@ let start =
171171let _ = Export. add_function_export wasm_mod " adder" " adder"
172172let _ = Table. add_table wasm_mod " table" 1 1 Type. funcref
173173
174- (* TODO(#240): Re-enable after type-builder api is merged *)
175- (* let funcref_expr1 = Expression.Ref.func wasm_mod "adder" (Heap_type.func ())
174+ let adder_type =
175+ let builder = Type_builder. make 1 in
176+ Type_builder. set_signature_type builder 0 Type. none Type. none;
177+ match Type_builder. build_and_dispose builder with
178+ | Ok [ ty ] -> ty
179+ | _ -> failwith " failed to build type"
180+
181+ let funcref_expr1 = Expression.Ref. func wasm_mod " adder" adder_type
176182
177183let _ =
178184 Expression.Table. set wasm_mod " table"
179185 (Expression.Const. make wasm_mod (Literal. int32 0l ))
180- funcref_expr1 *)
186+ funcref_expr1
181187
182188let funcref_expr2 =
183189 Expression.Table. get wasm_mod " table"
You can’t perform that action at this time.
0 commit comments