Merge pull request #205 from m3rlinez/master
[mono.git] / mono / metadata / exception.c
index 469561cb8528d2ebef33b42aa4a3b39d91907df5..ee10668e20d247ff82d058cafc5dc8690204c455 100644 (file)
@@ -7,11 +7,13 @@
  *     Dick Porter     (dick@ximian.com)
  *      Miguel de Icaza (miguel@ximian.com)
  *
- * (C) 2001, 2002 Ximian, Inc.
+ * Copyright 2001-2003 Ximian, Inc (http://www.ximian.com)
+ * Copyright 2004-2009 Novell, Inc (http://www.novell.com)
  */
 
 #include <mono/metadata/exception.h>
 #include <mono/metadata/object-internals.h>
+#include <mono/metadata/metadata-internals.h>
 #include <mono/metadata/appdomain.h>
 #include <string.h>
 
@@ -51,13 +53,18 @@ mono_exception_from_name_domain (MonoDomain *domain, MonoImage *image,
 {
        MonoClass *klass;
        MonoObject *o;
+       MonoDomain *caller_domain = mono_domain_get ();
 
        klass = mono_class_from_name (image, name_space, name);
 
        o = mono_object_new (domain, klass);
        g_assert (o != NULL);
-       
+
+       if (domain != caller_domain)
+               mono_domain_set_internal (domain);
        mono_runtime_object_init (o);
+       if (domain != caller_domain)
+               mono_domain_set_internal (caller_domain);
 
        return (MonoException *)o;
 }
@@ -88,25 +95,10 @@ mono_exception_from_token (MonoImage *image, guint32 token)
        return (MonoException *)o;
 }
 
-/**
- * mono_exception_from_name_two_strings:
- * @image: the Mono image where to look for the class
- * @name_space: the namespace for the class
- * @name: class name
- * @a1: first string argument to pass
- * @a2: second string argument to pass
- *
- * Creates an exception from a constructor that takes two string
- * arguments.
- *
- * Returns: the initialized exception instance.
- */
-MonoException *
-mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
-                                     const char *name, MonoString *a1, MonoString *a2)
+static MonoException *
+create_exception_two_strings (MonoClass *klass, MonoString *a1, MonoString *a2)
 {
        MonoDomain *domain = mono_domain_get ();
-       MonoClass *klass;
        MonoMethod *method = NULL;
        MonoObject *o;
        int count = 1;
@@ -117,7 +109,6 @@ mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
        if (a2 != NULL)
                count++;
        
-       klass = mono_class_from_name (image, name_space, name);
        o = mono_object_new (domain, klass);
 
        iter = NULL;
@@ -135,6 +126,7 @@ mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
                if (count == 2 && sig->params [1]->type != MONO_TYPE_STRING)
                        continue;
                method = m;
+               break;
        }
 
        args [0] = a1;
@@ -143,6 +135,28 @@ mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
        return (MonoException *) o;
 }
 
