#include <mono/metadata/mono-config.h>
#define _IN_THE_MONO_DEBUGGER
#include "debug-debugger.h"
+#include "debug-mini.h"
#include <libgc/include/libgc-mono-debugger.h>
#include "mini.h"
#include <unistd.h>
#error "Some clown #defined MONO_DEBUGGER_SUPPORTED without USE_INCLUDED_GC - fix configure.in!"
#endif
-static guint64 debugger_insert_breakpoint (guint64 method_argument, const gchar *string_argument);
-static guint64 debugger_remove_breakpoint (guint64 breakpoint);
static guint64 debugger_compile_method (guint64 method_arg);
static guint64 debugger_get_virtual_method (guint64 class_arg, guint64 method_arg);
static guint64 debugger_get_boxed_object (guint64 klass_arg, guint64 val_arg);
-static guint64 debugger_create_string (guint64 dummy_argument, const gchar *string_argument);
static guint64 debugger_class_get_static_field_data (guint64 klass);
-static guint64 debugger_lookup_class (guint64 image_argument, guint64 token_arg);
-static guint64 debugger_lookup_type (guint64 dummy_argument, const gchar *string_argument);
-static guint64 debugger_lookup_assembly (guint64 dummy_argument, const gchar *string_argument);
+
static guint64 debugger_run_finally (guint64 argument1, guint64 argument2);
-static guint64 debugger_get_current_thread (void);
static void debugger_attach (void);
static void debugger_detach (void);
static void debugger_initialize (void);
+static guint64 debugger_create_string (G_GNUC_UNUSED guint64 dummy, G_GNUC_UNUSED guint64 dummy2,
+ const gchar *string_argument);
+static gint64 debugger_lookup_class (guint64 image_argument, G_GNUC_UNUSED guint64 dummy,
+ gchar *full_name);
+static guint64 debugger_insert_method_breakpoint (guint64 method_argument, guint64 index);
+static void debugger_remove_method_breakpoint (G_GNUC_UNUSED guint64 dummy, guint64 index);
+static void debugger_runtime_class_init (guint64 klass_arg);
+
static void (*mono_debugger_notification_function) (guint64 command, guint64 data, guint64 data2);
static MonoDebuggerMetadataInfo debugger_metadata_info = {
G_STRUCT_OFFSET (MonoThread, tid),
G_STRUCT_OFFSET (MonoThread, stack_ptr),
G_STRUCT_OFFSET (MonoThread, end_stack),
+ G_STRUCT_OFFSET (MonoClass, image),
G_STRUCT_OFFSET (MonoClass, instance_size),
G_STRUCT_OFFSET (MonoClass, parent),
G_STRUCT_OFFSET (MonoClass, type_token),
G_STRUCT_OFFSET (MonoDefaults, enum_class),
G_STRUCT_OFFSET (MonoDefaults, array_class),
G_STRUCT_OFFSET (MonoDefaults, delegate_class),
- G_STRUCT_OFFSET (MonoDefaults, exception_class)
+ G_STRUCT_OFFSET (MonoDefaults, exception_class),
+ G_STRUCT_OFFSET (MonoMethod, klass),
+ G_STRUCT_OFFSET (MonoMethod, token),
+ G_STRUCT_OFFSET (MonoMethod, name) + sizeof (void *),
+ G_STRUCT_OFFSET (MonoMethodInflated, declaring)
};
/*
&debugger_compile_method,
&debugger_get_virtual_method,
&debugger_get_boxed_object,
- &debugger_insert_breakpoint,
- &debugger_remove_breakpoint,
&mono_debugger_runtime_invoke,
- &debugger_create_string,
&debugger_class_get_static_field_data,
- &debugger_lookup_class,
- &debugger_lookup_type,
- &debugger_lookup_assembly,
&debugger_run_finally,
- &debugger_get_current_thread,
&debugger_attach,
&debugger_detach,
&debugger_initialize,
- &mono_get_lmf_addr
-};
+ (void*)&mono_get_lmf_addr,
-static guint64
-debugger_insert_breakpoint (guint64 method_argument, const gchar *string_argument)
-{
- MonoMethodDesc *desc;
-
- desc = mono_method_desc_new (string_argument, TRUE);
- if (!desc)
- return 0;
+ &debugger_create_string,
+ &debugger_lookup_class,
+ &debugger_insert_method_breakpoint,
+ &debugger_remove_method_breakpoint,
+ &debugger_runtime_class_init,
- return (guint64) mono_debugger_insert_breakpoint_full (desc);
-}
+ &mono_debug_debugger_version,
+ &mono_debugger_thread_table
+};
static guint64
-debugger_remove_breakpoint (guint64 breakpoint)
-{
- return mono_debugger_remove_breakpoint (breakpoint);
-}
-
-static gpointer
-debugger_compile_method_cb (MonoMethod *method)
+debugger_compile_method (guint64 method_arg)
{
- gpointer retval;
+ MonoMethod *method = (MonoMethod *) GUINT_TO_POINTER ((gsize) method_arg);
+ gpointer addr;
mono_debugger_lock ();
- retval = mono_compile_method (method);
+ addr = mono_compile_method (method);
mono_debugger_unlock ();
- mono_debugger_notification_function (
- MONO_DEBUGGER_EVENT_METHOD_COMPILED, (guint64) (gsize) retval, 0);
-
- return retval;
-}
-
-static guint64
-debugger_compile_method (guint64 method_arg)
-{
- MonoMethod *method = (MonoMethod *) GUINT_TO_POINTER ((gsize) method_arg);
-
- return (guint64) (gsize) debugger_compile_method_cb (method);
+ return (guint64) (gsize) addr;
}
static guint64
}
static guint64
-debugger_create_string (guint64 dummy_argument, const gchar *string_argument)
+debugger_create_string (G_GNUC_UNUSED guint64 dummy, G_GNUC_UNUSED guint64 dummy2,
+ const gchar *string_argument)
{
return (guint64) (gsize) mono_string_new_wrapper (string_argument);
}
-static guint64
-debugger_lookup_type (guint64 dummy_argument, const gchar *string_argument)
+static gint64
+debugger_lookup_class (guint64 image_argument, G_GNUC_UNUSED guint64 dummy,
+ gchar *full_name)
{
- guint64 retval;
+ MonoImage *image = (MonoImage *) GUINT_TO_POINTER ((gsize) image_argument);
+ gchar *name_space, *name, *pos;
+ MonoClass *klass;
- mono_debugger_lock ();
- // retval = mono_debugger_lookup_type (string_argument);
- retval = -1;
- mono_debugger_unlock ();
- return retval;
+ pos = strrchr (full_name, '.');
+ if (pos) {
+ name_space = full_name;
+ *pos = 0;
+ name = pos + 1;
+ } else {
+ name = full_name;
+ name_space = NULL;
+ }
+
+ klass = mono_class_from_name (image, name_space ? name_space : "", name);
+ if (!klass)
+ return -1;
+
+ mono_class_init (klass);
+ return (gint64) (gssize) klass;
}
static guint64
-debugger_lookup_class (guint64 image_argument, guint64 token_argument)
+debugger_run_finally (guint64 context_argument, G_GNUC_UNUSED guint64 dummy)
{
- MonoImage *image = (MonoImage *) GUINT_TO_POINTER ((gsize) image_argument);
- guint32 token = (guint32) token_argument;
- MonoClass *klass;
-
- klass = mono_class_get (image, token);
- if (klass)
- mono_class_init (klass);
+ mono_debugger_run_finally (GUINT_TO_POINTER ((gsize)context_argument));
+ return 0;
+}
- return (guint64) (gsize) klass;
+static guint64
+debugger_class_get_static_field_data (guint64 value)
+{
+ MonoClass *klass = GUINT_TO_POINTER ((gsize) value);
+ MonoVTable *vtable = mono_class_vtable (mono_domain_get (), klass);
+ return (guint64) (gsize) mono_vtable_get_static_field_data (vtable);
}
static guint64
-debugger_lookup_assembly (guint64 dummy_argument, const gchar *string_argument)
+debugger_insert_method_breakpoint (guint64 method_argument, guint64 index)
{
- gint64 retval;
+ MonoMethod *method = GUINT_TO_POINTER ((gsize) method_argument);
+ MonoDebugMethodAddressList *info;
mono_debugger_lock ();
- retval = mono_debugger_lookup_assembly (string_argument);
+
+ if (method->iflags & METHOD_IMPL_ATTRIBUTE_RUNTIME) {
+ const char *name = method->name;
+ MonoMethod *nm = NULL;
+
+ if (method->klass->parent == mono_defaults.multicastdelegate_class) {
+ if (*name == 'I' && (strcmp (name, "Invoke") == 0))
+ nm = mono_marshal_get_delegate_invoke (method);
+ else if (*name == 'B' && (strcmp (name, "BeginInvoke") == 0))
+ nm = mono_marshal_get_delegate_begin_invoke (method);
+ else if (*name == 'E' && (strcmp (name, "EndInvoke") == 0))
+ nm = mono_marshal_get_delegate_end_invoke (method);
+ }
+
+ if (!nm) {
+ mono_debugger_unlock ();
+ return 0;
+ }
+
+ method = nm;
+ }
+
+ info = mono_debugger_insert_method_breakpoint (method, index);
+
mono_debugger_unlock ();
- return retval;
+ return (guint64) (gsize) info;
}
-static guint64
-debugger_run_finally (guint64 context_argument, guint64 dummy)
+static void
+debugger_remove_method_breakpoint (G_GNUC_UNUSED guint64 dummy, guint64 index)
{
- mono_debugger_run_finally (GUINT_TO_POINTER (context_argument));
- return 0;
+ mono_debugger_lock ();
+ mono_debugger_remove_method_breakpoint (index);
+ mono_debugger_unlock ();
}
-static guint64
-debugger_class_get_static_field_data (guint64 value)
+static void
+debugger_runtime_class_init (guint64 klass_arg)
{
- MonoClass *klass = GUINT_TO_POINTER ((gsize) value);
- MonoVTable *vtable = mono_class_vtable (mono_domain_get (), klass);
- return (guint64) (gsize) mono_vtable_get_static_field_data (vtable);
+ MonoClass *klass = (MonoClass *) GUINT_TO_POINTER ((gsize) klass_arg);
+ mono_runtime_class_init (mono_class_vtable (mono_domain_get (), klass));
}
static void
mono_debugger_notification_function (event, data, arg);
}
-static guint64
-debugger_get_current_thread (void)
-{
- return (guint64) (gsize) mono_thread_current ();
-}
-
static void
debugger_gc_thread_created (pthread_t thread, void *stack_ptr)
{
- mono_debugger_event (MONO_DEBUGGER_EVENT_THREAD_CREATED,
+ mono_debugger_event (MONO_DEBUGGER_EVENT_GC_THREAD_CREATED,
(guint64) (gsize) stack_ptr, thread);
}
static void
debugger_gc_thread_exited (pthread_t thread, void *stack_ptr)
{
- mono_debugger_event (MONO_DEBUGGER_EVENT_THREAD_EXITED,
+ mono_debugger_event (MONO_DEBUGGER_EVENT_GC_THREAD_EXITED,
(guint64) (gsize) stack_ptr, thread);
}
mono_debugger_init ();
mono_debugger_event_handler = debugger_event_handler;
- mono_debugger_notification_function (MONO_DEBUGGER_EVENT_INITIALIZE_MANAGED_CODE, 0, 0);
-
debugger_init_threads ();
- GC_mono_debugger_add_all_threads ();
}
static void
/*
* Initialize the thread manager.
+ *
+ * NOTE: We only reference the `MONO_DEBUGGER__debugger_info_ptr' here to prevent the
+ * linker from removing the .mdb_debug_info section.
*/
mono_debugger_notification_function (MONO_DEBUGGER_EVENT_INITIALIZE_THREAD_MANAGER,
- GetCurrentThreadId (), 0);
+ (guint64) (gssize) MONO_DEBUGGER__debugger_info_ptr, 0);
}
typedef struct
main_method = mono_get_method (image, mono_image_get_entry_point (image), NULL);
/*
- * Reload symbol tables.
- *
- * NOTE: We only reference the `MONO_DEBUGGER__debugger_info_ptr' here to prevent the
- * linker from removing the .mdb_debug_info section.
+ * Initialize managed code.
*/
mono_debugger_notification_function (MONO_DEBUGGER_EVENT_INITIALIZE_MANAGED_CODE,
- (guint64) (gssize) MONO_DEBUGGER__debugger_info_ptr, 0);
- mono_debugger_unlock ();
+ (guint64) (gssize) main_method, 0);
/*
* Start the main thread and wait until it's ready.
projects / mono.git / blobdiff