fix

ocaml-flambda · Dec 9, 2024 · c94d576 · c94d576
1 parent 4ae3eb6
commit c94d576
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/runtime4/compact.c b/runtime4/compact.c
@@ -100,8 +100,8 @@ void caml_invert_root (value v, value *p)
   /* Note: this assertion will become tautological and should be removed when
      we finally get rid of the page table in NNP mode.
   */
-  CAMLassert (Is_long (*p) || *p == Val_null || Is_in_heap (*p)
-              || Is_black_val (*p) || Tag_val (*p) == Infix_tag);
+  CAMLassert (Is_long (*p) || Is_in_heap (*p) || Is_black_val (*p)
+              || Tag_val (*p) == Infix_tag);
 #endif
   invert_pointer_at ((word *) p);
 }