On OCaml 5, use SA_ONSTACK to avoid corrupting memory

Fixes ocsigen#981.
talex5 · Jun 21, 2023 · 890b19a · 890b19a
1 parent cc05e2b
commit 890b19a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/unix/lwt_unix_stubs.c b/src/unix/lwt_unix_stubs.c
@@ -840,7 +840,11 @@ CAMLprim value lwt_unix_set_signal(value val_signum, value val_notification) {
   }
 #else
   sa.sa_handler = handle_signal;
+#if OCAML_VERSION >= 50000
+  sa.sa_flags = SA_ONSTACK;
+#else
   sa.sa_flags = 0;
+#endif
   sigemptyset(&sa.sa_mask);
   if (sigaction(signum, &sa, NULL) == -1) {
     signal_notifications[signum] = -1;