mono/metadata/debug-mono-symfile.c

   1 /*
   2  * debug-mono-symfile.c:
   3  *
   4  * Author:
   5  *      Mono Project (http://www.mono-project.com)
   6  *
   7  * Copyright (C) 2005-2008 Novell, Inc. (http://www.novell.com)
   8  * Copyright 2012 Xamarin Inc (http://www.xamarin.com)
   9  */
  10
  11 #include <config.h>
  12 #include <stdlib.h>
  13 #include <stdio.h>
  14 #include <errno.h>
  15 #include <string.h>
  16 #ifdef HAVE_SYS_PARAM_H
  17 #include <sys/param.h>
  18 #endif
  19 #include <sys/stat.h>
  20 #include <mono/metadata/metadata.h>
  21 #include <mono/metadata/tabledefs.h>
  22 #include <mono/metadata/tokentype.h>
  23 #include <mono/metadata/appdomain.h>
  24 #include <mono/metadata/exception.h>
  25 #include <mono/metadata/debug-helpers.h>
  26 #include <mono/metadata/mono-debug.h>
  27 #include <mono/metadata/debug-mono-symfile.h>
  28 #include <mono/metadata/mono-debug-debugger.h>
  29 #include <mono/metadata/mono-endian.h>
  30 #include <mono/metadata/metadata-internals.h>
  31 #include <mono/metadata/class-internals.h>
  32 #include <mono/utils/mono-mmap.h>
  33 #include <mono/utils/bsearch.h>
  34
  35 #include <fcntl.h>
  36 #ifdef HAVE_UNISTD_H
  37 #include <unistd.h>
  38 #endif
  39
  40 #define RANGE_TABLE_CHUNK_SIZE          256
  41 #define CLASS_TABLE_CHUNK_SIZE          256
  42 #define TYPE_TABLE_PTR_CHUNK_SIZE       256
  43 #define TYPE_TABLE_CHUNK_SIZE           65536
  44
  45 struct _MonoSymbolFile {
  46         const uint8_t *raw_contents;
  47         int raw_contents_size;
  48         void *raw_contents_handle;
  49         int major_version;
  50         int minor_version;
  51         char *filename;
  52         GHashTable *method_hash;
  53         GHashTable *source_hash;
  54         MonoSymbolFileOffsetTable *offset_table;
  55         gboolean was_loaded_from_memory;
  56 };
  57
  58 static void
  59 free_method_info (MonoDebugMethodInfo *minfo)
  60 {
  61         g_free (minfo);
  62 }
  63
  64 static void
  65 free_source_info (MonoDebugSourceInfo *sinfo)
  66 {
  67         g_free (sinfo->source_file);
  68         g_free (sinfo->guid);
  69         g_free (sinfo->hash);
  70         g_free (sinfo);
  71 }
  72
  73 static int
  74 load_symfile (MonoDebugHandle *handle, MonoSymbolFile *symfile, mono_bool in_the_debugger)
  75 {
  76         const char *ptr, *start;
  77         gchar *guid;
  78         uint64_t magic;
  79         int minor, major;
  80
  81         ptr = start = (const char*)symfile->raw_contents;
  82         if (!ptr)
  83                 return FALSE;
  84
  85         magic = read64(ptr);
  86         ptr += sizeof(uint64_t);
  87         if (magic != MONO_SYMBOL_FILE_MAGIC) {
  88                 if (!in_the_debugger)
  89                         g_warning ("Symbol file %s is not a mono symbol file", symfile->filename);
  90                 return FALSE;
  91         }
  92
  93         major = read32(ptr);
  94         ptr += sizeof(uint32_t);
  95         minor = read32(ptr);
  96         ptr += sizeof(uint32_t);
  97
  98         /*
  99          * 50.0 is the frozen version for Mono 2.0.
 100          *
 101          * Nobody except me (Martin) is allowed to check the minor version.
 102          */
 103         if (major != MONO_SYMBOL_FILE_MAJOR_VERSION) {
 104                 if (!in_the_debugger)
 105                         g_warning ("Symbol file %s has incorrect version (expected %d.%d, got %d)",
 106                                    symfile->filename, MONO_SYMBOL_FILE_MAJOR_VERSION,
 107                                    MONO_SYMBOL_FILE_MINOR_VERSION, major);
 108                 return FALSE;
 109         }
 110
 111         guid = mono_guid_to_string ((const uint8_t *) ptr);
 112         ptr += 16;
 113
 114         if (strcmp (handle->image->guid, guid)) {
 115                 if (!in_the_debugger)
 116                         g_warning ("Symbol file %s doesn't match image %s", symfile->filename,
 117                                    handle->image_file);
 118                 if (guid)
 119                         g_free (guid);
 120                 return FALSE;
 121         }
 122
 123         symfile->major_version = major;
 124         symfile->minor_version = minor;
 125
 126         symfile->offset_table = (MonoSymbolFileOffsetTable *) ptr;
 127
 128         symfile->method_hash = g_hash_table_new_full (
 129                 NULL, NULL, NULL, (GDestroyNotify) free_method_info);
 130
 131         symfile->source_hash = g_hash_table_new_full (
 132                 NULL, NULL, NULL, (GDestroyNotify) free_source_info);
 133
 134         g_free (guid);
 135         return TRUE;
 136 }
 137
 138 MonoSymbolFile *
 139 mono_debug_open_mono_symbols (MonoDebugHandle *handle, const uint8_t *raw_contents,
 140                               int size, gboolean in_the_debugger)
 141 {
 142         MonoSymbolFile *symfile;
 143
 144         mono_debugger_lock ();
 145         symfile = g_new0 (MonoSymbolFile, 1);
 146
 147         if (raw_contents != NULL) {
 148                 unsigned char *p;
 149                 symfile->raw_contents_size = size;
 150                 symfile->raw_contents = p = g_malloc (size);
 151                 memcpy (p, raw_contents, size);
 152                 symfile->filename = g_strdup_printf ("LoadedFromMemory");
 153                 symfile->was_loaded_from_memory = TRUE;
 154         } else {
 155                 MonoFileMap *f;
 156                 symfile->filename = g_strdup_printf ("%s.mdb", mono_image_get_filename (handle->image));
 157                 symfile->was_loaded_from_memory = FALSE;
 158                 if ((f = mono_file_map_open (symfile->filename))) {
 159                         symfile->raw_contents_size = mono_file_map_size (f);
 160                         if (symfile->raw_contents_size == 0) {
 161                                 if (!in_the_debugger)
 162                                         g_warning ("stat of %s failed: %s",
 163                                                    symfile->filename,  g_strerror (errno));
 164                         } else {
 165                                 symfile->raw_contents = mono_file_map (symfile->raw_contents_size, MONO_MMAP_READ|MONO_MMAP_PRIVATE, mono_file_map_fd (f), 0, &symfile->raw_contents_handle);
 166                         }
 167
 168                         mono_file_map_close (f);
 169                 }
 170         }
 171
 172         if (load_symfile (handle, symfile, in_the_debugger)) {
 173                 mono_debugger_unlock ();
 174                 return symfile;
 175         } else if (!in_the_debugger) {
 176                 mono_debug_close_mono_symbol_file (symfile);
 177                 mono_debugger_unlock ();
 178                 return NULL;
 179         }
 180
 181         mono_debugger_unlock ();
 182         return symfile;
 183 }
 184
 185 void
 186 mono_debug_close_mono_symbol_file (MonoSymbolFile *symfile)
 187 {
 188         if (!symfile)
 189                 return;
 190
 191         mono_debugger_lock ();
 192         if (symfile->method_hash)
 193                 g_hash_table_destroy (symfile->method_hash);
 194
 195         if (symfile->raw_contents) {
 196                 if (symfile->was_loaded_from_memory)
 197                         g_free ((gpointer)symfile->raw_contents);
 198                 else
 199                         mono_file_unmap ((gpointer) symfile->raw_contents, symfile->raw_contents_handle);
 200         }
 201
 202         if (symfile->filename)
 203                 g_free (symfile->filename);
 204         g_free (symfile);
 205         mono_debugger_unlock ();
 206 }
 207
 208 mono_bool
 209 mono_debug_symfile_is_loaded (MonoSymbolFile *symfile)
 210 {
 211         return symfile && symfile->offset_table;
 212 }
 213
 214
 215 static int
 216 read_leb128 (const uint8_t *ptr, const uint8_t **rptr)
 217 {
 218         int ret = 0;
 219         int shift = 0;
 220         char b;
 221
 222         do {
 223                 b = *ptr++;
 224
 225                 ret = ret | ((b & 0x7f) << shift);
 226                 shift += 7;
 227         } while ((b & 0x80) == 0x80);
 228
 229         if (rptr)
 230                 *rptr = ptr;
 231
 232         return ret;
 233 }
 234
 235 static gchar *
 236 read_string (const uint8_t *ptr, const uint8_t **endp)
 237 {
 238         gchar *s;
 239         int len = read_leb128 (ptr, &ptr);
 240
 241         s = g_filename_from_utf8 ((const char *) ptr, len, NULL, NULL, NULL);
 242         ptr += len;
 243         if (endp)
 244                 *endp = ptr;
 245         return s;
 246 }
 247
 248 typedef struct {
 249         MonoSymbolFile *symfile;
 250         int line_base, line_range, max_address_incr;
 251         uint8_t opcode_base;
 252         uint32_t last_line, last_file, last_offset;
 253         uint32_t first_file;
 254         int line, file, offset;
 255         gboolean is_hidden;
 256 } StatementMachine;
 257
 258 static gboolean
 259 check_line (StatementMachine *stm, int offset, MonoDebugSourceLocation **location)
 260 {
 261         gchar *source_file = NULL;
 262
 263         if (stm->offset <= offset) {
 264                 stm->last_offset = stm->offset;
 265                 stm->last_file = stm->file;
 266                 if (stm->line != 0xfeefee)
 267                         stm->last_line = stm->line;
 268                 return FALSE;
 269         }
 270
 271         if (stm->last_file) {
 272                 int offset = read32(&(stm->symfile->offset_table->_source_table_offset)) +
 273                         (stm->last_file - 1) * sizeof (MonoSymbolFileSourceEntry);
 274                 MonoSymbolFileSourceEntry *se = (MonoSymbolFileSourceEntry *)
 275                         (stm->symfile->raw_contents + offset);
 276
 277                 source_file = read_string (stm->symfile->raw_contents + read32(&(se->_data_offset)), NULL);
 278         }
 279
 280         if (stm->last_line == 0) {
 281                 /*
 282                  * The IL offset is less than the first IL offset which has a corresponding
 283                  * source line.
 284                  */
 285                 *location = NULL;
 286                 return TRUE;
 287         }
 288
 289         *location = g_new0 (MonoDebugSourceLocation, 1);
 290         (*location)->source_file = source_file;
 291         (*location)->row = stm->last_line;
 292         (*location)->il_offset = stm->last_offset;
 293         return TRUE;
 294 }
 295
 296 /**
 297  * mono_debug_symfile_lookup_location:
 298  * @minfo: A `MonoDebugMethodInfo' which can be retrieved by
 299  *         mono_debug_lookup_method().
 300  * @offset: IL offset within the corresponding method's CIL code.
 301  *
 302  * This function is similar to mono_debug_lookup_location(), but we
 303  * already looked up the method and also already did the
 304  * `native address -> IL offset' mapping.
 305  */
 306 MonoDebugSourceLocation *
 307 mono_debug_symfile_lookup_location (MonoDebugMethodInfo *minfo, uint32_t offset)
 308 {
 309         MonoDebugSourceLocation *location = NULL;
 310         MonoSymbolFile *symfile;
 311         const unsigned char *ptr;
 312         StatementMachine stm;
 313
 314 #define DW_LNS_copy 1
 315 #define DW_LNS_advance_pc 2
 316 #define DW_LNS_advance_line 3
 317 #define DW_LNS_set_file 4
 318 #define DW_LNS_const_add_pc 8
 319
 320 #define DW_LNE_end_sequence 1
 321 #define DW_LNE_MONO_negate_is_hidden 0x40
 322
 323 #define DW_LNE_MONO__extensions_start 0x40
 324 #define DW_LNE_MONO__extensions_end 0x7f
 325
 326         if ((symfile = minfo->handle->symfile) == NULL)
 327                 return NULL;
 328
 329         stm.line_base = read32 (&symfile->offset_table->_line_number_table_line_base);
 330         stm.line_range = read32 (&symfile->offset_table->_line_number_table_line_range);
 331         stm.opcode_base = (uint8_t) read32 (&symfile->offset_table->_line_number_table_opcode_base);
 332         stm.max_address_incr = (255 - stm.opcode_base) / stm.line_range;
 333
 334         mono_debugger_lock ();
 335
 336         ptr = symfile->raw_contents + minfo->lnt_offset;
 337
 338         stm.symfile = symfile;
 339         stm.offset = stm.last_offset = 0;
 340         stm.last_file = 0;
 341         stm.last_line = 0;
 342         stm.first_file = 0;
 343         stm.file = 1;
 344         stm.line = 1;
 345         stm.is_hidden = FALSE;
 346
 347         while (TRUE) {
 348                 uint8_t opcode = *ptr++;
 349
 350                 if (opcode == 0) {
 351                         uint8_t size = *ptr++;
 352                         const unsigned char *end_ptr = ptr + size;
 353
 354                         opcode = *ptr++;
 355
 356                         if (opcode == DW_LNE_end_sequence) {
 357                                 if (check_line (&stm, -1, &location))
 358                                         goto out_success;
 359                                 break;
 360                         } else if (opcode == DW_LNE_MONO_negate_is_hidden) {
 361                                 stm.is_hidden = !stm.is_hidden;
 362                         } else if ((opcode >= DW_LNE_MONO__extensions_start) &&
 363                                    (opcode <= DW_LNE_MONO__extensions_end)) {
 364                                 ; // reserved for future extensions
 365                         } else {
 366                                 g_warning ("Unknown extended opcode %x in LNT", opcode);
 367                         }
 368
 369                         ptr = end_ptr;
 370                         continue;
 371                 } else if (opcode < stm.opcode_base) {
 372                         switch (opcode) {
 373                         case DW_LNS_copy:
 374                                 if (check_line (&stm, offset, &location))
 375                                         goto out_success;
 376                                 break;
 377                         case DW_LNS_advance_pc:
 378                                 stm.offset += read_leb128 (ptr, &ptr);
 379                                 break;
 380                         case DW_LNS_advance_line:
 381                                 stm.line += read_leb128 (ptr, &ptr);
 382                                 break;
 383                         case DW_LNS_set_file:
 384                                 stm.file = read_leb128 (ptr, &ptr);
 385                                 break;
 386                         case DW_LNS_const_add_pc:
 387                                 stm.offset += stm.max_address_incr;
 388                                 break;
 389                         default:
 390                                 g_warning ("Unknown standard opcode %x in LNT", opcode);
 391                                 goto error_out;
 392                         }
 393                 } else {
 394                         opcode -= stm.opcode_base;
 395
 396                         stm.offset += opcode / stm.line_range;
 397                         stm.line += stm.line_base + (opcode % stm.line_range);
 398
 399                         if (check_line (&stm, offset, &location))
 400                                 goto out_success;
 401                 }
 402         }
 403
 404  error_out:
 405         mono_debugger_unlock ();
 406         return NULL;
 407
 408  out_success:
 409         mono_debugger_unlock ();
 410         return location;
 411 }
 412
 413 static void
 414 add_line (StatementMachine *stm, GPtrArray *il_offset_array, GPtrArray *line_number_array, GPtrArray *source_file_array, GPtrArray *hidden_array)
 415 {
 416         g_ptr_array_add (il_offset_array, GUINT_TO_POINTER (stm->offset));
 417         g_ptr_array_add (line_number_array, GUINT_TO_POINTER (stm->line));
 418         g_ptr_array_add (source_file_array, GUINT_TO_POINTER (stm->file));
 419         g_ptr_array_add (hidden_array, GUINT_TO_POINTER (stm->is_hidden || stm->line <= 0));
 420
 421         if (!stm->is_hidden && !stm->first_file)
 422                 stm->first_file = stm->file;
 423 }
 424
 425 /*
 426  * mono_debug_symfile_free_location:
 427  *
 428  *   Free a MonoDebugSourceLocation returned by
 429  *   mono_debug_symfile_lookup_location
 430  */
 431 void
 432 mono_debug_symfile_free_location   (MonoDebugSourceLocation  *location)
 433 {
 434         g_free (location->source_file);
 435         g_free (location);
 436 }
 437
 438 /*
 439  * LOCKING: Assumes the debugger lock is held.
 440  */
 441 static MonoDebugSourceInfo*
 442 get_source_info (MonoSymbolFile *symfile, int index)
 443 {
 444         MonoDebugSourceInfo *info;
 445
 446         info = g_hash_table_lookup (symfile->source_hash, GUINT_TO_POINTER (index));
 447         if (!info) {
 448                 int offset = read32(&(symfile->offset_table->_source_table_offset)) +
 449                         (index - 1) * sizeof (MonoSymbolFileSourceEntry);
 450                 MonoSymbolFileSourceEntry *se = (MonoSymbolFileSourceEntry *)
 451                         (symfile->raw_contents + offset);
 452                 const uint8_t *ptr = symfile->raw_contents + read32(&(se->_data_offset));
 453
 454                 info = g_new0 (MonoDebugSourceInfo, 1);
 455                 info->source_file = read_string (ptr, &ptr);
 456                 info->guid = g_malloc0 (16);
 457                 memcpy (info->guid, ptr, 16);
 458                 ptr += 16;
 459                 info->hash = g_malloc0 (16);
 460                 memcpy (info->hash, ptr, 16);
 461                 ptr += 16;
 462                 g_hash_table_insert (symfile->source_hash, GUINT_TO_POINTER (index), info);
 463         }
 464         return info;
 465 }
 466
 467 typedef enum {
 468         LNT_FLAG_HAS_COLUMN_INFO = 1 << 1,
 469         LNT_FLAG_HAS_END_INFO = 1 << 2,
 470 } LineNumberTableFlags;
 471
 472 static LineNumberTableFlags
 473 method_get_lnt_flags (MonoDebugMethodInfo *minfo)
 474 {
 475         MonoSymbolFile *symfile;
 476         const unsigned char *ptr;
 477         guint32 flags;
 478
 479         if ((symfile = minfo->handle->symfile) == NULL)
 480                 return FALSE;
 481
 482         ptr = symfile->raw_contents + minfo->data_offset;
 483
 484         /* Has to read 'flags' which is preceeded by a bunch of other data */
 485         /* compile_unit_index */
 486         read_leb128 (ptr, &ptr);
 487         /* local variable table offset */
 488         read_leb128 (ptr, &ptr);
 489         /* namespace id */
 490         read_leb128 (ptr, &ptr);
 491         /* code block table offset */
 492         read_leb128 (ptr, &ptr);
 493         /* scope variable table offset */
 494         read_leb128 (ptr, &ptr);
 495         /* real name offset */
 496         read_leb128 (ptr, &ptr);
 497
 498         flags = read_leb128 (ptr, &ptr);
 499         return flags;
 500 }
 501
 502 /*
 503  * mono_debug_symfile_get_line_numbers_full:
 504  *
 505  * On return, SOURCE_FILE_LIST will point to a GPtrArray of MonoDebugSourceFile
 506  * structures, and SOURCE_FILES will contain indexes into this array.
 507  * The MonoDebugSourceFile structures are owned by this module.
 508  */
 509 void
 510 mono_debug_symfile_get_line_numbers_full (MonoDebugMethodInfo *minfo, char **source_file, GPtrArray **source_file_list, int *n_il_offsets, int **il_offsets, int **line_numbers, int **column_numbers, int **source_files, int **end_line_numbers, int **end_column_numbers)
 511 {
 512         // FIXME: Unify this with mono_debug_symfile_lookup_location
 513         MonoSymbolFile *symfile;
 514         const unsigned char *ptr;
 515         StatementMachine stm;
 516         uint32_t i, j;
 517         LineNumberTableFlags flags;
 518         GPtrArray *il_offset_array, *line_number_array, *source_file_array, *hidden_array;
 519         gboolean has_column_info, has_end_info;
 520         gboolean column_info_read = FALSE;
 521
 522         if (source_file_list)
 523                 *source_file_list = NULL;
 524         if (n_il_offsets)
 525                 *n_il_offsets = 0;
 526         if (il_offsets)
 527                 *il_offsets = NULL;
 528         if (source_files)
 529                 *source_files = NULL;
 530         if (source_file)
 531                 *source_file = NULL;
 532         if (line_numbers)
 533                 *line_numbers = NULL;
 534         if (column_numbers)
 535                 *column_numbers = NULL;
 536         if (end_line_numbers)
 537                 *end_line_numbers = NULL;
 538         if (end_column_numbers)
 539                 *end_column_numbers = NULL;
 540
 541         if ((symfile = minfo->handle->symfile) == NULL)
 542                 return;
 543
 544         flags = method_get_lnt_flags (minfo);
 545         has_column_info = (flags & LNT_FLAG_HAS_COLUMN_INFO) > 0;
 546         has_end_info = (flags & LNT_FLAG_HAS_END_INFO) > 0;
 547
 548         il_offset_array = g_ptr_array_new ();
 549         line_number_array = g_ptr_array_new ();
 550         source_file_array = g_ptr_array_new ();
 551         hidden_array = g_ptr_array_new();
 552
 553         stm.line_base = read32 (&symfile->offset_table->_line_number_table_line_base);
 554         stm.line_range = read32 (&symfile->offset_table->_line_number_table_line_range);
 555         stm.opcode_base = (uint8_t) read32 (&symfile->offset_table->_line_number_table_opcode_base);
 556         stm.max_address_incr = (255 - stm.opcode_base) / stm.line_range;
 557
 558         mono_debugger_lock ();
 559
 560         ptr = symfile->raw_contents + minfo->lnt_offset;
 561
 562         stm.symfile = symfile;
 563         stm.offset = stm.last_offset = 0;
 564         stm.last_file = 0;
 565         stm.last_line = 0;
 566         stm.first_file = 0;
 567         stm.file = 1;
 568         stm.line = 1;
 569         stm.is_hidden = FALSE;
 570
 571         while (TRUE) {
 572                 uint8_t opcode = *ptr++;
 573
 574                 if (opcode == 0) {
 575                         uint8_t size = *ptr++;
 576                         const unsigned char *end_ptr = ptr + size;
 577
 578                         opcode = *ptr++;
 579
 580                         if (opcode == DW_LNE_end_sequence) {
 581                                 if (il_offset_array->len == 0)
 582                                         /* Empty table */
 583                                         break;
 584                                 break;
 585                         } else if (opcode == DW_LNE_MONO_negate_is_hidden) {
 586                                 stm.is_hidden = !stm.is_hidden;
 587                         } else if ((opcode >= DW_LNE_MONO__extensions_start) &&
 588                                    (opcode <= DW_LNE_MONO__extensions_end)) {
 589                                 ; // reserved for future extensions
 590                         } else {
 591                                 g_warning ("Unknown extended opcode %x in LNT", opcode);
 592                         }
 593
 594                         ptr = end_ptr;
 595                         continue;
 596                 } else if (opcode < stm.opcode_base) {
 597                         switch (opcode) {
 598                         case DW_LNS_copy:
 599                                 add_line (&stm, il_offset_array, line_number_array, source_file_array, hidden_array);
 600                                 break;
 601                         case DW_LNS_advance_pc:
 602                                 stm.offset += read_leb128 (ptr, &ptr);
 603                                 break;
 604                         case DW_LNS_advance_line:
 605                                 stm.line += read_leb128 (ptr, &ptr);
 606                                 break;
 607                         case DW_LNS_set_file:
 608                                 stm.file = read_leb128 (ptr, &ptr);
 609                                 break;
 610                         case DW_LNS_const_add_pc:
 611                                 stm.offset += stm.max_address_incr;
 612                                 break;
 613                         default:
 614                                 g_warning ("Unknown standard opcode %x in LNT", opcode);
 615                                 g_assert_not_reached ();
 616                         }
 617                 } else {
 618                         opcode -= stm.opcode_base;
 619
 620                         stm.offset += opcode / stm.line_range;
 621                         stm.line += stm.line_base + (opcode % stm.line_range);
 622
 623                         add_line (&stm, il_offset_array, line_number_array, source_file_array, hidden_array);
 624                 }
 625         }
 626
 627         if (!stm.file && stm.first_file)
 628                 stm.file = stm.first_file;
 629
 630         if (stm.file && source_file) {
 631                 int offset = read32(&(stm.symfile->offset_table->_source_table_offset)) +
 632                         (stm.file - 1) * sizeof (MonoSymbolFileSourceEntry);
 633                 MonoSymbolFileSourceEntry *se = (MonoSymbolFileSourceEntry *)
 634                         (stm.symfile->raw_contents + offset);
 635
 636                 if (source_file)
 637                         *source_file = read_string (stm.symfile->raw_contents + read32(&(se->_data_offset)), NULL);
 638         }
 639
 640         if (source_file_list) {
 641                 int file, last_file = 0;
 642
 643                 *source_file_list = g_ptr_array_new ();
 644                 if (source_files)
 645                         *source_files = g_malloc (il_offset_array->len * sizeof (int));
 646
 647                 for (i = 0; i < il_offset_array->len; ++i) {
 648                         file = GPOINTER_TO_UINT (g_ptr_array_index (source_file_array, i));
 649                         if (file && file != last_file) {
 650                                 MonoDebugSourceInfo *info = get_source_info (symfile, file);
 651
 652                                 g_ptr_array_add (*source_file_list, info);
 653                         }
 654                         last_file = file;
 655                         if (source_files)
 656                                 (*source_files) [i] = (*source_file_list)->len - 1;
 657                 }
 658                 if ((*source_file_list)->len == 0 && stm.file) {
 659                         MonoDebugSourceInfo *info = get_source_info (symfile, stm.file);
 660
 661                         g_ptr_array_add (*source_file_list, info);
 662                 }
 663         }
 664
 665         if (n_il_offsets) {
 666                 *n_il_offsets = il_offset_array->len;
 667                 for (i = 0; i < il_offset_array->len; i++) {
 668                         if (GPOINTER_TO_UINT (g_ptr_array_index (hidden_array, i))) {
 669                                 (*n_il_offsets)--;
 670                         }
 671                 }
 672         }
 673         if (il_offsets && line_numbers) {
 674                 *il_offsets = g_malloc (*n_il_offsets * sizeof (int));
 675                 *line_numbers = g_malloc (*n_il_offsets * sizeof (int));
 676                 j = 0;
 677                 for (i = 0; i < il_offset_array->len; ++i) {
 678                         if (!GPOINTER_TO_UINT (g_ptr_array_index (hidden_array, i))) {
 679                                 (*il_offsets)[j] = GPOINTER_TO_UINT (g_ptr_array_index (il_offset_array, i));
 680                                 (*line_numbers)[j] = GPOINTER_TO_UINT (g_ptr_array_index (line_number_array, i));
 681                                 j++;
 682                         }
 683                 }
 684         }
 685
 686         if (column_numbers && has_column_info) {
 687                 column_info_read = TRUE;
 688                 *column_numbers = g_malloc (*n_il_offsets * sizeof (int));
 689                 j = 0;
 690                 for (i = 0; i < il_offset_array->len; ++i) {
 691                         int column = read_leb128 (ptr, &ptr);
 692                         if (!GPOINTER_TO_UINT (g_ptr_array_index (hidden_array, i))) {
 693                                 (*column_numbers) [j] = column;
 694                                 j++;
 695                         }
 696                 }
 697         }
 698
 699         if (has_end_info && end_line_numbers) {
 700                 g_assert (end_column_numbers);
 701                 *end_line_numbers = g_malloc (*n_il_offsets * sizeof (int));
 702                 *end_column_numbers = g_malloc (*n_il_offsets * sizeof (int));
 703                 if (has_column_info && !column_info_read) {
 704                         for (i = 0; i < il_offset_array->len; ++i)
 705                                 read_leb128 (ptr, &ptr);
 706                 }
 707                 j = 0;
 708                 for (i = 0; i < il_offset_array->len; ++i) {
 709                         int end_row, end_column = -1;
 710
 711                         end_row = read_leb128 (ptr, &ptr);
 712                         if (end_row != 0xffffff) {
 713                                 end_row += GPOINTER_TO_UINT (g_ptr_array_index (line_number_array, i));
 714                                 end_column = read_leb128 (ptr, &ptr);
 715                                 if (!GPOINTER_TO_UINT (g_ptr_array_index (hidden_array, i))) {
 716                                         (*end_line_numbers)[j] = end_row;
 717                                         (*end_column_numbers)[j] = end_column;
 718                                         j++;
 719                                 }
 720                         }
 721                 }
 722         }
 723
 724         g_ptr_array_free (il_offset_array, TRUE);
 725         g_ptr_array_free (line_number_array, TRUE);
 726         g_ptr_array_free (hidden_array, TRUE);
 727
 728         mono_debugger_unlock ();
 729         return;
 730 }
 731
 732 /*
 733  * mono_debug_symfile_get_line_numbers:
 734  *
 735  *   All the output parameters can be NULL.
 736  */
 737 void
 738 mono_debug_symfile_get_line_numbers (MonoDebugMethodInfo *minfo, char **source_file, int *n_il_offsets, int **il_offsets, int **line_numbers)
 739 {
 740         mono_debug_symfile_get_line_numbers_full (minfo, source_file, NULL, n_il_offsets, il_offsets, line_numbers, NULL, NULL, NULL, NULL);
 741 }
 742
 743 static int
 744 compare_method (const void *key, const void *object)
 745 {
 746         uint32_t token = GPOINTER_TO_UINT (key);
 747         MonoSymbolFileMethodEntry *me = (MonoSymbolFileMethodEntry*)object;
 748
 749         return token - read32(&(me->_token));
 750 }
 751
 752 MonoDebugMethodInfo *
 753 mono_debug_symfile_lookup_method (MonoDebugHandle *handle, MonoMethod *method)
 754 {
 755         MonoSymbolFileMethodEntry *first_ie, *ie;
 756         MonoDebugMethodInfo *minfo;
 757         MonoSymbolFile *symfile = handle->symfile;
 758
 759         if (!symfile->method_hash)
 760                 return NULL;
 761
 762         if (handle->image != mono_class_get_image (mono_method_get_class (method)))
 763                 return NULL;
 764
 765         mono_debugger_lock ();
 766
 767         minfo = g_hash_table_lookup (symfile->method_hash, method);
 768         if (minfo) {
 769                 mono_debugger_unlock ();
 770                 return minfo;
 771         }
 772
 773         first_ie = (MonoSymbolFileMethodEntry *)
 774                 (symfile->raw_contents + read32(&(symfile->offset_table->_method_table_offset)));
 775
 776         ie = mono_binary_search (GUINT_TO_POINTER (mono_method_get_token (method)), first_ie,
 777                                    read32(&(symfile->offset_table->_method_count)),
 778                                    sizeof (MonoSymbolFileMethodEntry), compare_method);
 779
 780         if (!ie) {
 781                 mono_debugger_unlock ();
 782                 return NULL;
 783         }
 784
 785         minfo = g_new0 (MonoDebugMethodInfo, 1);
 786         minfo->index = (ie - first_ie) + 1;
 787         minfo->method = method;
 788         minfo->handle = handle;
 789
 790         minfo->data_offset = read32 (&(ie->_data_offset));
 791         minfo->lnt_offset = read32 (&(ie->_line_number_table));
 792
 793         g_hash_table_insert (symfile->method_hash, method, minfo);
 794
 795         mono_debugger_unlock ();
 796         return minfo;
 797 }
 798
 799 /*
 800  * mono_debug_symfile_lookup_locals:
 801  *
 802  *   Return information about the local variables of MINFO from the symbol file.
 803  * Return NULL if no information can be found.
 804  * The result should be freed using mono_debug_symfile_free_locals ().
 805  */
 806 MonoDebugLocalsInfo*
 807 mono_debug_symfile_lookup_locals (MonoDebugMethodInfo *minfo)
 808 {
 809         MonoSymbolFile *symfile = minfo->handle->symfile;
 810         const uint8_t *p;
 811         int i, len, locals_offset, num_locals, block_index;
 812         int code_block_table_offset;
 813         MonoDebugLocalsInfo *res;
 814
 815         if (!symfile)
 816                 return NULL;
 817
 818         p = symfile->raw_contents + minfo->data_offset;
 819
 820         /* compile_unit_index = */ read_leb128 (p, &p);
 821         locals_offset = read_leb128 (p, &p);
 822         /* namespace_id = */ read_leb128 (p, &p);
 823         code_block_table_offset = read_leb128 (p, &p);
 824
 825         res = g_new0 (MonoDebugLocalsInfo, 1);
 826
 827         p = symfile->raw_contents + code_block_table_offset;
 828         res->num_blocks = read_leb128 (p, &p);
 829         res->code_blocks = g_new0 (MonoDebugCodeBlock, res->num_blocks);
 830         for (i = 0; i < res->num_blocks; ++i) {
 831                 res->code_blocks [i].type = read_leb128 (p, &p);
 832                 res->code_blocks [i].parent = read_leb128 (p, &p);
 833                 res->code_blocks [i].start_offset = read_leb128 (p, &p);
 834                 res->code_blocks [i].end_offset = read_leb128 (p, &p);
 835         }
 836
 837         p = symfile->raw_contents + locals_offset;
 838         num_locals = read_leb128 (p, &p);
 839
 840         res->num_locals = num_locals;
 841         res->locals = g_new0 (MonoDebugLocalVar, num_locals);
 842
 843         for (i = 0; i < num_locals; ++i) {
 844                 res->locals [i].index = read_leb128 (p, &p);
 845                 len = read_leb128 (p, &p);
 846                 res->locals [i].name = g_malloc (len + 1);
 847                 memcpy (res->locals [i].name, p, len);
 848                 res->locals [i].name [len] = '\0';
 849                 p += len;
 850                 block_index = read_leb128 (p, &p);
 851                 if (block_index >= 1 && block_index <= res->num_blocks)
 852                         res->locals [i].block = &res->code_blocks [block_index - 1];
 853         }
 854
 855         return res;
 856 }
 857
 858 /*
 859  * mono_debug_symfile_free_locals:
 860  *
 861  *   Free all the data allocated by mono_debug_symfile_lookup_locals ().
 862  */
 863 void
 864 mono_debug_symfile_free_locals (MonoDebugLocalsInfo *info)
 865 {
 866         int i;
 867
 868         for (i = 0; i < info->num_locals; ++i)
 869                 g_free (info->locals [i].name);
 870         g_free (info->locals);
 871         g_free (info->code_blocks);
 872         g_free (info);
 873 }