[sgen] Binary protocol for every write barrier, not just the generic store one.
[mono.git] / mono / metadata / appdomain.c
index f84274f6960f80fe2f776e280f4ebcd9343bff19..f9cb246a676807b76f62da4f0d147a42a6f1c98e 100644 (file)
 #include <config.h>
 #include <glib.h>
 #include <string.h>
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
 #include <errno.h>
-#include <sys/stat.h>
 #include <sys/types.h>
+#include <sys/stat.h>
 #ifdef HAVE_SYS_TIME_H
 #include <sys/time.h>
 #endif
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
 #ifdef HAVE_UTIME_H
 #include <utime.h>
 #else
 #include <mono/metadata/threads-types.h>
 #include <mono/metadata/tokentype.h>
 #include <mono/utils/mono-uri.h>
-#include <mono/utils/mono-logger.h>
+#include <mono/utils/mono-logger-internal.h>
 #include <mono/utils/mono-path.h>
 #include <mono/utils/mono-stdlib.h>
 #include <mono/utils/mono-io-portability.h>
-#ifdef PLATFORM_WIN32
+#include <mono/utils/mono-error-internals.h>
+#ifdef HOST_WIN32
 #include <direct.h>
 #endif
 
  * Changes which are already detected at runtime, like the addition
  * of icalls, do not require an increment.
  */
-#define MONO_CORLIB_VERSION 86
+#define MONO_CORLIB_VERSION 96
 
 typedef struct
 {
        int runtime_count;
        int assemblybinding_count;
        MonoDomain *domain;
+       gchar *filename;
 } RuntimeConfig;
 
 CRITICAL_SECTION mono_delegate_section;
 
-#ifdef _EGLIB_MAJOR
-/* Need to lock here because EGLIB has locking defined as no-ops, we can not depend on mono_strtod do the right locking */
-/* Ideally this will be fixed in eglib */
 CRITICAL_SECTION mono_strtod_mutex;
-#endif
-
 
 static gunichar2 process_guid [36];
 static gboolean process_guid_set = FALSE;
@@ -120,7 +117,7 @@ static MonoAppDomain *
 mono_domain_create_appdomain_internal (char *friendly_name, MonoAppDomainSetup *setup);
 
 static char *
-get_shadow_assembly_location_base (MonoDomain *domain);
+get_shadow_assembly_location_base (MonoDomain *domain, MonoError *error);
 
 static MonoLoadFunc load_function = NULL;
 
@@ -137,13 +134,13 @@ mono_runtime_load (const char *filename, const char *runtime_version)
        return load_function (filename, runtime_version);
 }
 
-/*
+/**
  * mono_runtime_set_no_exec:
  *
- *   Instructs the runtime to operate in static mode, i.e. avoid/do not allow managed
- * code execution. This is useful for running the AOT compiler on platforms which
- * allow full-aot execution only.
- * This should be called before mono_runtime_init ().
+ * Instructs the runtime to operate in static mode, i.e. avoid/do not
+ * allow managed code execution. This is useful for running the AOT
+ * compiler on platforms which allow full-aot execution only.  This
+ * should be called before mono_runtime_init ().
  */
 void
 mono_runtime_set_no_exec (gboolean val)
@@ -151,12 +148,58 @@ mono_runtime_set_no_exec (gboolean val)
        no_exec = val;
 }
 
+/**
+ * mono_runtime_get_no_exec:
+ *
+ * If true, then the runtime will not allow managed code execution.
+ */
 gboolean
 mono_runtime_get_no_exec (void)
 {
        return no_exec;
 }
 
