mono/tests/verifier/make_ctor_test.sh

   1 #! /bin/sh
   2
   3 TEST_NAME=$1
   4 TEST_VALIDITY=$2
   5 TEST_CODE=$3
   6 TEST_TARGET_TYPE=$4
   7
   8 TARGET_TYPE="Test"
   9 TEST_OTHER_CODE="call instance void TestClass::'.ctor'()"
  10
  11 if [ "$TEST_TARGET_TYPE" == "other" ]; then
  12         TARGET_TYPE="TestSubClass"
  13         TEST_OTHER_CODE=$TEST_CODE
  14         TEST_CODE=""
  15 fi
  16
  17 TEST_FILE=`echo ${TEST_VALIDITY}_${TEST_NAME} | sed -e 's/ /_/g' -e 's/\./_/g' -e 's/&/mp/g' -e 's/\[/_/g' -e 's/\]/_/g'`_generated.il
  18 echo $TEST_FILE
  19 sed -e "s/CODE/${TEST_CODE}/g" -e "s/OTHER/${TEST_OTHER_CODE}/g" -e "s/VALIDITY/${TEST_VALIDITY}/g" > $TEST_FILE <<//EOF
  20
  21 .assembly extern mscorlib
  22 {
  23   .ver 2:0:0:0
  24   .publickeytoken = (B7 7A 5C 56 19 34 E0 89 ) // .z\V.4..
  25 }
  26 .assembly 'delegate_test'
  27 {
  28   .hash algorithm 0x00008004
  29   .ver  0:0:0:0
  30 }
  31 .module delegate_test.exe
  32 .class ansi beforefieldinit TestClass extends [mscorlib]System.Object
  33 {
  34         .method public hidebysig specialname  rtspecialname instance default void .ctor ()  cil managed
  35         {
  36                 .maxstack 8
  37                 ldarg.0
  38                 call instance void object::'.ctor'()
  39                 ret
  40         }
  41
  42         .method public hidebysig specialname  rtspecialname instance default void .ctor (object V_1)  cil managed
  43         {
  44                 .maxstack 8
  45                 ldarg.0
  46                 call instance void object::'.ctor'()
  47                 ret
  48         }
  49 }
  50
  51 .module delegate_test.exe
  52 .class ansi beforefieldinit TestSubClass extends TestClass
  53 {
  54         .method public hidebysig specialname  rtspecialname instance default void .ctor ()  cil managed
  55         {
  56                 .maxstack 8
  57                 ldarg.0
  58                 OTHER
  59
  60                 leave END
  61 END:
  62                 ret
  63         }
  64 }
  65
  66
  67
  68
  69 .class ansi beforefieldinit Test extends [mscorlib]System.Object
  70 {
  71         .field int32 val
  72         .field object obj
  73
  74         .method public hidebysig  specialname  rtspecialname instance default void .ctor ()  cil managed
  75         {
  76                 .maxstack 8
  77                 .locals init (Test V_0)
  78                 ldarg.0
  79                 CODE
  80
  81                 leave END
  82 END:
  83                 ret
  84         }
  85
  86         .method public hidebysig static default void StaticMethod (object A_0)  cil managed
  87         {
  88                 .maxstack 8
  89                 ret
  90         }
  91
  92
  93         .method public hidebysig instance default void InstanceMethod ()  cil managed
  94         {
  95                 .maxstack 8
  96                 ret
  97         }
  98
  99 }
 100
 101
 102 .class public auto ansi beforefieldinit Driver
 103         extends [mscorlib]System.Object
 104 {
 105         .method public hidebysig  specialname  rtspecialname instance default void .ctor ()  cil managed
 106         {
 107                 .maxstack 8
 108                 ldarg.0
 109                 call instance void object::'.ctor'()
 110
 111                 ret
 112         }
 113
 114         .method public static int32 Main ()
 115         {
 116                 .entrypoint
 117                 .maxstack 2
 118                 .locals init ()
 119                 newobj instance void ${TARGET_TYPE}::.ctor()
 120                 pop
 121                 ldc.i4.0
 122                 ret
 123
 124         }
 125 }
 126 //EOF