[svn:parrot] rev 7956 - in trunk: src t/pmc

[leo]

Author: leo
Date: Tue May  3 01:19:44 2005
New Revision: 7956

Modified:
   trunk/src/events.c
   trunk/t/pmc/threads.t
   trunk/t/pmc/timer.t
Log:
[Patch] Win32 thread primitives

Modified: trunk/src/events.c
==============================================================================
--- trunk/src/events.c  (original)
+++ trunk/src/events.c  Tue May  3 01:19:44 2005
@@ -919,8 +919,8 @@
             event = (parrot_event* )entry->data;
             when = event->u.timer_event.abs_time;
             abs_time.tv_sec = (time_t) when;
-            abs_time.tv_nsec = (long)(when - abs_time.tv_sec) *
-                (1000L*1000L*1000L);
+            abs_time.tv_nsec = (long)((when - abs_time.tv_sec)*1000.0f)
+                *1000L*1000L;
             queue_timedwait(event_q, &abs_time);
         }
         else {

Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t       (original)
+++ trunk/t/pmc/threads.t       Tue May  3 01:19:44 2005
@@ -30,6 +30,7 @@
     irix
     linux
     openbsd
+    MSWin32
 /;
 
 if ($^O eq "cygwin" ) {

Modified: trunk/t/pmc/timer.t
==============================================================================
--- trunk/t/pmc/timer.t (original)
+++ trunk/t/pmc/timer.t Tue May  3 01:19:44 2005
@@ -28,6 +28,7 @@
     irix
     linux
     openbsd
+    MSWin32
 /;
 
 output_is(<<'CODE', <<'OUT', "Timer setup");