Permalink
Browse files

Fix bitrot due to sleep/usleep changes

  • Loading branch information...
1 parent 1253d5a commit b3358285e72211d3e3d18356a58fd8aae433cc2d @doublec committed Apr 14, 2012
Showing with 5 additions and 5 deletions.
  1. +1 −1 TEST/hwserver.dats
  2. +1 −1 TEST/msreader.dats
  3. +1 −1 TEST/taskvent.dats
  4. +1 −1 TEST/taskwork.dats
  5. +1 −1 TEST/taskwork2.dats
View
@@ -34,7 +34,7 @@ implement main () = {
val () = assertloc (r = 0)
(* Do some work *)
- val _ = sleep(1)
+ val _ = sleep(1u)
(* Send reply back to client *)
var reply: zmq_msg_t
View
@@ -59,7 +59,7 @@ implement main () = {
(* No activity, so sleep for 1 msec *)
val ms = max(0, min(MILLION, 1))
- val () = usleep (ms)
+ val _ = usleep (ms)
val () = loop (receiver, subscriber)
View
@@ -52,7 +52,7 @@ implement main () = {
val () = printf ("Total expected cost: %d msec\n", @(total_msec))
(* Give 0MQ time to deliver *)
- val _ = sleep (1);
+ val _ = sleep (1u);
val _ = zmq_close (sink)
val _ = zmq_close (sender)
View
@@ -36,7 +36,7 @@ implement main () = {
(* Do the work *)
val ms = int1_of (castvwtp1 {string} (str)) * 1000
val ms = max(0, min(MILLION, ms))
- val () = usleep (ms)
+ val _ = usleep (ms)
val () = strptr_free (str)
(* Send results to sink *)
View
@@ -64,7 +64,7 @@ implement main () = {
(* Do the work *)
val ms = int1_of (castvwtp1 {string} (str)) * 1000
val ms = max(0, min(MILLION, ms))
- val () = usleep (ms)
+ val _ = usleep (ms)
val () = strptr_free (str)
(* Send results to sink *)

0 comments on commit b335828

Please sign in to comment.