Fix segfault

savonet · Mar 18, 2024 · 4779849 · 4779849
1 parent dcf8dfe
commit 4779849
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/CHANGES b/CHANGES
@@ -2,6 +2,7 @@
 =====
 * Raise a proper error when non-blocking connection
   fails.
+* Fix poll segfault.
 
 1.0.2 (2024-01-08)
 ======

diff --git a/src/cry_stubs.c b/src/cry_stubs.c
@@ -109,7 +109,7 @@ CAMLprim value caml_cry_poll(value _read, value _write, value _err,
       nwrite++;
     }
     if (fds[n].revents & POLLERR) {
-      Store_field(_pread, nerr, Val_fd(fds[n].fd));
+      Store_field(_perr, nerr, Val_fd(fds[n].fd));
       nerr++;
     }
   }