flambda-backend: Fix extern_closure_up_to_env (#1053)

ocaml-flambda · Jan 10, 2023 · 50a9ce0 · 50a9ce0
1 parent bc2c78d
commit 50a9ce0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/runtime/extern.c b/runtime/extern.c
@@ -675,8 +675,8 @@ Caml_inline mlsize_t extern_closure_up_to_env(value v)
     if (Arity_closinfo(info) != 0 && Arity_closinfo(info) != 1) {
       extern_code_pointer((char *) Field(v, i++));
     }
-  } while (i < startenv);
-  CAMLassert(i == startenv);
+  } while (!Is_last_closinfo(info));
+  CAMLassert(i <= startenv);
   return startenv;
 }
 #endif