fix: null memory blocks

extism · Jan 13, 2024 · 4876191 · 4876191
1 parent d7448be
commit 4876191
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/host_function.ml b/src/host_function.ml
@@ -36,7 +36,8 @@ module Memory_handle = struct
 
   let of_val_exn t v =
     match of_val t v with
-    | None -> invalid_arg "Memory_block.of_val_exn"
+    | None ->
+        { offs = Unsigned.UInt64.of_int 0; len = Unsigned.UInt64.of_int 0 }
     | Some v -> v
 
   let to_val { offs; len = _ } = Val.of_i64 (Unsigned.UInt64.to_int64 offs)