Avoid leaking memory used for JanetThreadedTimeout struct

Author: pyrmont

src/core/ev.c

@@ -661,28 +661,30 @@ static void janet_timeout_cb(JanetEVGenericMessage msg) {
 
 #ifdef JANET_WINDOWS
 static DWORD WINAPI janet_timeout_body(LPVOID ptr) {
-    JanetThreadedTimeout *tto = (JanetThreadedTimeout *)ptr;
-    SleepEx((DWORD)(tto->sec * 1000), TRUE);
-    if (janet_fiber_can_resume(tto->fiber)) {
-        janet_interpreter_interrupt(tto->vm);
+    JanetThreadedTimeout tto = *(JanetThreadedTimeout *)ptr;
+    janet_free(ptr);
+    SleepEx((DWORD)(tto.sec * 1000), TRUE);
+    if (janet_fiber_can_resume(tto.fiber)) {
+        janet_interpreter_interrupt(tto.vm);
         JanetEVGenericMessage msg = {0};
-        janet_ev_post_event(tto->vm, janet_timeout_cb, msg);
+        janet_ev_post_event(tto.vm, janet_timeout_cb, msg);
     }
     return 0;
 }
 #else
 static void *janet_timeout_body(void *ptr) {
-    JanetThreadedTimeout *tto = (JanetThreadedTimeout *)ptr;
+    JanetThreadedTimeout tto = *(JanetThreadedTimeout *)ptr;
+    janet_free(ptr);
     struct timespec ts;
-    ts.tv_sec = (time_t) tto->sec;
-    ts.tv_nsec = (tto->sec <= UINT32_MAX)
-                 ? (long)((tto->sec - ((uint32_t)tto->sec)) * 1000000000)
+    ts.tv_sec = (time_t) tto.sec;
+    ts.tv_nsec = (tto.sec <= UINT32_MAX)
+                 ? (long)((tto.sec - ((uint32_t)tto.sec)) * 1000000000)
                  : 0;
     nanosleep(&ts, &ts);
-    if (janet_fiber_can_resume(tto->fiber)) {
-        janet_interpreter_interrupt(tto->vm);
+    if (janet_fiber_can_resume(tto.fiber)) {
+        janet_interpreter_interrupt(tto.vm);
         JanetEVGenericMessage msg = {0};
-        janet_ev_post_event(tto->vm, janet_timeout_cb, msg);
+        janet_ev_post_event(tto.vm, janet_timeout_cb, msg);
     }
     return NULL;
 }