Skip to content

Commit c75d50c

Browse files
committed
chore: Re-enable funcref test
1 parent fe81bbd commit c75d50c

File tree

1 file changed

+9
-3
lines changed

1 file changed

+9
-3
lines changed

test/test.ml

Lines changed: 9 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -171,13 +171,19 @@ let start =
171171
let _ = Export.add_function_export wasm_mod "adder" "adder"
172172
let _ = 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

177183
let _ =
178184
Expression.Table.set wasm_mod "table"
179185
(Expression.Const.make wasm_mod (Literal.int32 0l))
180-
funcref_expr1 *)
186+
funcref_expr1
181187

182188
let funcref_expr2 =
183189
Expression.Table.get wasm_mod "table"

0 commit comments

Comments
 (0)