[Gd-chatter] r11137 - trunk/libraries/programming-tools/multi-thread-test

[hannes at gwydiondylan.org]

Author: hannes
Date: Wed Jan 17 13:51:07 2007
New Revision: 11137

Modified:
   trunk/libraries/programming-tools/multi-thread-test/library.dylan
   trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan
Log:
Job: minor
this still works on FreeBSD


Modified: trunk/libraries/programming-tools/multi-thread-test/library.dylan
==============================================================================
--- trunk/libraries/programming-tools/multi-thread-test/library.dylan	(original)
+++ trunk/libraries/programming-tools/multi-thread-test/library.dylan	Wed Jan 17 13:51:07 2007
@@ -4,8 +4,8 @@
   use dylan;
   use system;
   use memory-manager;
-
   use io;
+  use common-dylan;
 end;
 
 define module multi-thread-test
@@ -13,4 +13,5 @@
   use memory-manager;
   use threads;
   use format-out;
+  use simple-random;
 end;

Modified: trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan
==============================================================================
--- trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan	(original)
+++ trunk/libraries/programming-tools/multi-thread-test/multi-thread-test.dylan	Wed Jan 17 13:51:07 2007
@@ -23,15 +23,12 @@
   end;
   format-out("Hello from %d\n",count);
   //collect-garbage();
-  //sleep(1);
+  sleep(modulo(random(100000), 5));
   format-out("Hello from %d\n",count);
   with-lock (ts.lock)
     remove!(ts.threads, count)
   end;
   format-out("End from %d\n",count);
-  while (#t)
-    sleep(2300)
-  end;
 end;
 
 define function main () => ()