8 * Copyright 2010 Novell, Inc (http://www.novell.com)
9 * Licensed under the MIT license. See LICENSE file in the project root for full license information.
16 #include <mono/metadata/appdomain.h>
17 #include <mono/metadata/class.h>
18 #include <mono/metadata/class-internals.h>
19 #include <mono/metadata/runtime.h>
20 #include <mono/metadata/monitor.h>
21 #include <mono/metadata/threads-types.h>
22 #include <mono/metadata/threadpool.h>
23 #include <mono/metadata/marshal.h>
24 #include <mono/utils/atomic.h>
25 #include <mono/utils/unlocked.h>
27 static gboolean shutting_down_inited
= FALSE
;
28 static gboolean shutting_down
= FALSE
;
31 * mono_runtime_set_shutting_down:
32 * \deprecated This function can break the shutdown sequence.
34 * Invoked by \c System.Environment.Exit to flag that the runtime
38 mono_runtime_set_shutting_down (void)
40 UnlockedWriteBool (&shutting_down
, TRUE
);
44 * mono_runtime_is_shutting_down:
45 * This is consumed by the \c P:System.Environment.HasShutdownStarted property.
46 * \returns whether the runtime has been flagged for shutdown.
49 mono_runtime_is_shutting_down (void)
51 return UnlockedReadBool (&shutting_down
);
55 fire_process_exit_event (MonoDomain
*domain
, gpointer user_data
)
61 MonoClass
*appcontext_class
;
62 MonoMethod
*procexit_method
;
64 appcontext_class
= mono_class_try_load_from_name (mono_defaults
.corlib
, "System", "AppContext");
65 g_assert (appcontext_class
);
67 procexit_method
= mono_class_get_method_from_name_checked (appcontext_class
, "OnProcessExit", 0, 0, error
);
68 g_assert (procexit_method
);
70 mono_runtime_try_invoke (procexit_method
, NULL
, NULL
, &exc
, error
);
72 MonoClassField
*field
;
76 field
= mono_class_get_field_from_name_full (mono_defaults
.appdomain_class
, "ProcessExit", NULL
);
79 delegate
= *(MonoObject
**)(((char *)domain
->domain
) + field
->offset
);
83 pa
[0] = domain
->domain
;
85 mono_runtime_delegate_try_invoke (delegate
, pa
, &exc
, error
);
86 mono_error_cleanup (error
);
91 mono_runtime_fire_process_exit_event (void)
93 #ifndef MONO_CROSS_COMPILE
94 mono_domain_foreach (fire_process_exit_event
, NULL
);
99 * mono_runtime_try_shutdown:
101 * Try to initialize runtime shutdown.
103 * After this call completes the thread pool will stop accepting new jobs and no further threads will be created.
105 * Returns: TRUE if shutdown was initiated by this call or false is other thread beat this one.
108 mono_runtime_try_shutdown (void)
110 if (mono_atomic_cas_i32 (&shutting_down_inited
, TRUE
, FALSE
))
113 mono_runtime_fire_process_exit_event ();
115 mono_runtime_set_shutting_down ();
117 mono_threads_set_shutting_down ();
119 /* No new threads will be created after this point */
121 /*TODO move the follow to here:
122 mono_thread_suspend_all_other_threads (); OR mono_thread_wait_all_other_threads
124 mono_runtime_quit_internal ();
131 Coordinate the creation of all remaining TLS slots in the runtime.
132 No further TLS slots should be created after this function finishes.
133 This restriction exists because AOT requires offsets to be constant
137 mono_runtime_init_tls (void)
139 mono_marshal_init_tls ();
143 mono_runtime_get_aotid_arr (void)
146 guint8 aotid_sum
= 0;
147 MonoDomain
* domain
= mono_domain_get ();
149 if (!domain
->entry_assembly
|| !domain
->entry_assembly
->image
)
152 guint8 (*aotid
)[16] = &domain
->entry_assembly
->image
->aotid
;
153 for (i
= 0; i
< 16; ++i
)
154 aotid_sum
|= (*aotid
)[i
];
159 return (guint8
*)aotid
;
163 mono_runtime_get_aotid (void)
165 guint8
*aotid
= mono_runtime_get_aotid_arr ();
170 return mono_guid_to_string (aotid
);