+/**
+ * mono_exception_from_name_two_strings:
+ * @image: the Mono image where to look for the class
+ * @name_space: the namespace for the class
+ * @name: class name
+ * @a1: first string argument to pass
+ * @a2: second string argument to pass
+ *
+ * Creates an exception from a constructor that takes two string
+ * arguments.
+ *
+ * Returns: the initialized exception instance.
+ */
+MonoException *
+mono_exception_from_name_two_strings (MonoImage *image, const char *name_space,
+                                     const char *name, MonoString *a1, MonoString *a2)
+{
+       MonoClass *klass = mono_class_from_name (image, name_space, name);
+
+       return create_exception_two_strings (klass, a1, a2);
+}
+
 /**
  * mono_exception_from_name_msg:
  * @image: the Mono image where to look for the class
@@ -163,11 +177,26 @@ mono_exception_from_name_msg (MonoImage *image, const char *name_space,
        ex = mono_exception_from_name (image, name_space, name);
 
        if (msg)
-               ex->message = mono_string_new (mono_object_get_domain ((MonoObject*)ex), msg);
+               MONO_OBJECT_SETREF (ex, message, mono_string_new (mono_object_get_domain ((MonoObject*)ex), msg));
 
        return ex;
 }
 
+/**
+ * mono_exception_from_token_two_strings:
+ *
+ *   Same as mono_exception_from_name_two_strings, but lookup the exception class using
+ * IMAGE and TOKEN.
+ */
+MonoException *
+mono_exception_from_token_two_strings (MonoImage *image, guint32 token,
+                                                                          MonoString *a1, MonoString *a2)
+{
+       MonoClass *klass = mono_class_get (image, token);
+
+       return create_exception_two_strings (klass, a1, a2);
+}
+
 /**
  * mono_get_exception_divide_by_zero:
  *
@@ -204,6 +233,18 @@ mono_get_exception_thread_abort ()
                                         "ThreadAbortException");
 }
 
+/**
+ * mono_get_exception_thread_interrupted:
+ *
+ * Returns: a new instance of the System.Threading.ThreadInterruptedException.
+ */
+MonoException *
+mono_get_exception_thread_interrupted ()
+{
+       return mono_exception_from_name (mono_get_corlib (), "System.Threading",
+                                        "ThreadInterruptedException");
+}
+
 /**
  * mono_get_exception_arithmetic:
  *
@@ -337,15 +378,19 @@ mono_get_exception_type_load (MonoString *class_name, char *assembly_name)
 MonoException *
 mono_get_exception_not_implemented (const char *msg)
 {
-       MonoException *ex;
-       
-       ex = mono_exception_from_name (mono_get_corlib (), "System",
-                                      "NotImplementedException");
-
-       if (msg)
-               ex->message = mono_string_new (mono_object_get_domain ((MonoObject*)ex), msg);
+       return mono_exception_from_name_msg (mono_get_corlib (), "System", "NotImplementedException", msg);
+}
 
-       return ex;
+/**
+ * mono_get_exception_not_supported:
+ * @msg: the message to pass to the user
+ *
+ * Returns: a new instance of the System.NotSupportedException
+ */
+MonoException *
+mono_get_exception_not_supported (const char *msg)
+{
+       return mono_exception_from_name_msg (mono_get_corlib (), "System", "NotSupportedException", msg);
 }
 
 /**
@@ -396,9 +441,10 @@ mono_get_exception_argument_null (const char *arg)
        ex = mono_exception_from_name ( 
                mono_get_corlib (), "System", "ArgumentNullException");
 
-       if (arg)
-               ((MonoArgumentException *)ex)->param_name =
-                       mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg);
+       if (arg) {
+               MonoArgumentException *argex = (MonoArgumentException *)ex;
+               MONO_OBJECT_SETREF (argex, param_name, mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg));
+       }
        
        return ex;
 }
@@ -417,9 +463,10 @@ mono_get_exception_argument (const char *arg, const char *msg)
        ex = mono_exception_from_name_msg (
                mono_get_corlib (), "System", "ArgumentException", msg);
 
-       if (arg)
-               ((MonoArgumentException *)ex)->param_name =
-                       mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg);
+       if (arg) {
+               MonoArgumentException *argex = (MonoArgumentException *)ex;
+               MONO_OBJECT_SETREF (argex, param_name, mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg));
+       }
        
        return ex;
 }
@@ -438,9 +485,10 @@ mono_get_exception_argument_out_of_range (const char *arg)
        ex = mono_exception_from_name (
                mono_get_corlib (), "System", "ArgumentOutOfRangeException");
 
-       if (arg)
-               ((MonoArgumentException *)ex)->param_name =
-                       mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg);
+       if (arg) {
+               MonoArgumentException *argex = (MonoArgumentException *)ex;
+               MONO_OBJECT_SETREF (argex, param_name, mono_string_new (mono_object_get_domain ((MonoObject*)ex), arg));
+       }
        
        return ex;
 }
@@ -494,7 +542,7 @@ mono_get_exception_file_not_found (MonoString *fname)
 MonoException *
 mono_get_exception_file_not_found2 (const char *msg, MonoString *fname)
 {
-       MonoString *s = mono_string_new (mono_domain_get (), msg);
+       MonoString *s = msg ? mono_string_new (mono_domain_get (), msg) : NULL;
 
        return mono_exception_from_name_two_strings (
                mono_get_corlib (), "System.IO", "FileNotFoundException", s, fname);
@@ -544,7 +592,7 @@ mono_get_exception_type_initialization (const gchar *type_name, MonoException *i
  * mono_get_exception_synchronization_lock:
  * @inner: the inner exception.
  *
- * Returns: a new instance of the System.TypeInitializationException
+ * Returns: a new instance of the System.SynchronizationLockException
  */
 MonoException *
 mono_get_exception_synchronization_lock (const char *msg)
