Skip to content

Commit 7cfc797

Browse files
committed
Fix stack_or_heap_enclosing
1 parent 7292261 commit 7cfc797

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/analysis/stack_or_heap_enclosing.ml

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -95,7 +95,8 @@ let from_nodes ~lsp_compat ~pos ~path =
9595
| [] -> ret_no_alloc ?loc "constructor without arguments"
9696
| _ :: _ -> (
9797
match cstr_repr with
98-
| Variant_unboxed -> ret_no_alloc ?loc "unboxed constructor"
98+
| Variant_unboxed | Variant_with_null ->
99+
ret_no_alloc ?loc "unboxed constructor"
99100
| Variant_extensible | Variant_boxed _ ->
100101
ret ?loc Unexpected_no_alloc)))
101102
| Texp_record { representation; alloc_mode = maybe_alloc_mode; _ } -> (

0 commit comments

Comments
 (0)