mono/tests/thread-suspend-selfsuspended.cs

   1
   2 using System;
   3 using System.Threading;
   4
   5 class Driver
   6 {
   7         public static void Main ()
   8         {
   9                 bool finished = false;
  10                 AutoResetEvent start_gc = new AutoResetEvent (false);
  11
  12                 Thread t1 = Thread.CurrentThread;
  13
  14                 Thread t2 = new Thread (() => {
  15                         while (!finished) {
  16                                 if (start_gc.WaitOne (0))
  17                                         GC.Collect ();
  18
  19                                 try {
  20                                         t1.Resume ();
  21                                 } catch (ThreadStateException) {
  22                                 }
  23
  24                                 Thread.Yield ();
  25                         }
  26                 });
  27
  28                 t2.Start ();
  29
  30                 Thread.Sleep (10);
  31
  32                 for (int i = 0; i < 50 * 40 * 5; ++i) {
  33                         start_gc.Set ();
  34                         Thread.CurrentThread.Suspend ();
  35                         if ((i + 1) % (50) == 0)
  36                                 Console.Write (".");
  37                         if ((i + 1) % (50 * 40) == 0)
  38                                 Console.WriteLine ();
  39                 }
  40
  41                 finished = true;
  42
  43                 t2.Join ();
  44         }
  45 }