+static void
+create_domain_objects (MonoDomain *domain)
+{
+       MonoDomain *old_domain = mono_domain_get ();
+       MonoString *arg;
+
+       if (domain != old_domain) {
+               mono_thread_push_appdomain_ref (domain);
+               mono_domain_set_internal_with_options (domain, FALSE);
+       }
+
+       /*
+        * Create an instance early since we can't do it when there is no memory.
+        */
+       arg = mono_string_new (domain, "Out of memory");
+       domain->out_of_memory_ex = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "OutOfMemoryException", arg, NULL);
+
+       /* 
+        * These two are needed because the signal handlers might be executing on
+        * an alternate stack, and Boehm GC can't handle that.
+        */
+       arg = mono_string_new (domain, "A null value was found where an object instance was required");
+       domain->null_reference_ex = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "NullReferenceException", arg, NULL);
+       arg = mono_string_new (domain, "The requested operation caused a stack overflow.");
+       domain->stack_overflow_ex = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "StackOverflowException", arg, NULL);
+
+       /*The ephemeron tombstone i*/
+       domain->ephemeron_tombstone = mono_object_new (domain, mono_defaults.object_class);
+
+       if (domain != old_domain) {
+               mono_thread_pop_appdomain_ref ();
+               mono_domain_set_internal_with_options (old_domain, FALSE);
+       }
+
+       /* 
+        * This class is used during exception handling, so initialize it here, to prevent
+        * stack overflows while handling stack overflows.
+        */
+       mono_class_init (mono_array_class_get (mono_defaults.int_class, 1));
+}
+
 /**
  * mono_runtime_init:
  * @domain: domain returned by mono_init ()
@@ -176,7 +219,6 @@ mono_runtime_init (MonoDomain *domain, MonoThreadStartCB start_cb,
        MonoAppDomainSetup *setup;
        MonoAppDomain *ad;
        MonoClass *class;
-       MonoString *arg;
 
        mono_portability_helpers_init ();
        
@@ -207,10 +249,7 @@ mono_runtime_init (MonoDomain *domain, MonoThreadStartCB start_cb,
 
        InitializeCriticalSection (&mono_delegate_section);
 
-#ifdef _EGLIB_MAJOR
-       /* Needed until EGLIB is fixed #464316 */
        InitializeCriticalSection (&mono_strtod_mutex);
-#endif
        
        mono_thread_attach (domain);
        mono_context_init (domain);
@@ -218,22 +257,8 @@ mono_runtime_init (MonoDomain *domain, MonoThreadStartCB start_cb,
 
        mono_type_initialization_init ();
 
-       if (!mono_runtime_get_no_exec ()) {
-               /*
-                * Create an instance early since we can't do it when there is no memory.
-                */
-               arg = mono_string_new (domain, "Out of memory");
-               domain->out_of_memory_ex = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "OutOfMemoryException", arg, NULL);
-       
-               /* 
-                * These two are needed because the signal handlers might be executing on
-                * an alternate stack, and Boehm GC can't handle that.
-                */
-               arg = mono_string_new (domain, "A null value was found where an object instance was required");
-               domain->null_reference_ex = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "NullReferenceException", arg, NULL);
-               arg = mono_string_new (domain, "The requested operation caused a stack overflow.");
-               domain->stack_overflow_ex = mono_exception_from_name_two_strings (mono_defaults.corlib, "System", "StackOverflowException", arg, NULL);
-       }
+       if (!mono_runtime_get_no_exec ())
+               create_domain_objects (domain);
 
        /* GC init has to happen after thread init */
        mono_gc_init ();
@@ -271,6 +296,14 @@ mono_get_corlib_version (void)
        return *(gint32*)((gchar*)value + sizeof (MonoObject));
 }
 
+/**
+ * mono_check_corlib_version
+ *
+ * Checks that the corlib that is loaded matches the version of this runtime.
+ *
+ * Returns: NULL if the runtime will work with the corlib, or a g_malloc
+ * allocated string with the error otherwise.
+ */
 const char*
 mono_check_corlib_version (void)
 {
@@ -281,6 +314,12 @@ mono_check_corlib_version (void)
                return NULL;
 }
 
