This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove Win32 compiler warnings
[perl5.git] / ext / threads / shared / shared.xs
index 4e564c5..72b7285 100644 (file)
@@ -441,7 +441,7 @@ Perl_sharedsv_cond_timedwait(perl_cond *cond, perl_mutex *mut, double abs)
     cond->waiters++;
     MUTEX_UNLOCK(mut);
     /* See comments in win32/win32thread.h COND_WAIT vis-a-vis race */
-    switch (WaitForSingleObject(cond->sem, abs)) {
+    switch (WaitForSingleObject(cond->sem, (DWORD)abs)) {
         case WAIT_OBJECT_0:   got_it = 1; break;
         case WAIT_TIMEOUT:                break;
         default: