Fix marshalling null delegates (dotnet#241)

Null delegates marshal as null pointers and vice versa.

Author: MichalStrehovsky

src/coreclr/src/tools/Common/TypeSystem/Interop/IL/Marshaller.cs

@@ -1824,20 +1824,38 @@ class DelegateMarshaller : Marshaller
     {
         protected override void AllocAndTransformManagedToNative(ILCodeStream codeStream)
         {
+            ILCodeLabel lNullPointer = _ilCodeStreams.Emitter.NewCodeLabel();
+            ILCodeLabel lDone = _ilCodeStreams.Emitter.NewCodeLabel();
+
             LoadManagedValue(codeStream);
+            codeStream.Emit(ILOpcode.dup);
+            codeStream.Emit(ILOpcode.brfalse, lNullPointer);
 
             codeStream.Emit(ILOpcode.call, _ilCodeStreams.Emitter.NewToken(
                 InteropTypes.GetMarshal(Context).GetKnownMethod("GetFunctionPointerForDelegate",
                 new MethodSignature(MethodSignatureFlags.Static, 0, Context.GetWellKnownType(WellKnownType.IntPtr),
                     new TypeDesc[] { Context.GetWellKnownType(WellKnownType.MulticastDelegate).BaseType }
                 ))));
 
+            codeStream.Emit(ILOpcode.br, lDone);
+
+            codeStream.EmitLabel(lNullPointer);
+            codeStream.Emit(ILOpcode.pop);
+            codeStream.EmitLdc(0);
+            codeStream.Emit(ILOpcode.conv_i);
+
+            codeStream.EmitLabel(lDone);
             StoreNativeValue(codeStream);
         }
 
         protected override void TransformNativeToManaged(ILCodeStream codeStream)
         {
+            ILCodeLabel lNullPointer = _ilCodeStreams.Emitter.NewCodeLabel();
+            ILCodeLabel lDone = _ilCodeStreams.Emitter.NewCodeLabel();
+
             LoadNativeValue(codeStream);
+            codeStream.Emit(ILOpcode.dup);
+            codeStream.Emit(ILOpcode.brfalse, lNullPointer);
 
             TypeDesc systemType = Context.SystemModule.GetKnownType("System", "Type");
 
@@ -1850,6 +1868,13 @@ protected override void TransformNativeToManaged(ILCodeStream codeStream)
                     new TypeDesc[] { Context.GetWellKnownType(WellKnownType.IntPtr), systemType }
                 ))));
 
+            codeStream.Emit(ILOpcode.br, lDone);
+
+            codeStream.EmitLabel(lNullPointer);
+            codeStream.Emit(ILOpcode.pop);
+            codeStream.Emit(ILOpcode.ldnull);
+
+            codeStream.EmitLabel(lDone);
             StoreManagedValue(codeStream);
         }