diff options
| -rw-r--r-- | src/lwt/lwt_unix_stubs.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lwt/lwt_unix_stubs.c b/src/lwt/lwt_unix_stubs.c index a32d5f2..2549c41 100644 --- a/src/lwt/lwt_unix_stubs.c +++ b/src/lwt/lwt_unix_stubs.c @@ -79,6 +79,7 @@ static value completionCallback; static void invoke_completion_callback (long id, long len, long errCode, long action) { + CAMLparam0(); CAMLlocal2 (err, name); value args[4]; err = Val_long(0); |