Fix infinite loop in at_exit.

Signed-off-by: Thomas Del Vecchio <tdelvecchio@janestreet.com>
ocaml-flambda · Sep 23, 2024 · bee7fc8 · bee7fc8
1 parent a42a3c4
commit bee7fc8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml/stdlib/stdlib.ml b/ocaml/stdlib/stdlib.ml
@@ -567,7 +567,7 @@ external atomic_exchange : 'a atomic_t -> 'a @ contended -> 'a @ contended @@ po
 external atomic_compare_and_set : 'a atomic_t -> 'a @ contended -> 'a @ contended -> bool @@ portable
   = "%atomic_cas"
 
-type exit_function : value mod portable = Exit_function of (unit -> unit) @@ portable
+type exit_function : value mod portable = Exit_function of (unit -> unit) @@ portable [@@unboxed]
 
 let exit_function = atomic_make (Exit_function flush_all)