@@ -587,6 +635,22 @@ mono_get_exception_bad_image_format (const char *msg)
        return mono_exception_from_name_msg (mono_get_corlib (), "System", "BadImageFormatException", msg);
 }      
 
+/**
+ * mono_get_exception_bad_image_format2:
+ * @msg: an informative message for the user.
+ * @fname: The full name of the file with the invalid image.
+ *
+ * Returns: a new instance of the System.BadImageFormatException
+ */
+MonoException *
+mono_get_exception_bad_image_format2 (const char *msg, MonoString *fname)
+{
+       MonoString *s = msg ? mono_string_new (mono_domain_get (), msg) : NULL;
+
+       return mono_exception_from_name_two_strings (
+               mono_get_corlib (), "System", "BadImageFormatException", s, fname);
+}
+
 /**
  * mono_get_exception_stack_overflow:
  *
@@ -598,6 +662,63 @@ mono_get_exception_stack_overflow (void)
        return mono_exception_from_name (mono_get_corlib (), "System", "StackOverflowException");       
 }
 
+/**
+ * mono_get_exception_out_of_memory:
+ *
+ * Returns: a new instance of the System.OutOfMemoryException
+ */
+MonoException *
+mono_get_exception_out_of_memory (void)
+{
+       return mono_exception_from_name (mono_get_corlib (), "System", "OutOfMemoryException");
+}
+
+/**
+ * mono_get_exception_field_access:
+ *
+ * Returns: a new instance of the System.FieldAccessException
+ */
+MonoException *
+mono_get_exception_field_access (void)
+{
+       return mono_exception_from_name (mono_get_corlib (), "System", "FieldAccessException");
+}
+
+/**
+ * mono_get_exception_field_access2:
+ * @msg: an informative message for the user.
+ *
+ * Returns: a new instance of the System.FieldAccessException
+ */
+MonoException *
+mono_get_exception_field_access_msg (const char *msg)
+{
+       return mono_exception_from_name_msg (mono_get_corlib (), "System", "FieldAccessException", msg);
+}
+
+/**
+ * mono_get_exception_method_access:
+ *
+ * Returns: a new instance of the System.MethodAccessException
+ */
+MonoException *
+mono_get_exception_method_access (void)
+{
+       return mono_exception_from_name (mono_get_corlib (), "System", "MethodAccessException");
+}
+
+/**
+ * mono_get_exception_method_access2:
+ * @msg: an informative message for the user.
+ *
+ * Returns: a new instance of the System.MethodAccessException
+ */
+MonoException *
+mono_get_exception_method_access_msg (const char *msg)
+{
+       return mono_exception_from_name_msg (mono_get_corlib (), "System", "MethodAccessException", msg);
+}
+
 /**
  * mono_get_exception_reflection_type_load:
  * @types: an array of types that were defined in the moduled loaded.
@@ -628,3 +749,14 @@ mono_get_exception_reflection_type_load (MonoArray *types, MonoArray *exceptions
 
        return (MonoException *) exc;
 }
+
+MonoException *
+mono_get_exception_runtime_wrapped (MonoObject *wrapped_exception)
+{
+       MonoRuntimeWrappedException *ex = (MonoRuntimeWrappedException*)
+               mono_exception_from_name (mono_get_corlib (), "System.Runtime.CompilerServices",
+                                                                 "RuntimeWrappedException");
+
+   MONO_OBJECT_SETREF (ex, wrapped_exception, wrapped_exception);
+   return (MonoException*)ex;
+}