+/**
+ * mono_context_init:
+ * @domain: The domain where the System.Runtime.Remoting.Context.Context is initialized
+ *
+ * Initializes the @domain's default System.Runtime.Remoting's Context.
+ */
 void
 mono_context_init (MonoDomain *domain)
 {
@@ -323,10 +362,6 @@ mono_runtime_cleanup (MonoDomain *domain)
        mono_type_initialization_cleanup ();
 
        mono_monitor_cleanup ();
-
-#ifndef PLATFORM_WIN32
-       _wapi_cleanup ();
-#endif
 }
 
 static MonoDomainFunc quit_function = NULL;
@@ -432,6 +467,7 @@ copy_app_domain_setup (MonoDomain *domain, MonoAppDomainSetup *setup)
 static MonoAppDomain *
 mono_domain_create_appdomain_internal (char *friendly_name, MonoAppDomainSetup *setup)
 {
+       MonoError error;
        MonoClass *adclass;
        MonoAppDomain *ad;
        MonoDomain *data;
@@ -458,20 +494,20 @@ mono_domain_create_appdomain_internal (char *friendly_name, MonoAppDomainSetup *
 
        mono_context_init (data);
 
+       data->setup = copy_app_domain_setup (data, setup);
        mono_set_private_bin_path_from_config (data);
-       
        add_assemblies_to_domain (data, mono_defaults.corlib->assembly, NULL);
 
-       data->setup = copy_app_domain_setup (data, setup);
-
 #ifndef DISABLE_SHADOW_COPY
-       shadow_location = get_shadow_assembly_location_base (data);
+       /*FIXME, guard this for when the debugger is not running */
+       shadow_location = get_shadow_assembly_location_base (data, &error);
+       if (!mono_error_ok (&error))
+               mono_error_raise_exception (&error);
        mono_debugger_event_create_appdomain (data, shadow_location);
        g_free (shadow_location);
 #endif
 
-       // FIXME: Initialize null_reference_ex and stack_overflow_ex
-       data->out_of_memory_ex = mono_exception_from_name_domain (data, mono_defaults.corlib, "System", "OutOfMemoryException");
+       create_domain_objects (data);
 
        return ad;
 }
@@ -494,6 +530,10 @@ mono_domain_has_type_resolve (MonoDomain *domain)
                g_assert (field);
        }
 
+       /*pedump doesn't create an appdomin, so the domain object doesn't exist.*/
+       if (!domain->domain)
+               return FALSE;
+
        mono_field_get_value ((MonoObject*)(domain->domain), field, &o);
        return o != NULL;
 }
@@ -751,48 +791,72 @@ end_element (GMarkupParseContext *context,
                runtime_config->assemblybinding_count--;
 }
 
