From: Martin Baulig <martin@novell.com>
Date: Wed, 2 Feb 2005 12:10:15 +0000 (-0000)
Subject: 2005-02-02  Martin Baulig  <martin@ximian.com>
X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;h=ea15effd923d6ce84e2b3d93641b6144a2c45180;p=mono.git

2005-02-02  Martin Baulig  <martin@ximian.com>

	* delegate.cs (Delegate.DefineType): Report an internal error if
	TypeManager.multicast_delegate_type is null.  See bug #72015 for
	details.


svn path=/trunk/mcs/; revision=39979
---

diff --git a/mcs/mcs/ChangeLog b/mcs/mcs/ChangeLog
index 9b8f6e42cfb..925779b0406 100644
--- a/mcs/mcs/ChangeLog
+++ b/mcs/mcs/ChangeLog
@@ -1,3 +1,9 @@
+2005-02-02  Martin Baulig  <martin@ximian.com>
+
+	* delegate.cs (Delegate.DefineType): Report an internal error if
+	TypeManager.multicast_delegate_type is null.  See bug #72015 for
+	details.	
+
 2005-02-02  Raja R Harinath  <rharinath@novell.com>
 
 	Fix a crasher in a variant of #31984.
diff --git a/mcs/mcs/delegate.cs b/mcs/mcs/delegate.cs
index 84ecc3e68ab..75a0989906e 100644
--- a/mcs/mcs/delegate.cs
+++ b/mcs/mcs/delegate.cs
@@ -84,6 +84,12 @@ namespace Mono.CSharp {
 			TypeAttributes attr = Modifiers.TypeAttr (ModFlags, IsTopLevel) |
 				TypeAttributes.Class | TypeAttributes.Sealed;
 
+			if (TypeManager.multicast_delegate_type == null)
+				Report.Error (-100, loc, "Internal error: delegate used before " +
+					      "System.MulticastDelegate is resolved.  This can only " +
+					      "happen during corlib compilation, when using a delegate " +
+					      "in any of the `core' classes.  See bug #72015 for details.");
+
 			if (IsTopLevel) {
 				if (TypeManager.NamespaceClash (Name, Location))
 					return null;