#include <stdlib.h>
#include <string.h>
+#include <errno.h>
+#include <signal.h>
+#include <sys/stat.h>
#include <mono/metadata/class.h>
+#include <mono/metadata/assembly.h>
#include <mono/metadata/tabledefs.h>
#include <mono/metadata/tokentype.h>
+#include <mono/metadata/debug-helpers.h>
+#include <mono/metadata/debug-mono-symfile.h>
#include <mono/jit/codegen.h>
#include <mono/jit/debug.h>
#include "debug-private.h"
+#include "helpers.h"
+
+/* This is incremented each time the symbol table is modified.
+ * The debugger looks at this variable and if it has a higher value than its current
+ * copy of the symbol table, it must call debugger_update_symbol_file_table().
+ */
+static guint32 debugger_symbol_file_table_generation = 0;
+
+/* Caution: This variable may be accessed at any time from the debugger;
+ * it is very important not to modify the memory it is pointing to
+ * without previously setting this pointer back to NULL.
+ */
+static MonoDebuggerSymbolFileTable *debugger_symbol_file_table = NULL;
+
+/* Caution: This function MUST be called before touching the symbol table! */
+static void release_symbol_file_table (void);
+
+static void initialize_debugger_support (void);
+
+static MonoDebugHandle *mono_debug_handle = NULL;
+
+static guint64 debugger_insert_breakpoint (guint64 method_argument, const gchar *string_argument);
+static guint64 debugger_remove_breakpoint (guint64 breakpoint);
+static int debugger_update_symbol_file_table (void);
+
+static void mono_debug_add_assembly (MonoAssembly *assembly, gpointer user_data);
+static void mono_debug_close_assembly (AssemblyDebugInfo* info);
+static AssemblyDebugInfo *mono_debug_open_image (MonoDebugHandle* debug, MonoImage *image);
+
+/*
+ * This is a global data symbol which is read by the debugger.
+ */
+MonoDebuggerInfo MONO_DEBUGGER__debugger_info = {
+ MONO_SYMBOL_FILE_DYNAMIC_MAGIC,
+ MONO_SYMBOL_FILE_DYNAMIC_VERSION,
+ sizeof (MonoDebuggerInfo),
+ &mono_generic_trampoline_code,
+ &mono_breakpoint_trampoline_code,
+ &debugger_symbol_file_table_generation,
+ &debugger_symbol_file_table,
+ &debugger_update_symbol_file_table,
+ &mono_compile_method,
+ &debugger_insert_breakpoint,
+ &debugger_remove_breakpoint,
+ &mono_runtime_invoke
+};
+
+static void
+free_method_info (MonoDebugMethodInfo *minfo)
+{
+ DebugMethodInfo *priv = minfo->user_data;
+
+ if (priv) {
+ g_free (priv->name);
+ g_free (priv);
+ }
+
+ if (minfo->jit) {
+ g_array_free (minfo->jit->line_numbers, TRUE);
+ g_free (minfo->jit->this_var);
+ g_free (minfo->jit->params);
+ g_free (minfo->jit->locals);
+ g_free (minfo->jit);
+ }
+
+ g_free (minfo->il_offsets);
+ g_free (minfo);
+}
+
+static void
+debug_arg_warning (const char *message)
+{
+ g_warning ("Error while processing --debug-args arguments: %s", message);
+}
+
+static gchar *
+replace_suffix (const char *filename, const char *new_suffix)
+{
+ const char *pos = strrchr (filename, '.');
+
+ if (!pos)
+ return g_strdup_printf ("%s.%s", filename, new_suffix);
+ else {
+ int len = pos - filename;
+ gchar *retval = g_malloc0 (len + strlen (new_suffix) + 2);
+ memcpy (retval, filename, len);
+ retval [len] = '.';
+ memcpy (retval + len + 1, new_suffix, strlen (new_suffix) + 1);
+ return retval;
+ }
+}
MonoDebugHandle*
-mono_debug_open_file (const char *filename, MonoDebugFormat format)
+mono_debug_open (MonoAssembly *assembly, MonoDebugFormat format, const char **args)
{
MonoDebugHandle *debug;
-
+ const char **ptr;
+
+ g_assert (!mono_debug_handle);
+
+ release_symbol_file_table ();
+
debug = g_new0 (MonoDebugHandle, 1);
- debug->name = g_strdup (filename);
- debug->default_format = format;
+ debug->name = g_strdup (assembly->image->name);
+ debug->format = format;
+ debug->producer_name = g_strdup_printf ("Mono JIT compiler version %s", VERSION);
+ debug->next_idx = 100;
+ debug->dirty = TRUE;
+
+ debug->type_hash = g_hash_table_new (NULL, NULL);
+ debug->source_files = g_ptr_array_new ();
+
+ debug->images = g_hash_table_new_full (NULL, NULL, NULL,
+ (GDestroyNotify) mono_debug_close_assembly);
+
+ for (ptr = args; ptr && *ptr; ptr++) {
+ const char *arg = *ptr;
+ gchar *message;
+
+ switch (debug->format) {
+ case MONO_DEBUG_FORMAT_STABS:
+ case MONO_DEBUG_FORMAT_DWARF2:
+ if (!strncmp (arg, "filename=", 9)) {
+ if (debug->filename)
+ debug_arg_warning ("The `filename' argument can be given only once.");
+ debug->filename = g_strdup (arg + 9);
+ continue;
+ } else if (!strncmp (arg, "objfile=", 8)) {
+ if (debug->objfile)
+ debug_arg_warning ("The `objfile' argument can be given only once.");
+ debug->objfile = g_strdup (arg + 8);
+ continue;
+ }
+ break;
+ case MONO_DEBUG_FORMAT_MONO:
+ debug->flags |= MONO_DEBUG_FLAGS_DONT_UPDATE_IL_FILES |
+ MONO_DEBUG_FLAGS_DONT_CREATE_IL_FILES;
+ break;
+ default:
+ break;
+ }
+
+ if (debug->format != MONO_DEBUG_FORMAT_MONO) {
+ if (!strcmp (arg, "dont_assemble")) {
+ debug->flags |= MONO_DEBUG_FLAGS_DONT_ASSEMBLE;
+ continue;
+ } else if (!strcmp (arg, "update_on_exit")) {
+ debug->flags |= MONO_DEBUG_FLAGS_UPDATE_ON_EXIT;
+ continue;
+ } else if (!strcmp (arg, "install_il_files")) {
+ debug->flags |= MONO_DEBUG_FLAGS_INSTALL_IL_FILES;
+ continue;
+ } else if (!strcmp (arg, "dont_update_il_files")) {
+ debug->flags |= MONO_DEBUG_FLAGS_DONT_UPDATE_IL_FILES;
+ continue;
+ } else if (!strcmp (arg, "dont_create_il_files")) {
+ debug->flags |= MONO_DEBUG_FLAGS_DONT_CREATE_IL_FILES;
+ continue;
+ }
+ } else {
+ if (!strcmp (arg, "internal_mono_debugger")) {
+ debug->flags |= MONO_DEBUG_FLAGS_MONO_DEBUGGER;
+ initialize_debugger_support ();
+ continue;
+ }
+ }
+
+ message = g_strdup_printf ("Unknown argument `%s'.", arg);
+ debug_arg_warning (message);
+ g_free (message);
+ }
+
+ switch (debug->format) {
+ case MONO_DEBUG_FORMAT_STABS:
+ if (!debug->filename)
+ debug->filename = g_strdup_printf ("%s-stabs.s", g_basename (debug->name));
+ if (!debug->objfile)
+ debug->objfile = g_strdup_printf ("%s.o", g_basename (debug->name));
+ break;
+ case MONO_DEBUG_FORMAT_DWARF2:
+ if (!debug->filename)
+ debug->filename = g_strdup_printf ("%s-dwarf.s", g_basename (debug->name));
+ if (!debug->objfile)
+ debug->objfile = g_strdup_printf ("%s.o", g_basename (debug->name));
+ break;
+ case MONO_DEBUG_FORMAT_MONO:
+ break;
+ default:
+ g_assert_not_reached ();
+ }
+
+ mono_debug_handle = debug;
+ mono_install_assembly_load_hook (mono_debug_add_assembly, NULL);
+
+ mono_debug_open_image (mono_debug_handle, assembly->image);
+ mono_debug_open_image (mono_debug_handle, mono_defaults.corlib);
+
+ mono_debug_add_type (mono_defaults.object_class);
+ mono_debug_add_type (mono_defaults.object_class);
+ mono_debug_add_type (mono_defaults.byte_class);
+ mono_debug_add_type (mono_defaults.void_class);
+ mono_debug_add_type (mono_defaults.boolean_class);
+ mono_debug_add_type (mono_defaults.sbyte_class);
+ mono_debug_add_type (mono_defaults.int16_class);
+ mono_debug_add_type (mono_defaults.uint16_class);
+ mono_debug_add_type (mono_defaults.int32_class);
+ mono_debug_add_type (mono_defaults.uint32_class);
+ mono_debug_add_type (mono_defaults.int_class);
+ mono_debug_add_type (mono_defaults.uint_class);
+ mono_debug_add_type (mono_defaults.int64_class);
+ mono_debug_add_type (mono_defaults.uint64_class);
+ mono_debug_add_type (mono_defaults.single_class);
+ mono_debug_add_type (mono_defaults.double_class);
+ mono_debug_add_type (mono_defaults.char_class);
+ mono_debug_add_type (mono_defaults.string_class);
+ mono_debug_add_type (mono_defaults.enum_class);
+ mono_debug_add_type (mono_defaults.array_class);
+ mono_debug_add_type (mono_defaults.multicastdelegate_class);
+ mono_debug_add_type (mono_defaults.asyncresult_class);
+ mono_debug_add_type (mono_defaults.waithandle_class);
+ mono_debug_add_type (mono_defaults.typehandle_class);
+ mono_debug_add_type (mono_defaults.fieldhandle_class);
+ mono_debug_add_type (mono_defaults.methodhandle_class);
+ mono_debug_add_type (mono_defaults.monotype_class);
+ mono_debug_add_type (mono_defaults.exception_class);
+ mono_debug_add_type (mono_defaults.threadabortexception_class);
+ mono_debug_add_type (mono_defaults.thread_class);
+ mono_debug_add_type (mono_defaults.transparent_proxy_class);
+ mono_debug_add_type (mono_defaults.real_proxy_class);
+ mono_debug_add_type (mono_defaults.mono_method_message_class);
+ mono_debug_add_type (mono_defaults.appdomain_class);
+ mono_debug_add_type (mono_defaults.field_info_class);
+ mono_debug_add_type (mono_defaults.stringbuilder_class);
+ mono_debug_add_type (mono_defaults.math_class);
+ mono_debug_add_type (mono_defaults.stack_frame_class);
+ mono_debug_add_type (mono_defaults.stack_trace_class);
+ mono_debug_add_type (mono_defaults.marshal_class);
+ mono_debug_add_type (mono_defaults.iserializeable_class);
+ mono_debug_add_type (mono_defaults.serializationinfo_class);
+ mono_debug_add_type (mono_defaults.streamingcontext_class);
+
return debug;
}
+static void
+mono_debug_add_assembly (MonoAssembly *assembly, gpointer user_data)
+{
+ if (!mono_debug_handle)
+ return;
+
+ mono_debug_open_image (mono_debug_handle, assembly->image);
+}
+
+static void
+generate_il_offsets (AssemblyDebugInfo *info, MonoMethod *method)
+{
+ GPtrArray *il_offsets = g_ptr_array_new ();
+ MonoClass *klass = method->klass;
+ MonoDebugMethodInfo *minfo;
+ DebugMethodInfo *priv;
+ int i;
+
+ g_assert (klass->image == info->image);
+
+ /* FIXME: doesn't work yet. */
+ if (!strcmp (klass->name_space, "System.Runtime.Remoting.Proxies"))
+ return;
+
+ mono_class_init (klass);
+
+ minfo = g_new0 (MonoDebugMethodInfo, 1);
+ minfo->method = method;
+ minfo->user_data = priv = g_new0 (DebugMethodInfo, 1);
+
+ priv->name = g_strdup_printf ("%s%s%s.%s", klass->name_space, klass->name_space [0]? ".": "",
+ klass->name, method->name);
+ priv->source_file = info->source_file;
+ priv->info = info;
+
+ /*
+ * Find the method index in the image.
+ */
+ for (i = 0; klass->methods && i < klass->method.count; ++i) {
+ if (klass->methods [i] == minfo->method) {
+ priv->method_number = klass->method.first + i + 1;
+ priv->first_line = info->mlines [priv->method_number];
+ break;
+ }
+ }
+
+ g_assert (priv->method_number);
+
+ /* info->moffsets contains -1 "outside" of functions. */
+ for (i = priv->first_line; (i > 0) && (info->moffsets [i] == 0); i--)
+ ;
+ priv->start_line = i + 1;
+
+ for (i = priv->start_line; info->moffsets [i] != -1; i++) {
+ MonoSymbolFileLineNumberEntry *lne = g_new0 (MonoSymbolFileLineNumberEntry, 1);
+
+ if (!info->moffsets [i] && (i > priv->start_line))
+ continue;
+
+ lne->offset = info->moffsets [i];
+ lne->row = i;
+
+ g_ptr_array_add (il_offsets, lne);
+ }
+
+ priv->last_line = i;
+
+ minfo->start_line = priv->first_line;
+ minfo->end_line = priv->last_line;
+
+ minfo->num_il_offsets = il_offsets->len;
+ minfo->il_offsets = g_new0 (MonoSymbolFileLineNumberEntry, il_offsets->len);
+ for (i = 0; i < il_offsets->len; i++) {
+ MonoSymbolFileLineNumberEntry *il = g_ptr_array_index (il_offsets, i);
+
+ minfo->il_offsets [i] = *il;
+ }
+
+ g_ptr_array_free (il_offsets, TRUE);
+
+ g_hash_table_insert (info->methods, method, minfo);
+}
+
static void
debug_load_method_lines (AssemblyDebugInfo* info)
{
+ MonoTableInfo *table = &info->image->tables [MONO_TABLE_METHOD];
FILE *f;
char buf [1024];
- int i, mnum;
- char *name = g_strdup_printf ("%s.il", info->name);
+ int i, mnum, idx;
int offset = -1;
+ if (info->always_create_il || !(info->handle->flags & MONO_DEBUG_FLAGS_DONT_UPDATE_IL_FILES)) {
+ char *command = g_strdup_printf ("monodis --output=%s %s",
+ info->ilfile, info->image->name);
+ struct stat stata, statb;
+ int need_update = FALSE;
+
+ if (stat (info->image->name, &stata)) {
+ g_warning ("cannot access assembly file (%s): %s",
+ info->image->name, g_strerror (errno));
+ g_free (command);
+ return;
+ }
+
+ /* If the stat() failed or the file is older. */
+ if (stat (info->ilfile, &statb)) {
+ need_update = TRUE;
+ } else if (statb.st_mtime < stata.st_mtime)
+ need_update = TRUE;
+
+ if (need_update) {
+#ifndef PLATFORM_WIN32
+ struct sigaction act, oldact;
+ sigset_t old_set;
+#endif
+ int ret;
+
+#ifndef PLATFORM_WIN32
+ act.sa_handler = SIG_IGN;
+ act.sa_flags = SA_NOCLDSTOP | SA_RESTART;
+ sigemptyset (&act.sa_mask);
+ sigaddset (&act.sa_mask, SIGCHLD);
+ sigprocmask (SIG_BLOCK, &act.sa_mask, &old_set);
+ sigaction (SIGCHLD, &act, &oldact);
+#endif
+
+ g_print ("Recreating %s from %s.\n", info->ilfile, info->image->name);
+
+ ret = system (command);
+
+#ifndef PLATFORM_WIN32
+ sigaction (SIGCHLD, &oldact, NULL);
+ sigprocmask (SIG_SETMASK, &old_set, NULL);
+#endif
+
+ if (ret) {
+ g_warning ("cannot create IL assembly file (%s): %s",
+ command, g_strerror (errno));
+ g_free (command);
+ return;
+ }
+ }
+ }
+
/* use an env var with directories for searching. */
- if (!(f = fopen (name, "r"))) {
- g_warning ("cannot open IL assembly file %s", name);
- g_free (name);
+ if (!(f = fopen (info->ilfile, "r"))) {
+ g_warning ("cannot open IL assembly file %s", info->ilfile);
return;
}
info->total_lines = 100;
info->moffsets = g_malloc (info->total_lines * sizeof (int));
- g_free (name);
i = 0;
while (fgets (buf, sizeof (buf), f)) {
int pos = i;
info->mlines [mnum] = pos;
}
fclose (f);
-}
-static void
-record_line_number (DebugMethodInfo *minfo, gpointer address, guint32 line, int is_basic_block)
-{
- DebugLineNumberInfo *lni = g_new0 (DebugLineNumberInfo, 1);
+ for (idx = 1; idx <= table->rows; idx++) {
+ guint32 token = mono_metadata_make_token (MONO_TABLE_METHOD, idx);
+ MonoMethod *method = mono_get_method (info->image, token, NULL);
- lni->address = address;
- lni->line = line;
- lni->is_basic_block = is_basic_block;
- lni->source_file = 0;
+ if ((method->iflags & METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL) ||
+ (method->iflags & METHOD_IMPL_ATTRIBUTE_RUNTIME) ||
+ (method->flags & METHOD_ATTRIBUTE_PINVOKE_IMPL))
+ continue;
+
+ if (method->wrapper_type != MONO_WRAPPER_NONE)
+ continue;
- g_ptr_array_add (minfo->line_numbers, lni);
+ generate_il_offsets (info, method);
+ }
}
static void
-record_il_offset (GPtrArray *array, guint32 offset, guint32 address)
+record_line_number (MonoDebugMethodInfo *minfo, guint32 address, guint32 offset, guint32 line)
{
- MonoDebugILOffsetInfo *info = g_new0 (MonoDebugILOffsetInfo, 1);
+ MonoDebugLineNumberEntry *lne = g_new0 (MonoDebugLineNumberEntry, 1);
- info->offset = offset;
- info->address = address;
+ lne->address = address;
+ lne->offset = offset;
+ lne->line = line;
- g_ptr_array_add (array, info);
+ g_array_append_val (minfo->jit->line_numbers, *lne);
}
static void
-debug_generate_method_lines (AssemblyDebugInfo *info, DebugMethodInfo *minfo, MonoFlowGraph* cfg)
+debug_generate_method_lines (AssemblyDebugInfo *info, MonoDebugMethodInfo *minfo, MonoFlowGraph* cfg)
{
guint32 st_address, st_line;
- GPtrArray *il_offsets;
+ DebugMethodInfo *priv = minfo->user_data;
int i;
- il_offsets = g_ptr_array_new ();
- minfo->line_numbers = g_ptr_array_new ();
+ if (!priv || !info->moffsets)
+ return;
- st_line = minfo->first_line;
- st_address = minfo->method_info.prologue_end;
+ minfo->jit->line_numbers = g_array_new (FALSE, TRUE, sizeof (MonoDebugLineNumberEntry));
- /* record_line_number takes absolute memory addresses. */
- record_line_number (minfo, minfo->method_info.code_start, minfo->start_line, FALSE);
- /* record_il_offsets uses offsets relative to minfo->method_info.code_start. */
- record_il_offset (il_offsets, 0, st_address);
+ st_line = priv->first_line;
+ st_address = minfo->jit->prologue_end;
/* This is the first actual code line of the method. */
- record_line_number (minfo, minfo->method_info.code_start + st_address, st_line, TRUE);
+ record_line_number (minfo, st_address, 0, st_line);
/* start lines of basic blocks */
for (i = 0; i < cfg->block_count; ++i) {
gint32 line_inc = 0, addr_inc;
if (!i && !j) {
- st_line = minfo->first_line;
- st_address = t->addr - 1;
-
- record_line_number (minfo, cfg->start + st_address, st_line, TRUE);
+ st_line = priv->first_line;
+ st_address = t->addr;
}
- addr_inc = t->addr - st_address - 1;
+ addr_inc = t->addr - st_address;
st_address += addr_inc;
- if (t->cli_addr != -1)
- record_il_offset (il_offsets, t->cli_addr, st_address);
-
- if (!info->moffsets)
- continue;
-
-
if (t->cli_addr != -1) {
int *lines = info->moffsets + st_line;
int *k = lines;
st_line += line_inc;
- record_line_number (minfo, minfo->method_info.code_start + st_address,
- st_line, j == 0);
+ if (t->cli_addr != -1)
+ record_line_number (minfo, st_address, t->cli_addr, st_line);
}
}
+}
- minfo->method_info.num_il_offsets = il_offsets->len;
- minfo->method_info.il_offsets = g_new0 (MonoDebugILOffsetInfo, il_offsets->len);
- for (i = 0; i < il_offsets->len; i++) {
- MonoDebugILOffsetInfo *il = (MonoDebugILOffsetInfo *) g_ptr_array_index (il_offsets, i);
+static void
+generate_line_number (MonoDebugMethodInfo *minfo, guint32 address, guint32 offset)
+{
+ int i;
- minfo->method_info.il_offsets [i] = *il;
- }
+ for (i = minfo->num_il_offsets - 1; i >= 0; i--) {
+ MonoDebugLineNumberEntry *lne;
- g_ptr_array_free (il_offsets, TRUE);
+ if (minfo->il_offsets [i].offset > offset)
+ continue;
+
+ if (minfo->jit->line_numbers->len) {
+ MonoDebugLineNumberEntry last = g_array_index (
+ minfo->jit->line_numbers, MonoDebugLineNumberEntry,
+ minfo->jit->line_numbers->len - 1);
+
+ if (minfo->il_offsets [i].row <= last.line)
+ continue;
+ }
+
+ lne = g_new0 (MonoDebugLineNumberEntry, 1);
+ lne->address = address;
+ lne->offset = offset;
+ lne->line = minfo->il_offsets [i].row;
+
+ g_array_append_val (minfo->jit->line_numbers, *lne);
+ return;
+ }
}
static void
-free_method_info (DebugMethodInfo *minfo)
+debug_update_il_offsets (AssemblyDebugInfo *info, MonoDebugMethodInfo *minfo, MonoFlowGraph* cfg)
{
- if (minfo->line_numbers)
- g_ptr_array_free (minfo->line_numbers, TRUE);
- g_free (minfo->method_info.param_offsets);
- g_free (minfo->method_info.locals);
- g_free (minfo);
-}
+ MonoMethodHeader *header;
+ guint32 address, offset;
+ int debug = 0;
+ int i;
-static AssemblyDebugInfo*
-mono_debug_open_assembly (MonoDebugHandle* handle, MonoImage *image)
-{
- GList *tmp;
- AssemblyDebugInfo* info;
+ g_assert (info->symfile);
+ if (info->symfile->is_dynamic)
+ return;
+
+ g_assert (!minfo->jit->line_numbers);
+ minfo->jit->line_numbers = g_array_new (FALSE, TRUE, sizeof (MonoDebugLineNumberEntry));
+
+ address = minfo->jit->prologue_end;
+ offset = 0;
+
+ g_assert (((MonoMethodNormal*)minfo->method)->header);
+ header = ((MonoMethodNormal*)minfo->method)->header;
- for (tmp = handle->info; tmp; tmp = tmp->next) {
- info = (AssemblyDebugInfo*)tmp->data;
- if (strcmp (info->name, image->assembly_name) == 0)
- return info;
+#if 0
+ if (!strcmp (minfo->method->name, "Main")) {
+ MonoMethodHeader *header = ((MonoMethodNormal*)minfo->method)->header;
+
+ debug = 1;
+ mono_disassemble_code (minfo->jit->code_start, minfo->jit->code_size,
+ minfo->method->name);
+
+ printf ("\nDisassembly:\n%s\n", mono_disasm_code (
+ NULL, minfo->method, header->code, header->code + header->code_size));
+ g_message (G_STRLOC ": %x - %x", minfo->jit->prologue_end, minfo->jit->epilogue_begin);
}
- info = g_new0 (AssemblyDebugInfo, 1);
- info->format = handle->default_format;
- switch (handle->default_format) {
- case MONO_DEBUG_FORMAT_STABS:
- info->filename = g_strdup_printf ("%s-stabs.s", image->assembly_name);
- break;
- case MONO_DEBUG_FORMAT_DWARF2:
- info->filename = g_strdup_printf ("%s-dwarf.s", image->assembly_name);
- break;
- case MONO_DEBUG_FORMAT_DWARF2_PLUS:
- info->filename = g_strdup_printf ("%s-debug.o", image->assembly_name);
+#endif
- g_message (G_STRLOC ": %s - %s", image->assembly_name, image->name);
+ generate_line_number (minfo, address, offset);
- /* Fall back to dwarf if we can't find the symbol file. */
- if (!g_file_test (info->filename, G_FILE_TEST_EXISTS)) {
- gchar *fname = g_strdup_printf ("%s-dwarf.s", image->assembly_name);
+ /* start lines of basic blocks */
+ for (i = 0; i < cfg->block_count; ++i) {
+ int j;
- if (g_file_test (fname, G_FILE_TEST_EXISTS)) {
- g_warning ("Can't open symbol file `%s', falling back to DWARF 2.",
- info->filename);
- g_free (info->filename);
- info->filename = fname;
- info->format = MONO_DEBUG_FORMAT_DWARF2;
- } else
- g_free (fname);
+ for (j = 0; cfg->bblocks [i].forest && (j < cfg->bblocks [i].forest->len); ++j) {
+ MBTree *t = (MBTree *) g_ptr_array_index (cfg->bblocks [i].forest, j);
+
+ if ((t->cli_addr == -1) || (t->cli_addr == offset) || (t->addr == address))
+ continue;
+
+ offset = t->cli_addr;
+ address = t->addr;
+
+ generate_line_number (minfo, address, offset);
}
+ }
- break;
+ generate_line_number (minfo, minfo->jit->epilogue_begin, header->code_size);
+
+ if (debug) {
+ for (i = 0; i < minfo->jit->line_numbers->len; i++) {
+ MonoDebugLineNumberEntry lne = g_array_index (
+ minfo->jit->line_numbers, MonoDebugLineNumberEntry, i);
+
+ g_message (G_STRLOC ": %x,%x,%d", lne.address, lne.offset, lne.line);
+ }
}
+}
+
+static AssemblyDebugInfo *
+mono_debug_get_image (MonoDebugHandle* debug, MonoImage *image)
+{
+ return g_hash_table_lookup (debug->images, image);
+}
+
+static AssemblyDebugInfo *
+mono_debug_open_image (MonoDebugHandle* debug, MonoImage *image)
+{
+ AssemblyDebugInfo *info;
+ MonoAssembly **ptr;
+
+ info = mono_debug_get_image (debug, image);
+ if (info != NULL)
+ return info;
+
+ debug->dirty = TRUE;
+
+ info = g_new0 (AssemblyDebugInfo, 1);
info->image = image;
info->image->ref_count++;
info->name = g_strdup (image->assembly_name);
+ info->format = debug->format;
+ info->handle = debug;
info->methods = g_hash_table_new_full (g_direct_hash, g_direct_equal,
NULL, (GDestroyNotify) free_method_info);
- info->source_files = g_ptr_array_new ();
- info->type_hash = g_hash_table_new (NULL, NULL);
-
- g_ptr_array_add (info->source_files, g_strdup_printf ("%s.il", image->assembly_name));
- info->producer_name = g_strdup_printf ("Mono JIT compiler version %s", VERSION);
-
- mono_debug_get_type (info, mono_defaults.void_class);
- mono_debug_get_type (info, mono_defaults.object_class);
- mono_debug_get_type (info, mono_defaults.void_class);
- mono_debug_get_type (info, mono_defaults.boolean_class);
- mono_debug_get_type (info, mono_defaults.char_class);
- mono_debug_get_type (info, mono_defaults.sbyte_class);
- mono_debug_get_type (info, mono_defaults.byte_class);
- mono_debug_get_type (info, mono_defaults.int16_class);
- mono_debug_get_type (info, mono_defaults.uint16_class);
- mono_debug_get_type (info, mono_defaults.int32_class);
- mono_debug_get_type (info, mono_defaults.uint32_class);
- mono_debug_get_type (info, mono_defaults.int_class);
- mono_debug_get_type (info, mono_defaults.uint_class);
- mono_debug_get_type (info, mono_defaults.int64_class);
- mono_debug_get_type (info, mono_defaults.uint64_class);
- mono_debug_get_type (info, mono_defaults.single_class);
- mono_debug_get_type (info, mono_defaults.double_class);
- mono_debug_get_type (info, mono_defaults.string_class);
+
+ info->source_file = debug->source_files->len;
+ g_ptr_array_add (debug->source_files, g_strdup_printf ("%s.il", image->assembly_name));
+
+ g_hash_table_insert (debug->images, image, info);
+
+ info->nmethods = image->tables [MONO_TABLE_METHOD].rows + 1;
+ info->mlines = g_new0 (int, info->nmethods);
+
+ for (ptr = image->references; ptr && *ptr; ptr++)
+ mono_debug_add_assembly (*ptr, NULL);
switch (info->format) {
case MONO_DEBUG_FORMAT_STABS:
- mono_debug_open_assembly_stabs (info);
- break;
case MONO_DEBUG_FORMAT_DWARF2:
- mono_debug_open_assembly_dwarf2 (info);
+ if (debug->flags & MONO_DEBUG_FLAGS_INSTALL_IL_FILES) {
+ gchar *dirname = g_path_get_dirname (image->name);
+ info->ilfile = g_strdup_printf ("%s/%s.il", dirname, info->name);
+ g_free (dirname);
+ } else
+ info->ilfile = g_strdup_printf ("%s.il", info->name);
break;
- case MONO_DEBUG_FORMAT_DWARF2_PLUS:
- mono_debug_open_assembly_dwarf2_plus (info);
+ case MONO_DEBUG_FORMAT_MONO:
+ info->filename = replace_suffix (image->name, "dbg");
+ if (g_file_test (info->filename, G_FILE_TEST_EXISTS))
+ info->symfile = mono_debug_open_mono_symbol_file (info->image, info->filename, TRUE);
+ else if (debug->flags & MONO_DEBUG_FLAGS_MONO_DEBUGGER) {
+#if 0
+ if (!strcmp (info->name, "corlib"))
+ break;
+#endif
+ info->ilfile = g_strdup_printf ("%s.il", info->name);
+ info->always_create_il = TRUE;
+ debug_load_method_lines (info);
+ g_assert (info->methods);
+ info->symfile = mono_debug_create_mono_symbol_file (
+ info->image, info->ilfile, info->methods);
+ }
+ debugger_symbol_file_table_generation++;
break;
- }
- info->next_idx = 100;
- handle->info = g_list_prepend (handle->info, info);
-
- info->nmethods = image->tables [MONO_TABLE_METHOD].rows + 1;
- info->mlines = g_new0 (int, info->nmethods);
+ default:
+ break;
+ }
- if (info->format != MONO_DEBUG_FORMAT_DWARF2_PLUS)
+ if (debug->format != MONO_DEBUG_FORMAT_MONO)
debug_load_method_lines (info);
return info;
}
void
-mono_debug_make_symbols (void)
+mono_debug_write_symbols (MonoDebugHandle *debug)
{
- GList *tmp;
- AssemblyDebugInfo* info;
-
- if (!mono_debug_handle)
+ if (!debug || !debug->dirty)
return;
- for (tmp = mono_debug_handle->info; tmp; tmp = tmp->next) {
- info = (AssemblyDebugInfo*)tmp->data;
+ release_symbol_file_table ();
+
+ switch (debug->format) {
+ case MONO_DEBUG_FORMAT_STABS:
+ mono_debug_write_stabs (debug);
+ break;
+ case MONO_DEBUG_FORMAT_DWARF2:
+ mono_debug_write_dwarf2 (debug);
+ break;
+ case MONO_DEBUG_FORMAT_MONO:
+ break;
+ default:
+ g_assert_not_reached ();
+ }
- switch (info->format) {
- case MONO_DEBUG_FORMAT_STABS:
- mono_debug_write_assembly_stabs (info);
- break;
- case MONO_DEBUG_FORMAT_DWARF2:
- mono_debug_write_assembly_dwarf2 (info);
- break;
- case MONO_DEBUG_FORMAT_DWARF2_PLUS:
- mono_debug_write_assembly_dwarf2_plus (info);
- break;
- }
+ debug->dirty = FALSE;
+}
+
+void
+mono_debug_make_symbols (void)
+{
+ release_symbol_file_table ();
+
+ if (!mono_debug_handle || !mono_debug_handle->dirty)
+ return;
+
+ switch (mono_debug_handle->format) {
+ case MONO_DEBUG_FORMAT_STABS:
+ mono_debug_write_stabs (mono_debug_handle);
+ break;
+ case MONO_DEBUG_FORMAT_DWARF2:
+ mono_debug_write_dwarf2 (mono_debug_handle);
+ break;
+ case MONO_DEBUG_FORMAT_MONO:
+ debugger_update_symbol_file_table ();
+ break;
+ default:
+ g_assert_not_reached ();
}
+
+ mono_debug_handle->dirty = FALSE;
}
static void
mono_debug_close_assembly (AssemblyDebugInfo* info)
{
+ switch (info->format) {
+ case MONO_DEBUG_FORMAT_MONO:
+ if (info->symfile != NULL)
+ mono_debug_close_mono_symbol_file (info->symfile);
+ break;
+ default:
+ break;
+ }
+ g_hash_table_destroy (info->methods);
g_free (info->mlines);
g_free (info->moffsets);
g_free (info->name);
+ g_free (info->ilfile);
g_free (info->filename);
- g_ptr_array_free (info->source_files, TRUE);
- g_hash_table_destroy (info->type_hash);
- g_hash_table_destroy (info->methods);
- g_free (info->producer_name);
+ g_free (info->objfile);
g_free (info);
}
void
-mono_debug_close (MonoDebugHandle* debug)
+mono_debug_cleanup (void)
{
- GList *tmp;
- AssemblyDebugInfo* info;
-
- mono_debug_make_symbols ();
+ release_symbol_file_table ();
- for (tmp = debug->info; tmp; tmp = tmp->next) {
- info = (AssemblyDebugInfo*)tmp->data;
+ if (!mono_debug_handle)
+ return;
- switch (info->format) {
- case MONO_DEBUG_FORMAT_STABS:
- mono_debug_close_assembly_stabs (info);
- break;
- case MONO_DEBUG_FORMAT_DWARF2:
- mono_debug_close_assembly_dwarf2 (info);
- break;
- case MONO_DEBUG_FORMAT_DWARF2_PLUS:
- mono_debug_close_assembly_dwarf2_plus (info);
- break;
- }
+ if (mono_debug_handle->flags & MONO_DEBUG_FLAGS_UPDATE_ON_EXIT)
+ mono_debug_write_symbols (mono_debug_handle);
- mono_debug_close_assembly (info);
- }
+ g_hash_table_destroy (mono_debug_handle->images);
+ g_ptr_array_free (mono_debug_handle->source_files, TRUE);
+ g_hash_table_destroy (mono_debug_handle->type_hash);
+ g_free (mono_debug_handle->producer_name);
+ g_free (mono_debug_handle->name);
+ g_free (mono_debug_handle);
- g_free (debug->name);
- g_free (debug);
+ mono_debug_handle = NULL;
}
guint32
-mono_debug_get_type (AssemblyDebugInfo* info, MonoClass *klass)
+mono_debug_get_type (MonoDebugHandle *debug, MonoClass *klass)
{
guint index, i;
mono_class_init (klass);
- index = GPOINTER_TO_INT (g_hash_table_lookup (info->type_hash, klass));
+ index = GPOINTER_TO_INT (g_hash_table_lookup (debug->type_hash, klass));
if (index)
return index;
- index = ++info->next_klass_idx;
- g_hash_table_insert (info->type_hash, klass, GINT_TO_POINTER (index));
+ debug->dirty = TRUE;
+
+ index = ++debug->next_klass_idx;
+ g_hash_table_insert (debug->type_hash, klass, GINT_TO_POINTER (index));
if (klass->enumtype)
return index;
switch (klass->byval_arg.type) {
case MONO_TYPE_CLASS:
if (klass->parent)
- mono_debug_get_type (info, klass->parent);
+ mono_debug_get_type (debug, klass->parent);
for (i = 0; i < klass->method.count; i++) {
MonoMethod *method = klass->methods [i];
if (ret_type) {
MonoClass *ret_klass = mono_class_from_mono_type (ret_type);
- mono_debug_get_type (info, ret_klass);
+ mono_debug_get_type (debug, ret_klass);
}
for (j = 0; j < method->signature->param_count; j++) {
MonoType *sub_type = method->signature->params [j];
MonoClass *sub_klass = mono_class_from_mono_type (sub_type);
- mono_debug_get_type (info, sub_klass);
+ mono_debug_get_type (debug, sub_klass);
}
}
// fall through
case MONO_TYPE_VALUETYPE:
for (i = 0; i < klass->field.count; i++) {
MonoClass *subclass = mono_class_from_mono_type (klass->fields [i].type);
- mono_debug_get_type (info, subclass);
+ mono_debug_get_type (debug, subclass);
}
break;
case MONO_TYPE_ARRAY:
case MONO_TYPE_SZARRAY:
- mono_debug_get_type (info, klass->element_class);
+ mono_debug_get_type (debug, klass->element_class);
break;
default:
break;
return index;
}
+static gint32
+il_offset_from_address (MonoDebugMethodInfo *minfo, guint32 address)
+{
+ int i;
+
+ if (!minfo->jit || !minfo->jit->line_numbers)
+ return -1;
+
+ for (i = minfo->jit->line_numbers->len - 1; i >= 0; i--) {
+ MonoDebugLineNumberEntry lne = g_array_index (
+ minfo->jit->line_numbers, MonoDebugLineNumberEntry, i);
+
+ if (lne.address <= address)
+ return lne.offset;
+ }
+
+ return -1;
+}
+
+static gint32
+address_from_il_offset (MonoDebugMethodInfo *minfo, guint32 il_offset)
+{
+ int i;
+
+ if (!minfo->jit || !minfo->jit->line_numbers)
+ return -1;
+
+ for (i = minfo->jit->line_numbers->len - 1; i >= 0; i--) {
+ MonoDebugLineNumberEntry lne = g_array_index (
+ minfo->jit->line_numbers, MonoDebugLineNumberEntry, i);
+
+ if (lne.offset <= il_offset)
+ return lne.address;
+ }
+
+ return -1;
+}
+
void
-mono_debug_add_type (MonoDebugHandle* debug, MonoClass *klass)
+mono_debug_add_type (MonoClass *klass)
+{
+ AssemblyDebugInfo* info;
+
+ if (!mono_debug_handle)
+ return;
+
+ info = mono_debug_get_image (mono_debug_handle, klass->image);
+ g_assert (info);
+
+ if (mono_debug_handle->format != MONO_DEBUG_FORMAT_MONO)
+ return;
+
+ if (info->symfile)
+ mono_debug_symfile_add_type (info->symfile, klass);
+}
+
+static gint32
+il_offset_from_position (MonoFlowGraph *cfg, MonoPosition *pos)
{
- AssemblyDebugInfo* info = mono_debug_open_assembly (debug, klass->image);
+ MonoBBlock *bblock;
+ MBTree *tree;
+
+ if (pos->abs_pos == 0)
+ return -1;
+
+ if (pos->pos.bid >= cfg->block_count)
+ return -1;
+
+ bblock = &cfg->bblocks [pos->pos.bid];
+ if (pos->pos.tid >= bblock->forest->len)
+ return -1;
+
+ tree = (MBTree *) g_ptr_array_index (bblock->forest, pos->pos.tid);
+
+ return tree->cli_addr;
+}
+
+struct LookupMethodData
+{
+ MonoDebugMethodInfo *minfo;
+ MonoMethod *method;
+};
+
+static void
+lookup_method_func (gpointer key, gpointer value, gpointer user_data)
+{
+ AssemblyDebugInfo *info = (AssemblyDebugInfo *) value;
+ struct LookupMethodData *data = (struct LookupMethodData *) user_data;
+
+ if (data->minfo)
+ return;
+
+ if (info->symfile)
+ data->minfo = mono_debug_find_method (info->symfile, data->method);
+ else
+ data->minfo = g_hash_table_lookup (info->methods, data->method);
+}
+
+static MonoDebugMethodInfo *
+lookup_method (MonoMethod *method)
+{
+ struct LookupMethodData data = { NULL, method };
+
+ if (!mono_debug_handle)
+ return NULL;
- mono_debug_get_type (info, klass);
+ g_hash_table_foreach (mono_debug_handle->images, lookup_method_func, &data);
+ return data.minfo;
}
void
-mono_debug_add_method (MonoDebugHandle* debug, MonoFlowGraph *cfg)
+mono_debug_add_method (MonoFlowGraph *cfg)
{
MonoMethod *method = cfg->method;
MonoClass *klass = method->klass;
- AssemblyDebugInfo* info = mono_debug_open_assembly (debug, klass->image);
- int method_number = 0, line = 0, start_line = 0, end_line = 0, i;
- DebugMethodInfo *minfo;
- char *name;
+ AssemblyDebugInfo* info;
+ MonoDebugMethodJitInfo *jit;
+ MonoDebugMethodInfo *minfo;
+ int i;
+
+ if (!mono_debug_handle)
+ return;
mono_class_init (klass);
- /*
- * Find the method index in the image.
- */
- for (i = 0; klass->methods && i < klass->method.count; ++i) {
- if (klass->methods [i] == method) {
- method_number = klass->method.first + i + 1;
- line = info->mlines [method_number];
- break;
- }
- }
- if (g_hash_table_lookup (info->methods, method))
+ if ((method->iflags & METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL) ||
+ (method->iflags & METHOD_IMPL_ATTRIBUTE_RUNTIME) ||
+ (method->flags & METHOD_ATTRIBUTE_PINVOKE_IMPL) ||
+ (method->flags & METHOD_ATTRIBUTE_ABSTRACT))
return;
- if (info->moffsets) {
- /* info->moffsets contains -1 "outside" of functions. */
- for (i = line; (i > 0) && (info->moffsets [i] == 0); i--)
- ;
- start_line = i + 1;
+ if (method->wrapper_type != MONO_WRAPPER_NONE)
+ return;
- for (i = start_line; info->moffsets [i] != -1; i++)
- ;
- end_line = i;
- }
+ info = mono_debug_get_image (mono_debug_handle, klass->image);
+ g_assert (info);
+
+ minfo = lookup_method (method);
+ if (!minfo || minfo->jit)
+ return;
+
+ mono_debug_handle->dirty = TRUE;
- name = g_strdup_printf ("%s%s%s.%s", klass->name_space, klass->name_space [0]? ".": "",
- klass->name, method->name);
-
- minfo = g_new0 (DebugMethodInfo, 1);
- minfo->name = name;
- minfo->start_line = start_line;
- minfo->first_line = line;
- minfo->last_line = end_line;
- minfo->method_info.code_start = cfg->start + 1;
- minfo->method_info.code_size = cfg->code_size;
- minfo->method_number = method_number;
- minfo->method_info.method = method;
- minfo->method_info.num_params = method->signature->param_count;
- minfo->method_info.param_offsets = g_new0 (guint32, minfo->method_info.num_params);
- minfo->method_info.prologue_end = cfg->prologue_end - 1;
- minfo->method_info.epilogue_begin = cfg->epilogue_begin - 1;
+ minfo->jit = jit = g_new0 (MonoDebugMethodJitInfo, 1);
+ jit->code_start = cfg->start;
+ jit->code_size = cfg->epilogue_end;
+ jit->prologue_end = cfg->prologue_end;
+ jit->epilogue_begin = cfg->epilog;
+ jit->num_params = method->signature->param_count;
+ jit->params = g_new0 (MonoDebugVarInfo, jit->num_params);
if (method->signature->hasthis) {
MonoVarInfo *ptr = ((MonoVarInfo *) cfg->varinfo->data) + cfg->args_start_index;
- minfo->method_info.this_offset = ptr->offset;
+ jit->this_var = g_new0 (MonoDebugVarInfo, 1);
+ jit->this_var->offset = ptr->offset;
+ jit->this_var->size = ptr->size;
}
- for (i = 0; i < minfo->method_info.num_params; i++) {
+ for (i = 0; i < jit->num_params; i++) {
MonoVarInfo *ptr = ((MonoVarInfo *) cfg->varinfo->data) + cfg->args_start_index +
method->signature->hasthis;
- minfo->method_info.param_offsets [i] = ptr [i].offset;
+ jit->params [i].offset = ptr [i].offset;
+ jit->params [i].size = ptr [i].size;
}
+ debug_generate_method_lines (info, minfo, cfg);
+ if (info->format == MONO_DEBUG_FORMAT_MONO)
+ debug_update_il_offsets (info, minfo, cfg);
+
if (!method->iflags & (METHOD_IMPL_ATTRIBUTE_INTERNAL_CALL | METHOD_IMPL_ATTRIBUTE_RUNTIME)) {
MonoMethodHeader *header = ((MonoMethodNormal*)method)->header;
MonoVarInfo *ptr = ((MonoVarInfo *) cfg->varinfo->data) + cfg->locals_start_index;
+ MonoDebugVarInfo *locals;
+
+ locals = g_new0 (MonoDebugVarInfo, header->num_locals);
+ for (i = 0; i < header->num_locals; i++) {
+ gint32 begin_offset, end_offset;
+ gint32 begin_scope, end_scope;
- minfo->method_info.num_locals = header->num_locals;
- minfo->method_info.locals = g_new0 (MonoDebugLocalInfo, header->num_locals);
- for (i = 0; i < minfo->method_info.num_locals; i++) {
- minfo->method_info.locals [i].offset = ptr [i].offset;
- minfo->method_info.locals [i].begin_scope = minfo->method_info.prologue_end;
- minfo->method_info.locals [i].end_scope = minfo->method_info.epilogue_begin;
+ if (ptr [i].reg >= 0) {
+ locals [i].index = ptr [i].reg | MONO_DEBUG_VAR_ADDRESS_MODE_REGISTER;
+ locals [i].offset = 0;
+ } else
+ locals [i].offset = ptr [i].offset;
+
+ locals [i].size = ptr [i].size;
+
+ begin_offset = il_offset_from_position (cfg, &ptr [i].range.first_use);
+ end_offset = il_offset_from_position (cfg, &ptr [i].range.last_use);
+ if (end_offset >= 0)
+ end_offset++;
+
+ begin_scope = address_from_il_offset (minfo, begin_offset);
+ end_scope = address_from_il_offset (minfo, end_offset);
+
+ if (begin_scope > 0)
+ locals [i].begin_scope = begin_scope;
+ else
+ locals [i].begin_scope = jit->prologue_end;
+ if (end_scope > 0)
+ locals [i].end_scope = end_scope;
+ else
+ locals [i].end_scope = jit->epilogue_begin;
}
+
+ jit->num_locals = header->num_locals;
+ jit->locals = locals;
}
- debug_generate_method_lines (info, minfo, cfg);
+ if (info->symfile)
+ mono_debug_symfile_add_method (info->symfile, method);
+}
- g_hash_table_insert (info->methods, method, minfo);
+gchar *
+mono_debug_source_location_from_address (MonoMethod *method, guint32 address, guint32 *line_number)
+{
+ MonoDebugMethodInfo *minfo = lookup_method (method);
+
+ if (!minfo)
+ return NULL;
+
+ if (minfo->symfile) {
+ gint32 offset = il_offset_from_address (minfo, address);
+
+ if (offset < 0)
+ return NULL;
+
+ return mono_debug_find_source_location (minfo->symfile, method, offset, line_number);
+ }
+
+ return NULL;
+}
+
+gint32
+mono_debug_il_offset_from_address (MonoMethod *method, gint32 address)
+{
+ MonoDebugMethodInfo *minfo;
+
+ if (address < 0)
+ return -1;
+
+ minfo = lookup_method (method);
+ if (!minfo || !minfo->il_offsets)
+ return -1;
+
+ return il_offset_from_address (minfo, address);
+}
+
+gint32
+mono_debug_address_from_il_offset (MonoMethod *method, gint32 il_offset)
+{
+ MonoDebugMethodInfo *minfo;
+
+ if (il_offset < 0)
+ return -1;
+
+ minfo = lookup_method (method);
+ if (!minfo || !minfo->il_offsets)
+ return -1;
+
+ return address_from_il_offset (minfo, il_offset);
+}
+
+static void
+release_symbol_file_table ()
+{
+ MonoDebuggerSymbolFileTable *temp;
+
+ if (!debugger_symbol_file_table)
+ return;
+
+ /*
+ * Caution: The debugger may access the memory pointed to by this variable
+ * at any time. It is very important to set the pointer to NULL
+ * before freeing the area.
+ */
+
+ temp = debugger_symbol_file_table;
+ debugger_symbol_file_table = NULL;
+ g_free (debugger_symbol_file_table);
+}
+
+static void
+update_symbol_file_table_count_func (gpointer key, gpointer value, gpointer user_data)
+{
+ AssemblyDebugInfo *info = (AssemblyDebugInfo *) value;
+
+ if (!info->symfile || (info->format != MONO_DEBUG_FORMAT_MONO))
+ return;
+
+ ++ (* (int *) user_data);
+}
+
+struct SymfileTableData
+{
+ MonoDebuggerSymbolFileTable *symfile_table;
+ int index;
+};
+
+static void
+update_symbol_file_table_func (gpointer key, gpointer value, gpointer user_data)
+{
+ AssemblyDebugInfo *info = (AssemblyDebugInfo *) value;
+ struct SymfileTableData *data = (struct SymfileTableData *) user_data;
+
+ if (!info->symfile || (info->format != MONO_DEBUG_FORMAT_MONO))
+ return;
+
+ data->symfile_table->symfiles [data->index++] = info->symfile;
+}
+
+static int
+debugger_update_symbol_file_table (void)
+{
+ int count = 0;
+ MonoDebuggerSymbolFileTable *symfile_table;
+ struct SymfileTableData data;
+ guint32 size;
+
+ if (!mono_debug_handle)
+ return FALSE;
+
+ g_hash_table_foreach (mono_debug_handle->images, update_symbol_file_table_count_func, &count);
+
+ release_symbol_file_table ();
+
+ size = sizeof (MonoDebuggerSymbolFileTable) + count * sizeof (MonoSymbolFile *);
+ symfile_table = g_malloc0 (size);
+ symfile_table->magic = MONO_SYMBOL_FILE_DYNAMIC_MAGIC;
+ symfile_table->version = MONO_SYMBOL_FILE_DYNAMIC_VERSION;
+ symfile_table->total_size = size;
+ symfile_table->count = count;
+ symfile_table->generation = debugger_symbol_file_table_generation;
+
+ data.symfile_table = symfile_table;
+ data.index = 0;
+
+ g_hash_table_foreach (mono_debug_handle->images, update_symbol_file_table_func, &data);
+
+ debugger_symbol_file_table = symfile_table;
+ return TRUE;
+}
+
+extern void (*mono_debugger_class_init_func) (MonoClass *klass);
+
+static gboolean has_mono_debugger_support = FALSE;
+
+static void
+initialize_debugger_support ()
+{
+ if (has_mono_debugger_support)
+ return;
+ has_mono_debugger_support = TRUE;
+
+ mono_debugger_class_init_func = mono_debug_add_type;
+}
+
+static GPtrArray *breakpoints = NULL;
+
+int
+mono_insert_breakpoint_full (MonoMethodDesc *desc, gboolean use_trampoline)
+{
+ static int last_breakpoint_id = 0;
+ MonoDebuggerBreakpointInfo *info;
+
+ info = g_new0 (MonoDebuggerBreakpointInfo, 1);
+ info->desc = desc;
+ info->use_trampoline = use_trampoline;
+ info->index = ++last_breakpoint_id;
+
+ if (!breakpoints)
+ breakpoints = g_ptr_array_new ();
+
+ g_ptr_array_add (breakpoints, info);
+
+ return info->index;
+}
+
+static guint64
+debugger_insert_breakpoint (guint64 method_argument, const gchar *string_argument)
+{
+ MonoMethodDesc *desc;
+
+ desc = mono_method_desc_new (string_argument, FALSE);
+ if (!desc)
+ return 0;
+
+ return mono_insert_breakpoint_full (desc, TRUE);
+}
+
+static guint64
+debugger_remove_breakpoint (guint64 breakpoint)
+{
+ int i;
+
+ if (!breakpoints)
+ return 0;
+
+ for (i = 0; i < breakpoints->len; i++) {
+ MonoDebuggerBreakpointInfo *info = g_ptr_array_index (breakpoints, i);
+
+ if (info->index != breakpoint)
+ continue;
+
+ mono_method_desc_free (info->desc);
+ g_ptr_array_remove (breakpoints, info);
+ g_free (info);
+ return 1;
+ }
+
+ return 0;
+}
+
+int
+mono_remove_breakpoint (int breakpoint_id)
+{
+ return debugger_remove_breakpoint (breakpoint_id);
+}
+
+int
+mono_insert_breakpoint (const gchar *method_name, gboolean include_namespace)
+{
+ MonoMethodDesc *desc;
+
+ desc = mono_method_desc_new (method_name, include_namespace);
+ if (!desc)
+ return 0;
+
+ return mono_insert_breakpoint_full (desc, has_mono_debugger_support);
+}
+
+int
+mono_method_has_breakpoint (MonoMethod* method, gboolean use_trampoline)
+{
+ int i;
+
+ if (!breakpoints || (method->wrapper_type != MONO_WRAPPER_NONE))
+ return 0;
+
+ for (i = 0; i < breakpoints->len; i++) {
+ MonoDebuggerBreakpointInfo *info = g_ptr_array_index (breakpoints, i);
+
+ if (info->use_trampoline != use_trampoline)
+ continue;
+
+ if (!mono_method_desc_full_match (info->desc, method))
+ continue;
+
+ return info->index;
+ }
+
+ return 0;
}