+static void
+parse_error   (GMarkupParseContext *context, GError *error, gpointer user_data)
+{
+       RuntimeConfig *state = user_data;
+       const gchar *msg;
+       const gchar *filename;
+
+       filename = state && state->filename ? (gchar *) state->filename : "<unknown>";
+       msg = error && error->message ? error->message : "";
+       g_warning ("Error parsing %s: %s", filename, msg);
+}
+
 static const GMarkupParser
 mono_parser = {
        start_element,
        end_element,
        NULL,
        NULL,
-       NULL
+       parse_error
 };
 
 void
 mono_set_private_bin_path_from_config (MonoDomain *domain)
 {
        MonoError error;
-       gchar *config_file, *text;
+       gchar *config_file_name = NULL, *text = NULL, *config_file_path = NULL;
        gsize len;
        GMarkupParseContext *context;
        RuntimeConfig runtime_config;
+       gint offset;
        
        if (!domain || !domain->setup || !domain->setup->configuration_file)
                return;
 
-       config_file = mono_string_to_utf8_checked (domain->setup->configuration_file, &error); 
+       config_file_name = mono_string_to_utf8_checked (domain->setup->configuration_file, &error);
        if (!mono_error_ok (&error)) {
                mono_error_cleanup (&error);
-               return;
+               goto free_and_out;
        }
 
-       if (!g_file_get_contents (config_file, &text, &len, NULL)) {
-               g_free (config_file);
-               return;
-       }
-       g_free (config_file);
+       config_file_path = mono_portability_find_file (config_file_name, TRUE);
+       if (!config_file_path)
+               config_file_path = config_file_name;
+
+       if (!g_file_get_contents (config_file_path, &text, &len, NULL))
+               goto free_and_out;
 
        runtime_config.runtime_count = 0;
        runtime_config.assemblybinding_count = 0;
        runtime_config.domain = domain;
+       runtime_config.filename = config_file_path;
        
+       offset = 0;
+       if (len > 3 && text [0] == '\xef' && text [1] == (gchar) '\xbb' && text [2] == '\xbf')
+               offset = 3; /* Skip UTF-8 BOM */
+
        context = g_markup_parse_context_new (&mono_parser, 0, &runtime_config, NULL);
-       if (g_markup_parse_context_parse (context, text, len, NULL))
+       if (g_markup_parse_context_parse (context, text + offset, len - offset, NULL))
                g_markup_parse_context_end_parse (context, NULL);
        g_markup_parse_context_free (context);
+
+  free_and_out:
        g_free (text);
+       if (config_file_name != config_file_path)
+               g_free (config_file_name);
+       g_free (config_file_path);
 }
 
 MonoAppDomain *
