mono/tests/field-access.il

   1 .assembly extern mscorlib {}
   2
   3 .assembly 'field-access' {}
   4
   5 .class public FieldFail extends [mscorlib]System.Object {
   6
   7         .field private static string _sfield
   8
   9         .field private string _field
  10
  11         .method public specialname rtspecialname instance void  .ctor()
  12         {
  13                 ldarg.0
  14                 call       instance void [mscorlib]System.Object::.ctor()
  15                 ret
  16         }
  17 }
  18
  19 .class Test {
  20
  21         .method static void read_sfield ()
  22         {
  23                 ldsfld string FieldFail::_sfield
  24                 pop
  25                 ret
  26         }
  27
  28         .method static void read_field ()
  29         {
  30                 .locals (FieldFail ff)
  31
  32                 newobj instance void FieldFail::.ctor()
  33                 stloc ff
  34                 ldloc ff
  35                 ldfld string FieldFail::_field
  36                 pop
  37                 ret
  38         }
  39
  40         .method static int32 Main ()
  41         {
  42                 .entrypoint
  43
  44                 .try {
  45                         call void Test::read_sfield ()
  46                         br fail
  47                 } catch [mscorlib]System.FieldAccessException {
  48                         pop
  49                         br continue
  50                 } catch [mscorlib]System.Exception {
  51                         pop
  52                         br fail
  53                 }
  54
  55 continue:
  56                 .try {
  57                         call void Test::read_field ()
  58                         br fail
  59                 } catch [mscorlib]System.FieldAccessException {
  60                         pop
  61                         br success
  62                 } catch [mscorlib]System.Exception {
  63                         pop
  64                         br fail
  65                 }
  66
  67 success:
  68                 ldstr "PASS"
  69                 call void [mscorlib]System.Console::WriteLine(string)
  70                 ldc.i4.0
  71                 ret
  72
  73 fail:
  74                 ldstr "FAIL"
  75                 call void [mscorlib]System.Console::WriteLine(string)
  76                 ldc.i4.1
  77                 ret
  78         }
  79 }