2009-03-27 Gonzalo Paniagua Javier <gonzalo@novell.com>

[mono.git] / mono / metadata / appdomain.c

diff --git a/mono/metadata/appdomain.c b/mono/metadata/appdomain.c
index 0d765da703fd713d06b1d0021f13f502b210c31d..6310e03e5b2385a457c372d5b2ba411ff263f557 100644 (file)
--- a/mono/metadata/appdomain.c
+++ b/mono/metadata/appdomain.c
@@ -6,7 +6,8 @@
  *     Patrik Torstensson
  *     Gonzalo Paniagua Javier (gonzalo@ximian.com)
  *
- * (c) 2001-2003 Ximian, Inc. (http://www.ximian.com)
+ * Copyright 2001-2003 Ximian, Inc (http://www.ximian.com)
+ * Copyright 2004-2009 Novell, Inc (http://www.novell.com)
  */
 #undef ASSEMBLY_LOAD_DEBUG
 #include <config.h>
@@ -18,6 +19,9 @@
 #include <errno.h>
 #include <sys/stat.h>
 #include <sys/types.h>
+#ifdef HAVE_SYS_TIME_H
+#include <sys/time.h>
+#endif
 #ifdef HAVE_UTIME_H
 #include <utime.h>
 #else
@@ -43,6 +47,9 @@
 #include <mono/metadata/mono-debug.h>
 #include <mono/metadata/attach.h>
 #include <mono/metadata/file-io.h>
+#include <mono/metadata/lock-tracer.h>
+#include <mono/metadata/console-io.h>
+#include <mono/metadata/threads-types.h>
 #include <mono/utils/mono-uri.h>
 #include <mono/utils/mono-logger.h>
 #include <mono/utils/mono-path.h>
@@ -63,7 +70,7 @@
  * Changes which are already detected at runtime, like the addition
  * of icalls, do not require an increment.
  */
-#define MONO_CORLIB_VERSION 69
+#define MONO_CORLIB_VERSION 74
 
 typedef struct
 {
@@ -226,10 +233,15 @@ mono_runtime_init (MonoDomain *domain, MonoThreadStartCB start_cb,
        /* GC init has to happen after thread init */
        mono_gc_init ();
 
+#ifndef DISABLE_SOCKETS
        mono_network_init ();
-
+#endif
+       
+       mono_console_init ();
        mono_attach_init ();
 
+       mono_locks_tracer_init ();
+
        /* mscorlib is loaded before we install the load hook */
        mono_domain_fire_assembly_load (mono_defaults.corlib->assembly, NULL);
        
@@ -298,8 +310,9 @@ mono_runtime_cleanup (MonoDomain *domain)
 
        mono_thread_cleanup ();
 
+#ifndef DISABLE_SOCKETS
        mono_network_cleanup ();
-
+#endif
        mono_marshal_cleanup ();
 
        mono_type_initialization_cleanup ();
@@ -704,7 +717,6 @@ mono_set_private_bin_path_from_config (MonoDomain *domain)
 {
        gchar *config_file, *text;
        gsize len;
-       struct stat sbuf;
        GMarkupParseContext *context;
        RuntimeConfig runtime_config;
        
@@ -712,10 +724,6 @@ mono_set_private_bin_path_from_config (MonoDomain *domain)
                return;
 
        config_file = mono_string_to_utf8 (domain->setup->configuration_file);
-       if (stat (config_file, &sbuf) != 0) {
-               g_free (config_file);
-               return;
-       }
 
        if (!g_file_get_contents (config_file, &text, &len, NULL)) {
                g_free (config_file);
@@ -1089,6 +1097,19 @@ set_domain_search_path (MonoDomain *domain)
        mono_domain_assemblies_unlock (domain);
 }
 
+#ifdef DISABLE_SHADOW_COPY
+gboolean
+mono_is_shadow_copy_enabled (MonoDomain *domain, const gchar *dir_name)
+{
+       return FALSE;
+}
+
+char *
+mono_make_shadow_copy (const char *filename)
+{
+       return (char *) filename;
+}
+#else
 static gboolean
 shadow_copy_sibling (gchar *src, gint srclen, const char *extension, gchar *target, gint targetlen, gint tail_len)
 {
@@ -1181,6 +1202,8 @@ get_shadow_assembly_location (const char *filename)
        tmploc = get_shadow_assembly_location_base (domain);
        location = g_build_filename (tmploc, name_hash, path_hash, bname, NULL);
        g_free (tmploc);
+       g_free (bname);
+       g_free (dirname);
        return location;
 }
 
@@ -1362,7 +1385,7 @@ mono_is_shadow_copy_enabled (MonoDomain *domain, const gchar *dir_name)
 
        /* Is dir_name a shadow_copy destination already? */
        base_dir = get_shadow_assembly_location_base (domain);
-       if (strstr (dir_name, base_dir) == dir_name) {
+       if (strstr (dir_name, base_dir)) {
                g_free (base_dir);
                return TRUE;
        }
@@ -1396,14 +1419,24 @@ mono_make_shadow_copy (const char *filename)
        struct utimbuf utbuf;
        char *dir_name = g_path_get_dirname (filename);
        MonoDomain *domain = mono_domain_get ();
+       char *shadow_dir;
+
        set_domain_search_path (domain);
 
        if (!mono_is_shadow_copy_enabled (domain, dir_name)) {
                g_free (dir_name);
                return (char *) filename;
        }
+       /* Is dir_name a shadow_copy destination already? */
+       shadow_dir = get_shadow_assembly_location_base (domain);
+       if (strstr (dir_name, shadow_dir)) {
+               g_free (shadow_dir);
+               g_free (dir_name);
+               return (char *) filename;
+       }
+       g_free (shadow_dir);
        g_free (dir_name);
-       
+
        shadow = get_shadow_assembly_location (filename);
        if (ensure_directory_exists (shadow) == FALSE) {
                g_free (shadow);
@@ -1459,7 +1492,7 @@ mono_make_shadow_copy (const char *filename)
        
        return shadow;
 }
-
+#endif /* DISABLE_SHADOW_COPY */
 
 MonoDomain *
 mono_domain_from_appdomain (MonoAppDomain *appdomain)
@@ -1694,11 +1727,8 @@ ves_icall_System_AppDomain_LoadAssembly (MonoAppDomain *ad,  MonoString *assRef,
        g_free (name);
 
        if (!parsed) {
-               MonoException *exc;
-
                /* This is a parse error... */
-               exc = mono_get_exception_file_not_found2 (NULL, assRef);
-               mono_raise_exception (exc);
+               return NULL;
        }
 
        ass = mono_assembly_load_full_nosearch (&aname, NULL, &status, refOnly);
@@ -1711,9 +1741,7 @@ ves_icall_System_AppDomain_LoadAssembly (MonoAppDomain *ad,  MonoString *assRef,
                else
                        refass = NULL;
                if (!refass) {
-                       /* FIXME: it doesn't make much sense since we really don't have a filename ... */
-                       MonoException *exc = mono_get_exception_file_not_found2 (NULL, assRef);
-                       mono_raise_exception (exc);
+                       return NULL;
                }
        }
 
@@ -1957,11 +1985,12 @@ unload_thread_main (void *arg)
         * We also hold the loader lock because we're going to change
         * class->runtime_info.
         */
-       mono_domain_lock (domain);
+
        mono_loader_lock ();
+       mono_domain_lock (domain);
        g_hash_table_foreach (domain->class_vtable_hash, clear_cached_vtable, domain);
-       mono_loader_unlock ();
        mono_domain_unlock (domain);
+       mono_loader_unlock ();
 
        mono_threads_clear_cached_culture (domain);
 
@@ -2052,9 +2081,9 @@ mono_domain_unload (MonoDomain *domain)
         * http://bugzilla.ximian.com/show_bug.cgi?id=27663
         */ 
 #if 0
-       thread_handle = CreateThread (NULL, 0, unload_thread_main, &thread_data, 0, &tid);
+       thread_handle = mono_create_thread (NULL, 0, unload_thread_main, &thread_data, 0, &tid);
 #else
-       thread_handle = CreateThread (NULL, 0, (LPTHREAD_START_ROUTINE)unload_thread_main, &thread_data, CREATE_SUSPENDED, &tid);
+       thread_handle = mono_create_thread (NULL, 0, (LPTHREAD_START_ROUTINE)unload_thread_main, &thread_data, CREATE_SUSPENDED, &tid);
        if (thread_handle == NULL) {
                return;
        }
@@ -2079,7 +2108,7 @@ mono_domain_unload (MonoDomain *domain)
                /* Roll back the state change */
                domain->state = MONO_APPDOMAIN_CREATED;
 
-               g_warning (thread_data.failure_reason);
+               g_warning ("%s", thread_data.failure_reason);
 
                ex = mono_get_exception_cannot_unload_appdomain (thread_data.failure_reason);