@@ -887,12 +951,17 @@ mono_domain_assembly_postload_search (MonoAssemblyName *aname,
        MonoReflectionAssembly *assembly;
        MonoDomain *domain = mono_domain_get ();
        char *aname_str;
+       MonoString *str;
 
        aname_str = mono_stringify_assembly_name (aname);
 
        /* FIXME: We invoke managed code here, so there is a potential for deadlocks */
-       assembly = mono_try_assembly_resolve (domain, mono_string_new (domain, aname_str), refonly);
-
+       str = mono_string_new (domain, aname_str);
+       if (!str) {
+               g_free (aname_str);
+               return NULL;
+       }
+       assembly = mono_try_assembly_resolve (domain, str, refonly);
        g_free (aname_str);
 
        if (assembly)
@@ -927,7 +996,7 @@ add_assemblies_to_domain (MonoDomain *domain, MonoAssembly *ass, GHashTable *ht)
                mono_assembly_addref (ass);
                g_hash_table_insert (ht, ass, ass);
                domain->domain_assemblies = g_slist_prepend (domain->domain_assemblies, ass);
-               mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_ASSEMBLY, "Assembly %s %p added to domain %s, ref_count=%d\n", ass->aname.name, ass, domain->friendly_name, ass->ref_count);
+               mono_trace (G_LOG_LEVEL_INFO, MONO_TRACE_ASSEMBLY, "Assembly %s[%p] added to domain %s, ref_count=%d", ass->aname.name, ass, domain->friendly_name, ass->ref_count);
        }
 
        if (ass->image->references) {
@@ -1030,7 +1099,7 @@ set_domain_search_path (MonoDomain *domain)
        if (setup->private_bin_path) {
                search_path = mono_string_to_utf8_checked (setup->private_bin_path, &error);
                if (!mono_error_ok (&error)) { /*FIXME maybe we should bubble up the error.*/
-                       g_warning ("Could not decode AppDomain search path since it contains invalid caracters");
+                       g_warning ("Could not decode AppDomain search path since it contains invalid characters");
                        mono_error_cleanup (&error);
                        mono_domain_assemblies_unlock (domain);
                        return;
@@ -1059,7 +1128,7 @@ set_domain_search_path (MonoDomain *domain)
                 * The issue was reported in bug #81446
                 */
 
-#ifndef PLATFORM_WIN32
+#ifndef TARGET_WIN32
                gint slen;
 
                slen = strlen (search_path);
@@ -1191,8 +1260,18 @@ shadow_copy_sibling (gchar *src, gint srclen, const char *extension, gchar *targ
        gboolean copy_result;
        
        strcpy (src + srclen - tail_len, extension);
-       if (!g_file_test (src, G_FILE_TEST_IS_REGULAR))
+
+       if (IS_PORTABILITY_CASE) {
+               gchar *file = mono_portability_find_file (src, TRUE);
+
+               if (file == NULL)
+                       return TRUE;
+
+               g_free (file);
+       } else if (!g_file_test (src, G_FILE_TEST_IS_REGULAR)) {
                return TRUE;
+       }
+
        orig = g_utf8_to_utf16 (src, strlen (src), NULL, NULL, NULL);
 
        strcpy (target + targetlen - tail_len, extension);
@@ -1200,6 +1279,12 @@ shadow_copy_sibling (gchar *src, gint srclen, const char *extension, gchar *targ
        
        DeleteFile (dest);
        copy_result = CopyFile (orig, dest, FALSE);
+
+       /* Fix for bug #556884 - make sure the files have the correct mode so that they can be
+        * overwritten when updated in their original locations. */
+       if (copy_result)
+               copy_result = SetFileAttributes (dest, FILE_ATTRIBUTE_NORMAL);
+
        g_free (orig);
        g_free (dest);
        
@@ -1230,17 +1315,21 @@ get_cstring_hash (const char *str)
  * Returned memory is malloc'd. Called must free it 
  */
 static char *
-get_shadow_assembly_location_base (MonoDomain *domain)
+get_shadow_assembly_location_base (MonoDomain *domain, MonoError *error)
 {
        MonoAppDomainSetup *setup;
        char *cache_path, *appname;
        char *userdir;
        char *location;
+
+       mono_error_init (error);
        
        setup = domain->setup;
        if (setup->cache_path != NULL && setup->application_name != NULL) {
-               cache_path = mono_string_to_utf8 (setup->cache_path); //FIXME
-#ifndef PLATFORM_WIN32
+               cache_path = mono_string_to_utf8_checked (setup->cache_path, error);
+               if (!mono_error_ok (error))
+                       return NULL;
+#ifndef TARGET_WIN32
                {
                        gint i;
                        for (i = strlen (cache_path) - 1; i >= 0; i--)
@@ -1249,7 +1338,12 @@ get_shadow_assembly_location_base (MonoDomain *domain)
                }
 #endif
 
-               appname = mono_string_to_utf8 (setup->application_name);//FIXME
+               appname = mono_string_to_utf8_checked (setup->application_name, error);
+               if (!mono_error_ok (error)) {
+                       g_free (cache_path);
+                       return NULL;
+               }
+
                location = g_build_filename (cache_path, appname, "assembly", "shadow", NULL);
                g_free (appname);
                g_free (cache_path);
@@ -1262,7 +1356,7 @@ get_shadow_assembly_location_base (MonoDomain *domain)
 }
 
 static char *
-get_shadow_assembly_location (const char *filename)
+get_shadow_assembly_location (const char *filename, MonoError *error)
 {
        gint32 hash = 0, hash2 = 0;
        char name_hash [9];
@@ -1271,12 +1365,20 @@ get_shadow_assembly_location (const char *filename)
        char *dirname = g_path_get_dirname (filename);
        char *location, *tmploc;
        MonoDomain *domain = mono_domain_get ();
+
+       mono_error_init (error);
        
        hash = get_cstring_hash (bname);
        hash2 = get_cstring_hash (dirname);
        g_snprintf (name_hash, sizeof (name_hash), "%08x", hash);
        g_snprintf (path_hash, sizeof (path_hash), "%08x_%08x_%08x", hash ^ hash2, hash2, domain->shadow_serial);
-       tmploc = get_shadow_assembly_location_base (domain);
+       tmploc = get_shadow_assembly_location_base (domain, error);
+       if (!mono_error_ok (error)) {
+               g_free (bname);
+               g_free (dirname);
+               return NULL;
+       }
+
        location = g_build_filename (tmploc, name_hash, path_hash, bname, NULL);
        g_free (tmploc);
        g_free (bname);
@@ -1287,7 +1389,7 @@ get_shadow_assembly_location (const char *filename)
 static gboolean
 ensure_directory_exists (const char *filename)
 {
-#ifdef PLATFORM_WIN32
+#ifdef HOST_WIN32
        gchar *dir_utf8 = g_path_get_dirname (filename);
        gunichar2 *p;
        gunichar2 *dir_utf16 = NULL;
@@ -1379,10 +1481,22 @@ static gboolean
 private_file_needs_copying (const char *src, struct stat *sbuf_src, char *dest)
 {
        struct stat sbuf_dest;
+       gchar *real_src = mono_portability_find_file (src, TRUE);
+
+       if (!real_src)
+               real_src = (gchar*)src;
        
-       if (stat (src, sbuf_src) == -1 || stat (dest, &sbuf_dest) == -1)
+       if (stat (real_src, sbuf_src) == -1) {
+               time_t tnow = time (NULL);
+               memset (sbuf_src, 0, sizeof (*sbuf_src));
+               sbuf_src->st_mtime = tnow;
+               sbuf_src->st_atime = tnow;
                return TRUE;
+       }
 
+       if (stat (dest, &sbuf_dest) == -1)
+               return TRUE;
+       
        if (sbuf_src->st_size == sbuf_dest.st_size &&
            sbuf_src->st_mtime == sbuf_dest.st_mtime)
                return FALSE;
@@ -1431,7 +1545,7 @@ shadow_copy_create_ini (const char *shadow, const char *filename)
 gboolean
 mono_is_shadow_copy_enabled (MonoDomain *domain, const gchar *dir_name)
 {
-       const char *version;
+       MonoError error;
        MonoAppDomainSetup *setup;
        gchar *all_dirs;
        gchar **dir_ptr;
@@ -1448,11 +1562,14 @@ mono_is_shadow_copy_enabled (MonoDomain *domain, const gchar *dir_name)
        if (setup == NULL || setup->shadow_copy_files == NULL)
                return FALSE;
 
-       version = mono_get_runtime_info ()->framework_version;
-       shadow_status_string = mono_string_to_utf8 (setup->shadow_copy_files);
-       /* For 1.x, not NULL is enough. In 2.0 it has to be "true" */
-       shadow_enabled = (*version <= '1' || !g_ascii_strncasecmp (shadow_status_string, "true", 4));
+       shadow_status_string = mono_string_to_utf8_checked (setup->shadow_copy_files, &error);
+       if (!mono_error_ok (&error)) {
+               mono_error_cleanup (&error);
+               return FALSE;
+       }
+       shadow_enabled = !g_ascii_strncasecmp (shadow_status_string, "true", 4);
        g_free (shadow_status_string);
+
        if (!shadow_enabled)
                return FALSE;
 
@@ -1460,14 +1577,24 @@ mono_is_shadow_copy_enabled (MonoDomain *domain, const gchar *dir_name)
                return TRUE;
 
        /* Is dir_name a shadow_copy destination already? */
-       base_dir = get_shadow_assembly_location_base (domain);
+       base_dir = get_shadow_assembly_location_base (domain, &error);
+       if (!mono_error_ok (&error)) {
+               mono_error_cleanup (&error);
+               return FALSE;
+       }
+
        if (strstr (dir_name, base_dir)) {
                g_free (base_dir);
                return TRUE;
        }
        g_free (base_dir);
 
-       all_dirs = mono_string_to_utf8 (setup->shadow_copy_directories);
+       all_dirs = mono_string_to_utf8_checked (setup->shadow_copy_directories, &error);
+       if (!mono_error_ok (&error)) {
+               mono_error_cleanup (&error);
+               return FALSE;
+       }
+
        directories = g_strsplit (all_dirs, G_SEARCHPATH_SEPARATOR_S, 1000);
        dir_ptr = directories;
        while (*dir_ptr) {
@@ -1482,9 +1609,15 @@ mono_is_shadow_copy_enabled (MonoDomain *domain, const gchar *dir_name)
        return found;
 }
 
+/*
+This function raises exceptions so it can cause as sorts of nasty stuff if called
+while holding a lock.
+FIXME bubble up the error instead of raising it here
+*/
 char *
 mono_make_shadow_copy (const char *filename)
 {
+       MonoError error;
        gchar *sibling_source, *sibling_target;
        gint sibling_source_len, sibling_target_len;
        guint16 *orig, *dest;
@@ -1503,8 +1636,16 @@ mono_make_shadow_copy (const char *filename)
                g_free (dir_name);
                return (char *) filename;
        }
+
        /* Is dir_name a shadow_copy destination already? */
-       shadow_dir = get_shadow_assembly_location_base (domain);
+       shadow_dir = get_shadow_assembly_location_base (domain, &error);
+       if (!mono_error_ok (&error)) {
+               mono_error_cleanup (&error);
+               g_free (dir_name);
+               exc = mono_get_exception_execution_engine ("Failed to create shadow copy (invalid characters in shadow directory name).");
+               mono_raise_exception (exc);
+       }
+
        if (strstr (dir_name, shadow_dir)) {
                g_free (shadow_dir);
                g_free (dir_name);
@@ -1513,7 +1654,13 @@ mono_make_shadow_copy (const char *filename)
        g_free (shadow_dir);
        g_free (dir_name);
 
-       shadow = get_shadow_assembly_location (filename);
+       shadow = get_shadow_assembly_location (filename, &error);
+       if (!mono_error_ok (&error)) {
+               mono_error_cleanup (&error);
+               exc = mono_get_exception_execution_engine ("Failed to create shadow copy (invalid characters in file name).");
+               mono_raise_exception (exc);
+       }
+
        if (ensure_directory_exists (shadow) == FALSE) {
                g_free (shadow);
                exc = mono_get_exception_execution_engine ("Failed to create shadow copy (ensure directory exists).");
@@ -1527,6 +1674,12 @@ mono_make_shadow_copy (const char *filename)
        dest = g_utf8_to_utf16 (shadow, strlen (shadow), NULL, NULL, NULL);
        DeleteFile (dest);
        copy_result = CopyFile (orig, dest, FALSE);
+
+       /* Fix for bug #556884 - make sure the files have the correct mode so that they can be
+        * overwritten when updated in their original locations. */
+       if (copy_result)
+               copy_result = SetFileAttributes (dest, FILE_ATTRIBUTE_NORMAL);
+
        g_free (dest);
        g_free (orig);
 
@@ -2011,18 +2164,28 @@ mono_domain_is_unloading (MonoDomain *domain)
 }
 
 static void
-clear_cached_vtable (gpointer key, gpointer value, gpointer user_data)
+clear_cached_vtable (MonoVTable *vtable)
 {
-       MonoClass *klass = (MonoClass*)key;
-       MonoVTable *vtable = value;
-       MonoDomain *domain = (MonoDomain*)user_data;
+       MonoClass *klass = vtable->klass;
+       MonoDomain *domain = vtable->domain;
        MonoClassRuntimeInfo *runtime_info;
+       void *data;
 
        runtime_info = klass->runtime_info;
        if (runtime_info && runtime_info->max_domain >= domain->domain_id)
                runtime_info->domain_vtables [domain->domain_id] = NULL;
-       if (vtable->data && klass->has_static_refs)
-               mono_gc_free_fixed (vtable->data);
+       if (klass->has_static_refs && (data = mono_vtable_get_static_field_data (vtable)))
+               mono_gc_free_fixed (data);
+}
+
+static G_GNUC_UNUSED void
+zero_static_data (MonoVTable *vtable)
+{
+       MonoClass *klass = vtable->klass;
+       void *data;
+
+       if (klass->has_static_refs && (data = mono_vtable_get_static_field_data (vtable)))
+               mono_gc_bzero (data, mono_class_data_size (klass));
 }
 
 typedef struct unload_data {
@@ -2030,7 +2193,6 @@ typedef struct unload_data {
        char *failure_reason;
 } unload_data;
 
-#ifdef HAVE_SGEN_GC
 static void
 deregister_reflection_info_roots_nspace_table (gpointer key, gpointer value, gpointer image)
 {
@@ -2039,8 +2201,7 @@ deregister_reflection_info_roots_nspace_table (gpointer key, gpointer value, gpo
 
        g_assert (class);
 
-       if (class->reflection_info)
-               mono_gc_deregister_root ((char*) &class->reflection_info);
+       mono_class_free_ref_info (class);
 }
 
 static void
@@ -2057,8 +2218,7 @@ deregister_reflection_info_roots_from_list (MonoImage *image)
        while (list) {
                MonoClass *class = list->data;
 
-               g_assert (class->reflection_info);
-               mono_gc_deregister_root ((char*) &class->reflection_info);
+               mono_class_free_ref_info (class);
 
                list = list->next;
        }
@@ -2096,16 +2256,17 @@ deregister_reflection_info_roots (MonoDomain *domain)
        mono_domain_assemblies_unlock (domain);
        mono_loader_unlock ();
 }
-#endif
 
 static guint32 WINAPI
 unload_thread_main (void *arg)
 {
        unload_data *data = (unload_data*)arg;
        MonoDomain *domain = data->domain;
+       MonoThread *thread;
+       int i;
 
        /* Have to attach to the runtime so shutdown can wait for this thread */
-       mono_thread_attach (mono_get_root_domain ());
+       thread = mono_thread_attach (mono_get_root_domain ());
 
        /* 
         * FIXME: Abort our parent thread last, so we can return a failure 
@@ -2134,10 +2295,26 @@ unload_thread_main (void *arg)
 
        mono_loader_lock ();
        mono_domain_lock (domain);
-       g_hash_table_foreach (domain->class_vtable_hash, clear_cached_vtable, domain);
 #ifdef HAVE_SGEN_GC
-       deregister_reflection_info_roots (domain);
+       /*
+        * We need to make sure that we don't have any remsets
+        * pointing into static data of the to-be-freed domain because
+        * at the next collections they would be invalid.  So what we
+        * do is we first zero all static data and then do a minor
+        * collection.  Because all references in the static data will
+        * now be null we won't do any unnecessary copies and after
+        * the collection there won't be any more remsets.
+        */
+       for (i = 0; i < domain->class_vtable_array->len; ++i)
+               zero_static_data (g_ptr_array_index (domain->class_vtable_array, i));
+       mono_gc_collect (0);
 #endif
+       for (i = 0; i < domain->class_vtable_array->len; ++i)
+               clear_cached_vtable (g_ptr_array_index (domain->class_vtable_array, i));
+       deregister_reflection_info_roots (domain);
+
+       mono_assembly_cleanup_domain_bindings (domain->domain_id);
+
        mono_domain_unlock (domain);
        mono_loader_unlock ();
 
@@ -2154,6 +2331,8 @@ unload_thread_main (void *arg)
 
        mono_gc_collect (mono_gc_max_generation ());
 
+       mono_thread_detach (thread);
+
        return 0;
 }
 
@@ -2219,7 +2398,7 @@ mono_domain_try_unload (MonoDomain *domain, MonoObject **exc)
                        *exc = (MonoObject *) mono_get_exception_cannot_unload_appdomain ("Appdomain is already unloaded.");
                        return;
                default:
-                       g_warning ("Incalid appdomain state %d", prev_state);
+                       g_warning ("Invalid appdomain state %d", prev_state);
                        g_assert_not_reached ();
                }
        }