mono/profiler/test-pinvokes.cs

   1 using System;
   2 using System.Runtime.InteropServices;
   3 using System.Runtime.CompilerServices;
   4
   5 public class MonoPInvokeCallbackAttribute : Attribute {
   6         public MonoPInvokeCallbackAttribute (Type delegateType) { }
   7 }
   8
   9 public class T {
  10         private static bool fired;
  11
  12         [MonoPInvokeCallback (typeof (Action))]
  13         private static void CallBack ()
  14         {
  15                 Console.WriteLine ("Called back");
  16                 fired = true;
  17         }
  18
  19         [DllImport ("proftest_pinvokes", EntryPoint="test_reverse_pinvoke")]
  20         private static extern void test_reverse_pinvoke (Action cb);
  21
  22
  23         public static int Main ()
  24         {
  25                 Helper ();
  26                 if (fired)
  27                         return 0;
  28                 else
  29                         return 1;
  30         }
  31
  32
  33         [MethodImpl (MethodImplOptions.NoInlining)]
  34         private static void Helper ()
  35         {
  36                 test_reverse_pinvoke (new Action (CallBack));
  37         }
  38 }