git.oblomov.eu Git - wine/blob - dlls/dbghelp/dwarf.c

   1 /*
   2  * File dwarf.c - read dwarf2 information from the ELF modules
   3  *
   4  * Copyright (C) 2005, Raphael Junqueira
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <sys/types.h>
  24 #include <fcntl.h>
  25 #ifdef HAVE_SYS_STAT_H
  26 # include <sys/stat.h>
  27 #endif
  28 #ifdef HAVE_SYS_MMAN_H
  29 #include <sys/mman.h>
  30 #endif
  31 #include <limits.h>
  32 #include <stdlib.h>
  33 #include <string.h>
  34 #ifdef HAVE_UNISTD_H
  35 # include <unistd.h>
  36 #endif
  37 #include <stdio.h>
  38 #ifndef PATH_MAX
  39 #define PATH_MAX MAX_PATH
  40 #endif
  41 #include <assert.h>
  42 #include <stdarg.h>
  43
  44 #include "windef.h"
  45 #include "winbase.h"
  46 #include "winreg.h"
  47 #include "winnls.h"
  48
  49 #include "dbghelp_private.h"
  50
  51 #include "wine/debug.h"
  52
  53 WINE_DEFAULT_DEBUG_CHANNEL(dbghelp_dwarf);
  54
  55 #if 0
  56 static void dump(const void* ptr, unsigned len)
  57 {
  58   int         i, j;
  59   BYTE        msg[128];
  60   static const char hexof[] = "0123456789abcdef";
  61   const BYTE* x = (const BYTE*)ptr;
  62
  63   for (i = 0; i < len; i += 16)
  64   {
  65     sprintf(msg, "%08x: ", i);
  66     memset(msg + 10, ' ', 3 * 16 + 1 + 16);
  67     for (j = 0; j < min(16, len - i); j++)
  68     {
  69       msg[10 + 3 * j + 0] = hexof[x[i + j] >> 4];
  70       msg[10 + 3 * j + 1] = hexof[x[i + j] & 15];
  71       msg[10 + 3 * j + 2] = ' ';
  72       msg[10 + 3 * 16 + 1 + j] = (x[i + j] >= 0x20 && x[i + j] < 0x7f) ?
  73         x[i + j] : '.';
  74     }
  75     msg[10 + 3 * 16] = ' ';
  76     msg[10 + 3 * 16 + 1 + 16] = '\0';
  77     TRACE("%s\n", msg);
  78   }
  79 }
  80 #endif
  81
  82 /**
  83  *
  84  * Main Specs:
  85  *  http://www.eagercon.com/dwarf/dwarf3std.htm
  86  *  http://www.eagercon.com/dwarf/dwarf-2.0.0.pdf
  87  *
  88  * dwarf2.h: http://www.hakpetzna.com/b/binutils/dwarf2_8h-source.html
  89  *
  90  * example of projects who do dwarf2 parsing:
  91  *  http://www.x86-64.org/cgi-bin/cvsweb.cgi/binutils.dead/binutils/readelf.c?rev=1.1.1.2
  92  *  http://elis.ugent.be/diota/log/ltrace_elf.c
  93  */
  94
  95 typedef struct {
  96   unsigned char length[4];
  97   unsigned char version[2];
  98   unsigned char abbrev_offset[4];
  99   unsigned char word_size[1];
 100 } dwarf2_comp_unit_stream_t;
 101
 102 typedef struct {
 103   unsigned long  length;
 104   unsigned short version;
 105   unsigned long  abbrev_offset;
 106   unsigned char  word_size;
 107 } dwarf2_comp_unit_t;
 108
 109 typedef struct {
 110   unsigned int   length;
 111   unsigned short version;
 112   unsigned int   prologue_length;
 113   unsigned char  min_insn_length;
 114   unsigned char  default_is_stmt;
 115   int            line_base;
 116   unsigned char  line_range;
 117   unsigned char  opcode_base;
 118 } dwarf2_line_info_t;
 119
 120 typedef enum dwarf_tag_e {
 121   DW_TAG_padding                = 0x00,
 122   DW_TAG_array_type             = 0x01,
 123   DW_TAG_class_type             = 0x02,
 124   DW_TAG_entry_point            = 0x03,
 125   DW_TAG_enumeration_type       = 0x04,
 126   DW_TAG_formal_parameter       = 0x05,
 127   DW_TAG_imported_declaration   = 0x08,
 128   DW_TAG_label                  = 0x0a,
 129   DW_TAG_lexical_block          = 0x0b,
 130   DW_TAG_member                 = 0x0d,
 131   DW_TAG_pointer_type           = 0x0f,
 132   DW_TAG_reference_type         = 0x10,
 133   DW_TAG_compile_unit           = 0x11,
 134   DW_TAG_string_type            = 0x12,
 135   DW_TAG_structure_type         = 0x13,
 136   DW_TAG_subroutine_type        = 0x15,
 137   DW_TAG_typedef                = 0x16,
 138   DW_TAG_union_type             = 0x17,
 139   DW_TAG_unspecified_parameters = 0x18,
 140   DW_TAG_variant                = 0x19,
 141   DW_TAG_common_block           = 0x1a,
 142   DW_TAG_common_inclusion       = 0x1b,
 143   DW_TAG_inheritance            = 0x1c,
 144   DW_TAG_inlined_subroutine     = 0x1d,
 145   DW_TAG_module                 = 0x1e,
 146   DW_TAG_ptr_to_member_type     = 0x1f,
 147   DW_TAG_set_type               = 0x20,
 148   DW_TAG_subrange_type          = 0x21,
 149   DW_TAG_with_stmt              = 0x22,
 150   DW_TAG_access_declaration     = 0x23,
 151   DW_TAG_base_type              = 0x24,
 152   DW_TAG_catch_block            = 0x25,
 153   DW_TAG_const_type             = 0x26,
 154   DW_TAG_constant               = 0x27,
 155   DW_TAG_enumerator             = 0x28,
 156   DW_TAG_file_type              = 0x29,
 157   DW_TAG_friend                 = 0x2a,
 158   DW_TAG_namelist               = 0x2b,
 159   DW_TAG_namelist_item          = 0x2c,
 160   DW_TAG_packed_type            = 0x2d,
 161   DW_TAG_subprogram             = 0x2e,
 162   DW_TAG_template_type_param    = 0x2f,
 163   DW_TAG_template_value_param   = 0x30,
 164   DW_TAG_thrown_type            = 0x31,
 165   DW_TAG_try_block              = 0x32,
 166   DW_TAG_variant_part           = 0x33,
 167   DW_TAG_variable               = 0x34,
 168   DW_TAG_volatile_type          = 0x35,
 169   /** extensions */
 170   DW_TAG_MIPS_loop              = 0x4081,
 171   DW_TAG_format_label           = 0x4101,
 172   DW_TAG_function_template      = 0x4102,
 173   DW_TAG_class_template         = 0x4103
 174 } dwarf_tag_t;
 175
 176 typedef enum dwarf_attribute_e {
 177   DW_AT_sibling              = 0x01,
 178   DW_AT_location             = 0x02,
 179   DW_AT_name                 = 0x03,
 180   DW_AT_ordering             = 0x09,
 181   DW_AT_subscr_data          = 0x0a,
 182   DW_AT_byte_size            = 0x0b,
 183   DW_AT_bit_offset           = 0x0c,
 184   DW_AT_bit_size             = 0x0d,
 185   DW_AT_element_list         = 0x0f,
 186   DW_AT_stmt_list            = 0x10,
 187   DW_AT_low_pc               = 0x11,
 188   DW_AT_high_pc              = 0x12,
 189   DW_AT_language             = 0x13,
 190   DW_AT_member               = 0x14,
 191   DW_AT_discr                = 0x15,
 192   DW_AT_discr_value          = 0x16,
 193   DW_AT_visibility           = 0x17,
 194   DW_AT_import               = 0x18,
 195   DW_AT_string_length        = 0x19,
 196   DW_AT_common_reference     = 0x1a,
 197   DW_AT_comp_dir             = 0x1b,
 198   DW_AT_const_value          = 0x1c,
 199   DW_AT_containing_type      = 0x1d,
 200   DW_AT_default_value        = 0x1e,
 201   DW_AT_inline               = 0x20,
 202   DW_AT_is_optional          = 0x21,
 203   DW_AT_lower_bound          = 0x22,
 204   DW_AT_producer             = 0x25,
 205   DW_AT_prototyped           = 0x27,
 206   DW_AT_return_addr          = 0x2a,
 207   DW_AT_start_scope          = 0x2c,
 208   DW_AT_stride_size          = 0x2e,
 209   DW_AT_upper_bound          = 0x2f,
 210   DW_AT_abstract_origin      = 0x31,
 211   DW_AT_accessibility        = 0x32,
 212   DW_AT_address_class        = 0x33,
 213   DW_AT_artificial           = 0x34,
 214   DW_AT_base_types           = 0x35,
 215   DW_AT_calling_convention   = 0x36,
 216   DW_AT_count                = 0x37,
 217   DW_AT_data_member_location = 0x38,
 218   DW_AT_decl_column          = 0x39,
 219   DW_AT_decl_file            = 0x3a,
 220   DW_AT_decl_line            = 0x3b,
 221   DW_AT_declaration          = 0x3c,
 222   DW_AT_discr_list           = 0x3d,
 223   DW_AT_encoding             = 0x3e,
 224   DW_AT_external             = 0x3f,
 225   DW_AT_frame_base           = 0x40,
 226   DW_AT_friend               = 0x41,
 227   DW_AT_identifier_case      = 0x42,
 228   DW_AT_macro_info           = 0x43,
 229   DW_AT_namelist_items       = 0x44,
 230   DW_AT_priority             = 0x45,
 231   DW_AT_segment              = 0x46,
 232   DW_AT_specification        = 0x47,
 233   DW_AT_static_link          = 0x48,
 234   DW_AT_type                 = 0x49,
 235   DW_AT_use_location         = 0x4a,
 236   DW_AT_variable_parameter   = 0x4b,
 237   DW_AT_virtuality           = 0x4c,
 238   DW_AT_vtable_elem_location = 0x4d,
 239
 240   DW_AT_ranges               = 0x55,
 241   /* extensions */
 242   DW_AT_MIPS_fde                     = 0x2001,
 243   DW_AT_MIPS_loop_begin              = 0x2002,
 244   DW_AT_MIPS_tail_loop_begin         = 0x2003,
 245   DW_AT_MIPS_epilog_begin            = 0x2004,
 246   DW_AT_MIPS_loop_unroll_factor      = 0x2005,
 247   DW_AT_MIPS_software_pipeline_depth = 0x2006,
 248   DW_AT_MIPS_linkage_name            = 0x2007,
 249   DW_AT_MIPS_stride                  = 0x2008,
 250   DW_AT_MIPS_abstract_name           = 0x2009,
 251   DW_AT_MIPS_clone_origin            = 0x200a,
 252   DW_AT_MIPS_has_inlines             = 0x200b,
 253   DW_AT_sf_names                     = 0x2101,
 254   DW_AT_src_info                     = 0x2102,
 255   DW_AT_mac_info                     = 0x2103,
 256   DW_AT_src_coords                   = 0x2104,
 257   DW_AT_body_begin                   = 0x2105,
 258   DW_AT_body_end                     = 0x2106
 259 } dwarf_attribute_t;
 260
 261 typedef enum dwarf_form_e {
 262   DW_FORM_addr      = 0x01,
 263   DW_FORM_block2    = 0x03,
 264   DW_FORM_block4    = 0x04,
 265   DW_FORM_data2     = 0x05,
 266   DW_FORM_data4     = 0x06,
 267   DW_FORM_data8     = 0x07,
 268   DW_FORM_string    = 0x08,
 269   DW_FORM_block     = 0x09,
 270   DW_FORM_block1    = 0x0a,
 271   DW_FORM_data1     = 0x0b,
 272   DW_FORM_flag      = 0x0c,
 273   DW_FORM_sdata     = 0x0d,
 274   DW_FORM_strp      = 0x0e,
 275   DW_FORM_udata     = 0x0f,
 276   DW_FORM_ref_addr  = 0x10,
 277   DW_FORM_ref1      = 0x11,
 278   DW_FORM_ref2      = 0x12,
 279   DW_FORM_ref4      = 0x13,
 280   DW_FORM_ref8      = 0x14,
 281   DW_FORM_ref_udata = 0x15,
 282   DW_FORM_indirect  = 0x16
 283 } dwarf_form_t;
 284
 285 /** type encoding */
 286 typedef enum dwarf_type_e {
 287   DW_ATE_void          = 0x0,
 288   DW_ATE_address       = 0x1,
 289   DW_ATE_boolean       = 0x2,
 290   DW_ATE_complex_float = 0x3,
 291   DW_ATE_float         = 0x4,
 292   DW_ATE_signed        = 0x5,
 293   DW_ATE_signed_char   = 0x6,
 294   DW_ATE_unsigned      = 0x7,
 295   DW_ATE_unsigned_char = 0x8
 296 } dwarf_type_t;
 297
 298 typedef enum dwarf_operation_e {
 299   DW_OP_addr = 0x03,
 300   DW_OP_deref = 0x06,
 301   DW_OP_const1u = 0x08,
 302   DW_OP_const1s = 0x09,
 303   DW_OP_const2u = 0x0a,
 304   DW_OP_const2s = 0x0b,
 305   DW_OP_const4u = 0x0c,
 306   DW_OP_const4s = 0x0d,
 307   DW_OP_const8u = 0x0e,
 308   DW_OP_const8s = 0x0f,
 309   DW_OP_constu = 0x10,
 310   DW_OP_consts = 0x11,
 311   DW_OP_dup = 0x12,
 312   DW_OP_drop = 0x13,
 313   DW_OP_over = 0x14,
 314   DW_OP_pick = 0x15,
 315   DW_OP_swap = 0x16,
 316   DW_OP_rot = 0x17,
 317   DW_OP_xderef = 0x18,
 318   DW_OP_abs = 0x19,
 319   DW_OP_and = 0x1a,
 320   DW_OP_div = 0x1b,
 321   DW_OP_minus = 0x1c,
 322   DW_OP_mod = 0x1d,
 323   DW_OP_mul = 0x1e,
 324   DW_OP_neg = 0x1f,
 325   DW_OP_not = 0x20,
 326   DW_OP_or = 0x21,
 327   DW_OP_plus = 0x22,
 328   DW_OP_plus_uconst = 0x23,
 329   DW_OP_shl = 0x24,
 330   DW_OP_shr = 0x25,
 331   DW_OP_shra = 0x26,
 332   DW_OP_xor = 0x27,
 333   DW_OP_bra = 0x28,
 334   DW_OP_eq = 0x29,
 335   DW_OP_ge = 0x2a,
 336   DW_OP_gt = 0x2b,
 337   DW_OP_le = 0x2c,
 338   DW_OP_lt = 0x2d,
 339   DW_OP_ne = 0x2e,
 340   DW_OP_skip = 0x2f,
 341   DW_OP_lit0 = 0x30,
 342   DW_OP_lit1 = 0x31,
 343   DW_OP_lit2 = 0x32,
 344   DW_OP_lit3 = 0x33,
 345   DW_OP_lit4 = 0x34,
 346   DW_OP_lit5 = 0x35,
 347   DW_OP_lit6 = 0x36,
 348   DW_OP_lit7 = 0x37,
 349   DW_OP_lit8 = 0x38,
 350   DW_OP_lit9 = 0x39,
 351   DW_OP_lit10 = 0x3a,
 352   DW_OP_lit11 = 0x3b,
 353   DW_OP_lit12 = 0x3c,
 354   DW_OP_lit13 = 0x3d,
 355   DW_OP_lit14 = 0x3e,
 356   DW_OP_lit15 = 0x3f,
 357   DW_OP_lit16 = 0x40,
 358   DW_OP_lit17 = 0x41,
 359   DW_OP_lit18 = 0x42,
 360   DW_OP_lit19 = 0x43,
 361   DW_OP_lit20 = 0x44,
 362   DW_OP_lit21 = 0x45,
 363   DW_OP_lit22 = 0x46,
 364   DW_OP_lit23 = 0x47,
 365   DW_OP_lit24 = 0x48,
 366   DW_OP_lit25 = 0x49,
 367   DW_OP_lit26 = 0x4a,
 368   DW_OP_lit27 = 0x4b,
 369   DW_OP_lit28 = 0x4c,
 370   DW_OP_lit29 = 0x4d,
 371   DW_OP_lit30 = 0x4e,
 372   DW_OP_lit31 = 0x4f,
 373   DW_OP_reg0 = 0x50,
 374   DW_OP_reg1 = 0x51,
 375   DW_OP_reg2 = 0x52,
 376   DW_OP_reg3 = 0x53,
 377   DW_OP_reg4 = 0x54,
 378   DW_OP_reg5 = 0x55,
 379   DW_OP_reg6 = 0x56,
 380   DW_OP_reg7 = 0x57,
 381   DW_OP_reg8 = 0x58,
 382   DW_OP_reg9 = 0x59,
 383   DW_OP_reg10 = 0x5a,
 384   DW_OP_reg11 = 0x5b,
 385   DW_OP_reg12 = 0x5c,
 386   DW_OP_reg13 = 0x5d,
 387   DW_OP_reg14 = 0x5e,
 388   DW_OP_reg15 = 0x5f,
 389   DW_OP_reg16 = 0x60,
 390   DW_OP_reg17 = 0x61,
 391   DW_OP_reg18 = 0x62,
 392   DW_OP_reg19 = 0x63,
 393   DW_OP_reg20 = 0x64,
 394   DW_OP_reg21 = 0x65,
 395   DW_OP_reg22 = 0x66,
 396   DW_OP_reg23 = 0x67,
 397   DW_OP_reg24 = 0x68,
 398   DW_OP_reg25 = 0x69,
 399   DW_OP_reg26 = 0x6a,
 400   DW_OP_reg27 = 0x6b,
 401   DW_OP_reg28 = 0x6c,
 402   DW_OP_reg29 = 0x6d,
 403   DW_OP_reg30 = 0x6e,
 404   DW_OP_reg31 = 0x6f,
 405   DW_OP_breg0 = 0x70,
 406   DW_OP_breg1 = 0x71,
 407   DW_OP_breg2 = 0x72,
 408   DW_OP_breg3 = 0x73,
 409   DW_OP_breg4 = 0x74,
 410   DW_OP_breg5 = 0x75,
 411   DW_OP_breg6 = 0x76,
 412   DW_OP_breg7 = 0x77,
 413   DW_OP_breg8 = 0x78,
 414   DW_OP_breg9 = 0x79,
 415   DW_OP_breg10 = 0x7a,
 416   DW_OP_breg11 = 0x7b,
 417   DW_OP_breg12 = 0x7c,
 418   DW_OP_breg13 = 0x7d,
 419   DW_OP_breg14 = 0x7e,
 420   DW_OP_breg15 = 0x7f,
 421   DW_OP_breg16 = 0x80,
 422   DW_OP_breg17 = 0x81,
 423   DW_OP_breg18 = 0x82,
 424   DW_OP_breg19 = 0x83,
 425   DW_OP_breg20 = 0x84,
 426   DW_OP_breg21 = 0x85,
 427   DW_OP_breg22 = 0x86,
 428   DW_OP_breg23 = 0x87,
 429   DW_OP_breg24 = 0x88,
 430   DW_OP_breg25 = 0x89,
 431   DW_OP_breg26 = 0x8a,
 432   DW_OP_breg27 = 0x8b,
 433   DW_OP_breg28 = 0x8c,
 434   DW_OP_breg29 = 0x8d,
 435   DW_OP_breg30 = 0x8e,
 436   DW_OP_breg31 = 0x8f,
 437   DW_OP_regx = 0x90,
 438   DW_OP_fbreg = 0x91,
 439   DW_OP_bregx = 0x92,
 440   DW_OP_piece = 0x93,
 441   DW_OP_deref_size = 0x94,
 442   DW_OP_xderef_size = 0x95,
 443   DW_OP_nop = 0x96
 444 } dwarf_operation_t;
 445
 446 /**
 447  * Parsers
 448  */
 449
 450 typedef struct dwarf2_abbrev_entry_attr_s {
 451   unsigned long attribute;
 452   unsigned long form;
 453   struct dwarf2_abbrev_entry_attr_s* next;
 454 } dwarf2_abbrev_entry_attr_t;
 455
 456 typedef struct dwarf2_abbrev_entry_s {
 457   unsigned long entry_code;
 458   unsigned long tag;
 459   unsigned char have_child;
 460   dwarf2_abbrev_entry_attr_t* attrs;
 461   struct dwarf2_abbrev_entry_s* next;
 462 } dwarf2_abbrev_entry_t;
 463
 464 typedef struct dwarf2_abbrev_table_s {
 465   dwarf2_abbrev_entry_t* first;
 466   unsigned n_entries;
 467 } dwarf2_abbrev_table_t;
 468
 469 typedef struct dwarf2_parse_context_s {
 470   dwarf2_abbrev_table_t* abbrev_table;
 471   const unsigned char* data_stream;
 472   const unsigned char* data;
 473   const unsigned char* start_data;
 474   const unsigned char* end_data;
 475   const unsigned char* str_section;
 476   unsigned long offset;
 477   unsigned char word_size;
 478   unsigned char level;
 479 } dwarf2_parse_context_t;
 480
 481 static unsigned char dwarf2_parse_byte(dwarf2_parse_context_t* ctx)
 482 {
 483   unsigned char uvalue = *(const unsigned char*) ctx->data;
 484   ctx->data += 1;
 485   return uvalue;
 486 }
 487
 488 static unsigned short dwarf2_parse_u2(dwarf2_parse_context_t* ctx)
 489 {
 490   unsigned short uvalue = *(const unsigned short*) ctx->data;
 491   ctx->data += 2;
 492   return uvalue;
 493 }
 494
 495 static unsigned long dwarf2_parse_u4(dwarf2_parse_context_t* ctx)
 496 {
 497   unsigned long uvalue = *(const unsigned int*) ctx->data;
 498   ctx->data += 4;
 499   return uvalue;
 500 }
 501
 502 static unsigned long dwarf2_leb128_as_unsigned(dwarf2_parse_context_t* ctx)
 503 {
 504   unsigned long ret = 0;
 505   unsigned char byte;
 506   unsigned shift = 0;
 507
 508   assert( NULL != ctx );
 509
 510   while (1) {
 511     byte = dwarf2_parse_byte(ctx);
 512     ret |= (byte & 0x7f) << shift;
 513     shift += 7;
 514     if (0 == (byte & 0x80)) { break ; }
 515   }
 516
 517   return ret;
 518 }
 519
 520 static long dwarf2_leb128_as_signed(dwarf2_parse_context_t* ctx)
 521 {
 522   long ret = 0;
 523   unsigned char byte;
 524   unsigned shift = 0;
 525   const unsigned size = sizeof(int) * 8;
 526
 527   assert( NULL != ctx );
 528
 529   while (1) {
 530     byte = dwarf2_parse_byte(ctx);
 531     ret |= (byte & 0x7f) << shift;
 532     shift += 7;
 533     if (0 == (byte & 0x80)) { break ; }
 534   }
 535   /* as spec: sign bit of byte is 2nd high order bit (80x40)
 536    *  -> 0x80 is used as flag.
 537    */
 538   if ((shift < size) && (byte & 0x40)) {
 539     ret |= - (1 << shift);
 540   }
 541   return ret;
 542 }
 543
 544 static const char* dwarf2_debug_ctx(dwarf2_parse_context_t* ctx)
 545 {
 546   /*return wine_dbg_sprintf("ctx(0x%x,%u)", ctx->data - ctx->start_data, ctx->level); */
 547   return wine_dbg_sprintf("ctx(0x%x,%u)", ctx->data - ctx->data_stream, ctx->level);
 548 }
 549 static const char* dwarf2_debug_attr(dwarf2_abbrev_entry_attr_t* attr)
 550 {
 551   return wine_dbg_sprintf("attr(attr:0x%lx,form:0x%lx)", attr->attribute, attr->form);
 552 }
 553
 554 static void dwarf2_check_sibling(dwarf2_parse_context_t* ctx, unsigned long next_sibling)
 555 {
 556   if (0 < next_sibling && ctx->data != ctx->data_stream + next_sibling) {
 557     if ((ctx->data + 1) != ctx->data_stream + next_sibling) {
 558       /** padding check */
 559       WARN("cursor error for %s should be sibling<0x%lx>\n", dwarf2_debug_ctx(ctx), next_sibling);
 560     }
 561     ctx->data = ctx->data_stream + next_sibling;
 562   }
 563 }
 564
 565
 566 static dwarf2_abbrev_entry_attr_t* dwarf2_abbrev_entry_add_attr(dwarf2_abbrev_entry_t* abbrev_entry, unsigned long attribute, unsigned long form)
 567 {
 568   dwarf2_abbrev_entry_attr_t* ret = NULL;
 569   dwarf2_abbrev_entry_attr_t* it = NULL;
 570
 571   assert( NULL != abbrev_entry );
 572   ret = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(dwarf2_abbrev_entry_attr_t));
 573   assert( NULL != ret );
 574
 575   ret->attribute = attribute;
 576   ret->form      = form;
 577
 578   ret->next = NULL;
 579   if (NULL == abbrev_entry->attrs) {
 580     abbrev_entry->attrs = ret;
 581   } else {
 582     for (it = abbrev_entry->attrs; NULL != it->next; it = it->next) ;
 583     it->next = ret;
 584   }
 585   return ret;
 586 }
 587
 588 static dwarf2_abbrev_entry_t* dwarf2_abbrev_table_add_entry(dwarf2_abbrev_table_t* abbrev_table, unsigned long entry_code, unsigned long tag, unsigned char have_child)
 589 {
 590   dwarf2_abbrev_entry_t* ret = NULL;
 591
 592   assert( NULL != abbrev_table );
 593   ret = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(dwarf2_abbrev_entry_t));
 594   assert( NULL != ret );
 595
 596   TRACE("(table:%p,n_entries:%u) entry_code(%lu) tag(0x%lx) have_child(%u) -> %p\n", abbrev_table, abbrev_table->n_entries, entry_code, tag, have_child, ret);
 597
 598   ret->entry_code = entry_code;
 599   ret->tag        = tag;
 600   ret->have_child = have_child;
 601   ret->attrs      = NULL;
 602
 603   ret->next       = abbrev_table->first;
 604   abbrev_table->first = ret;
 605   abbrev_table->n_entries++;
 606   return ret;
 607 }
 608
 609 static dwarf2_abbrev_entry_t* dwarf2_abbrev_table_find_entry(dwarf2_abbrev_table_t* abbrev_table, unsigned long entry_code)
 610 {
 611   dwarf2_abbrev_entry_t* ret = NULL;
 612
 613   assert( NULL != abbrev_table );
 614   for (ret = abbrev_table->first; ret; ret = ret->next) {
 615     if (ret->entry_code == entry_code) { break ; }
 616   }
 617   return ret;
 618 }
 619
 620 static void dwarf2_abbrev_table_free(dwarf2_abbrev_table_t* abbrev_table)
 621 {
 622   dwarf2_abbrev_entry_t* entry = NULL;
 623   dwarf2_abbrev_entry_t* next_entry = NULL;
 624   assert( NULL != abbrev_table );
 625   for (entry = abbrev_table->first; NULL != entry; entry = next_entry) {
 626     dwarf2_abbrev_entry_attr_t* attr = NULL;
 627     dwarf2_abbrev_entry_attr_t* next_attr = NULL;
 628     for (attr = entry->attrs; NULL != attr; attr = next_attr) {
 629       next_attr = attr->next;
 630       HeapFree(GetProcessHeap(), 0, attr);
 631     }
 632     next_entry = entry->next;
 633     HeapFree(GetProcessHeap(), 0, entry);
 634   }
 635   abbrev_table->first = NULL;
 636   abbrev_table->n_entries = 0;
 637 }
 638
 639 static dwarf2_abbrev_table_t* dwarf2_parse_abbrev_set(dwarf2_parse_context_t* abbrev_ctx)
 640 {
 641   dwarf2_abbrev_table_t* abbrev_table = NULL;
 642
 643   TRACE("%s, end at %p\n", dwarf2_debug_ctx(abbrev_ctx), abbrev_ctx->end_data);
 644
 645   assert( NULL != abbrev_ctx );
 646   abbrev_table = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(dwarf2_abbrev_table_t));
 647   assert( NULL != abbrev_table );
 648
 649   while (abbrev_ctx->data < abbrev_ctx->end_data) {
 650     unsigned long entry_code;
 651     unsigned long tag;
 652     unsigned char have_child;
 653     dwarf2_abbrev_entry_t* abbrev_entry;
 654
 655     TRACE("now at %s\n", dwarf2_debug_ctx(abbrev_ctx));
 656     entry_code = dwarf2_leb128_as_unsigned(abbrev_ctx);
 657     TRACE("found entry_code %lu\n", entry_code);
 658     if (0 == entry_code) {
 659       TRACE("NULL entry code at %s\n", dwarf2_debug_ctx(abbrev_ctx));
 660       break ;
 661     }
 662     tag = dwarf2_leb128_as_unsigned(abbrev_ctx);
 663     have_child = dwarf2_parse_byte(abbrev_ctx);
 664
 665     abbrev_entry = dwarf2_abbrev_table_add_entry(abbrev_table, entry_code, tag, have_child);
 666     assert( NULL != abbrev_entry );
 667     while (1) {
 668       unsigned long attribute;
 669       unsigned long form;
 670       attribute = dwarf2_leb128_as_unsigned(abbrev_ctx);
 671       form = dwarf2_leb128_as_unsigned(abbrev_ctx);
 672       if (0 == attribute) break;
 673       dwarf2_abbrev_entry_add_attr(abbrev_entry, attribute, form);
 674     }
 675   }
 676
 677   TRACE("found %u entries\n", abbrev_table->n_entries);
 678   return abbrev_table;
 679 }
 680
 681 static const char* dwarf2_parse_attr_as_string(dwarf2_abbrev_entry_attr_t* attr,
 682                                                dwarf2_parse_context_t* ctx)
 683 {
 684   const char* ret = NULL;
 685   switch (attr->form) {
 686   case DW_FORM_string:
 687     ret = (const char*) ctx->data;
 688     ctx->data += strlen(ret) + 1;
 689     break;
 690   case DW_FORM_strp:
 691     {
 692       unsigned long offset = dwarf2_parse_u4(ctx);
 693       ret = (const char*) ctx->str_section + offset;
 694       /*FIXME("Unsupported indirect string format offset 0x%lx (in .debug_str)\n", offset);*/
 695     }
 696     break;
 697   default:
 698     ERR("Unsupported string format 0x%lx for attr 0x%lx\n", attr->form, attr->attribute);
 699   }
 700   return ret;
 701 }
 702
 703 static unsigned long dwarf2_parse_attr_as_addr(dwarf2_abbrev_entry_attr_t* attr,
 704                                                dwarf2_parse_context_t* ctx)
 705 {
 706   unsigned long offset = 0;
 707   switch (ctx->word_size) {
 708   case 4:
 709     offset = *(const unsigned int*) ctx->data;
 710     break;
 711   case 8:
 712   default:
 713     FIXME("Unsupported Word Size %u\n", ctx->word_size);
 714   }
 715   ctx->data += ctx->word_size;
 716   return offset;
 717 }
 718
 719 static unsigned long dwarf2_parse_attr_as_ref(dwarf2_abbrev_entry_attr_t* attr,
 720                                               dwarf2_parse_context_t* ctx)
 721 {
 722   unsigned long uvalue = 0;
 723   switch (attr->form) {
 724   case DW_FORM_ref1:
 725     uvalue = ctx->offset + dwarf2_parse_byte(ctx);
 726     TRACE("ref1<0x%lx>\n", uvalue);
 727     break;
 728
 729   case DW_FORM_ref2:
 730     uvalue = ctx->offset + dwarf2_parse_u2(ctx);
 731     TRACE("ref2<0x%lx>\n", uvalue);
 732     break;
 733
 734   case DW_FORM_ref4:
 735     uvalue = ctx->offset + dwarf2_parse_u4(ctx);
 736     TRACE("ref4<0x%lx>\n", uvalue);
 737     break;
 738
 739   case DW_FORM_ref8:
 740     /* FIXME: 64bits support */
 741     /*
 742     uvalue = ctx->offset + dwarf2_parse_u8(ctx);
 743     TRACE("ref8<0x%lx>\n", uvalue);
 744     */
 745     ctx->data += 8;
 746     break;
 747   }
 748   return uvalue;
 749 }
 750
 751
 752 static unsigned long dwarf2_parse_attr_as_data(dwarf2_abbrev_entry_attr_t* attr,
 753                                                dwarf2_parse_context_t* ctx)
 754 {
 755   unsigned long uvalue = 0;
 756   switch (attr->form) {
 757   case DW_FORM_data1:
 758     uvalue = dwarf2_parse_byte(ctx);
 759     TRACE("data1<%lu>\n", uvalue);
 760     break;
 761
 762   case DW_FORM_data2:
 763     uvalue = dwarf2_parse_u2(ctx);
 764     TRACE("data2<%lu>\n", uvalue);
 765     break;
 766
 767   case DW_FORM_data4:
 768     uvalue = dwarf2_parse_u4(ctx);
 769     TRACE("data4<%lu>\n", uvalue);
 770     break;
 771
 772   case DW_FORM_data8:
 773     FIXME("Unsupported 64bits support\n");
 774     ctx->data += 8;
 775     break;
 776   }
 777   return uvalue;
 778 }
 779
 780 static void dwarf2_parse_attr(dwarf2_abbrev_entry_attr_t* attr,
 781                               dwarf2_parse_context_t* ctx)
 782 {
 783   const unsigned long attribute = attr->attribute;
 784   const unsigned long form = attr->form;
 785   unsigned long uvalue = 0;
 786   long svalue = 0;
 787   const char* str = NULL;
 788
 789   TRACE("(attr:0x%lx,form:0x%lx)\n", attribute, form);
 790
 791   switch (form) {
 792   case DW_FORM_ref_addr:
 793   case DW_FORM_addr:
 794     uvalue = dwarf2_parse_attr_as_addr(attr, ctx);
 795     break;
 796
 797   case DW_FORM_flag:
 798     uvalue = dwarf2_parse_byte(ctx);
 799     TRACE("flag<0x%lx>\n", uvalue);
 800     break;
 801
 802   case DW_FORM_data1:
 803     uvalue = dwarf2_parse_byte(ctx);
 804     TRACE("data1<%lu>\n", uvalue);
 805     break;
 806
 807   case DW_FORM_data2:
 808     uvalue = dwarf2_parse_u2(ctx);
 809     TRACE("data2<%lu>\n", uvalue);
 810     break;
 811
 812   case DW_FORM_data4:
 813     uvalue = dwarf2_parse_u4(ctx);
 814     TRACE("data4<%lu>\n", uvalue);
 815     break;
 816
 817   case DW_FORM_ref1:
 818   case DW_FORM_ref2:
 819   case DW_FORM_ref4:
 820   case DW_FORM_ref8:
 821     uvalue = dwarf2_parse_attr_as_ref(attr, ctx);
 822     /*TRACE("ref<0x%lx>\n", ctx->offset + uvalue);*/
 823     break;
 824
 825   case DW_FORM_data8:
 826     FIXME("Unsupported 64bits support\n");
 827     ctx->data += 8;
 828     break;
 829
 830   case DW_FORM_sdata:
 831     svalue = dwarf2_leb128_as_signed(ctx);
 832     break;
 833
 834   case DW_FORM_ref_udata:
 835   case DW_FORM_udata:
 836     uvalue = dwarf2_leb128_as_unsigned(ctx);
 837     break;
 838
 839   case DW_FORM_string:
 840   case DW_FORM_strp:
 841     str = dwarf2_parse_attr_as_string(attr, ctx);
 842     TRACE("string<%s>\n", str);
 843     break;
 844
 845   case DW_FORM_block:
 846     uvalue = dwarf2_leb128_as_unsigned(ctx);
 847     ctx->data += uvalue;
 848     break;
 849
 850   case DW_FORM_block1:
 851     uvalue = dwarf2_parse_byte(ctx);
 852     ctx->data += uvalue;
 853     break;
 854
 855   case DW_FORM_block2:
 856     uvalue = dwarf2_parse_u2(ctx);
 857     ctx->data += uvalue;
 858     break;
 859
 860   case DW_FORM_block4:
 861     uvalue = dwarf2_parse_u4(ctx);
 862     ctx->data += uvalue;
 863     break;
 864
 865   default:
 866     break;
 867   }
 868 }
 869
 870 static struct symt* dwarf2_find_symt_by_ref(struct module* module, unsigned long ref)
 871 {
 872   TRACE("want ref<0x%lx>\n", ref);
 873   return NULL;
 874 }
 875
 876 static struct symt* dwarf2_add_symt_ref(struct module* module, unsigned long ref, struct symt* symt)
 877 {
 878   if (NULL != symt) return NULL;
 879   return NULL;
 880 }
 881
 882 static struct symt_basic* dwarf2_parse_base_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
 883 {
 884   struct symt_basic* symt = NULL;
 885   const char* name = NULL;
 886   unsigned size = 0;
 887   unsigned encoding = 0;
 888   enum BasicType bt;
 889   dwarf2_abbrev_entry_attr_t* attr = NULL;
 890
 891   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
 892
 893   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
 894     switch (attr->attribute) {
 895     case DW_AT_name:
 896       name = dwarf2_parse_attr_as_string(attr, ctx);
 897       TRACE("found name %s\n", name);
 898       break;
 899     case DW_AT_byte_size:
 900       size = dwarf2_parse_byte(ctx);
 901       break;
 902     case DW_AT_encoding:
 903       encoding = dwarf2_parse_byte(ctx);
 904       break;
 905     default:
 906       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
 907       dwarf2_parse_attr(attr, ctx);
 908     }
 909   }
 910   switch (encoding) {
 911   case DW_ATE_void: bt = btVoid; break;
 912   case DW_ATE_address: bt = btULong; break;
 913   case DW_ATE_boolean: bt = btBool; break;
 914   case DW_ATE_complex_float: bt = btComplex; break;
 915   case DW_ATE_float: bt = btFloat; break;
 916   case DW_ATE_signed: bt = btInt; break;
 917   case DW_ATE_unsigned: bt = btUInt; break;
 918   case DW_ATE_signed_char: bt = btChar; break;
 919   case DW_ATE_unsigned_char: bt = btChar; break;
 920   default:
 921     bt = btNoType;
 922   }
 923   /*TRACE("symt_new_basic(%p, %u, %s, %u)", module, bt, name, size);*/
 924   symt = symt_new_basic(module, bt, name, size);
 925
 926   if (entry->have_child) {
 927     FIXME("Unsupported children\n");
 928   }
 929   return symt;
 930 }
 931
 932 static struct symt_typedef* dwarf2_parse_typedef(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
 933 {
 934   struct symt_typedef* symt = NULL;
 935   struct symt* ref_type = NULL;
 936   const char* name = NULL;
 937   dwarf2_abbrev_entry_attr_t* attr = NULL;
 938
 939   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
 940
 941   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
 942     switch (attr->attribute) {
 943     case DW_AT_name:
 944       name = dwarf2_parse_attr_as_string(attr, ctx);
 945       TRACE("found name %s\n", name);
 946       break;
 947     case DW_AT_type:
 948       {
 949         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
 950         ref_type = dwarf2_find_symt_by_ref(module, ref);
 951       }
 952       break;
 953     case DW_AT_decl_file:
 954     case DW_AT_decl_line:
 955       dwarf2_parse_attr(attr, ctx);
 956       break;
 957     default:
 958       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
 959       dwarf2_parse_attr(attr, ctx);
 960     }
 961   }
 962   if (NULL != name) {
 963     symt = symt_new_typedef(module, ref_type, name);
 964   }
 965
 966   if (entry->have_child) {
 967     FIXME("Unsupported children\n");
 968   }
 969   return symt;
 970 }
 971
 972 static struct symt_pointer* dwarf2_parse_pointer_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
 973 {
 974   struct symt_pointer* symt = NULL;
 975   struct symt* ref_type = NULL;
 976   unsigned size = 0;
 977   dwarf2_abbrev_entry_attr_t* attr = NULL;
 978
 979   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
 980
 981   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
 982     switch (attr->attribute) {
 983     case DW_AT_byte_size:
 984       size = dwarf2_parse_byte(ctx);
 985       break;
 986     case DW_AT_type:
 987       {
 988         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
 989         ref_type = dwarf2_find_symt_by_ref(module, ref);
 990       }
 991       break;
 992     default:
 993       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
 994       dwarf2_parse_attr(attr, ctx);
 995     }
 996   }
 997   symt = symt_new_pointer(module, ref_type);
 998
 999   if (entry->have_child) {
1000     FIXME("Unsupported children\n");
1001   }
1002   return symt;
1003 }
1004
1005 static void dwarf2_parse_array_subrange_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx, struct symt_array* parent)
1006 {
1007   unsigned min = 0;
1008   unsigned max = 0;
1009   struct symt* idx_type = NULL;
1010   dwarf2_abbrev_entry_attr_t* attr = NULL;
1011
1012   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1013
1014   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1015     switch (attr->attribute) {
1016     case DW_AT_type:
1017       {
1018         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1019         idx_type = dwarf2_find_symt_by_ref(module, ref);
1020         /** check if idx_type is a basic_type integer */
1021       }
1022       break;
1023     case DW_AT_lower_bound:
1024       TRACE("%s %s, lower_bound\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1025       min = dwarf2_parse_attr_as_data(attr, ctx);
1026       break;
1027     case DW_AT_upper_bound:
1028       TRACE("%s %s, upper_bound\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1029       max = dwarf2_parse_attr_as_data(attr, ctx);
1030       break;
1031     case DW_AT_count:
1032       TRACE("%s %s, count min:%u\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr), min);
1033       max = min + dwarf2_parse_attr_as_data(attr, ctx);
1034       break;
1035     default:
1036       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1037       dwarf2_parse_attr(attr, ctx);
1038     }
1039   }
1040   parent->start = min;
1041   parent->end = max;
1042
1043   TRACE("found min:%u max:%u\n", min, max);
1044
1045   if (entry->have_child) {
1046     FIXME("Unsupported children\n");
1047   }
1048 }
1049
1050
1051 static struct symt_array* dwarf2_parse_array_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1052 {
1053   struct symt_array* symt = NULL;
1054   struct symt* ref_type = NULL;
1055   unsigned min = 0;
1056   unsigned max = 0;
1057   dwarf2_abbrev_entry_attr_t* attr = NULL;
1058   unsigned long next_sibling = 0;
1059
1060   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1061
1062   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1063     switch (attr->attribute) {
1064     case DW_AT_sibling:
1065       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1066       break;
1067     case DW_AT_type:
1068       {
1069         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1070         ref_type = dwarf2_find_symt_by_ref(module, ref);
1071       }
1072       break;
1073     default:
1074       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1075       dwarf2_parse_attr(attr, ctx);
1076     }
1077   }
1078
1079   symt = symt_new_array(module, min, max, ref_type);
1080
1081   if (entry->have_child) { /** any interest to not have child ? */
1082     ++ctx->level;
1083     while (ctx->data < ctx->end_data) {
1084       dwarf2_abbrev_entry_t* entry = NULL;
1085       unsigned long entry_code;
1086       unsigned long entry_ref = 0;
1087
1088       entry_ref = ctx->data - ctx->data_stream;
1089
1090       entry_code = dwarf2_leb128_as_unsigned(ctx);
1091       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1092       if (0 == entry_code) {
1093         break ;
1094       }
1095
1096       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1097       assert( NULL != entry );
1098
1099       switch (entry->tag) {
1100       case DW_TAG_subrange_type:
1101         dwarf2_parse_array_subrange_type(module, entry, ctx, symt);
1102         break;
1103       default:
1104         {
1105           dwarf2_abbrev_entry_attr_t* attr;
1106           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
1107           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1108             dwarf2_parse_attr(attr, ctx);
1109           }
1110         }
1111         break;
1112       }
1113     }
1114     --ctx->level;
1115   }
1116
1117   /** set correct data cursor */
1118   dwarf2_check_sibling(ctx, next_sibling);
1119
1120   return symt;
1121 }
1122
1123 static struct symt_typedef* dwarf2_parse_const_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1124 {
1125   struct symt_typedef* symt = NULL;
1126   struct symt* ref_type = NULL;
1127   dwarf2_abbrev_entry_attr_t* attr = NULL;
1128   unsigned long next_sibling = 0;
1129
1130   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1131
1132   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1133     switch (attr->attribute) {
1134     case DW_AT_type:
1135       {
1136         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1137         ref_type = dwarf2_find_symt_by_ref(module, ref);
1138       }
1139       break;
1140     default:
1141       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1142       dwarf2_parse_attr(attr, ctx);
1143     }
1144   }
1145   FIXME("need to generate a name\n");
1146   symt = symt_new_typedef(module, ref_type, "");
1147
1148   if (entry->have_child) {
1149     FIXME("Unsupported children\n");
1150   }
1151
1152   /** set correct data cursor */
1153   dwarf2_check_sibling(ctx, next_sibling);
1154
1155   return symt;
1156 }
1157
1158 static struct symt_typedef* dwarf2_parse_reference_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1159 {
1160   struct symt_typedef* symt = NULL;
1161   struct symt* ref_type = NULL;
1162   dwarf2_abbrev_entry_attr_t* attr = NULL;
1163   unsigned long next_sibling = 0;
1164
1165   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1166
1167   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1168     switch (attr->attribute) {
1169     case DW_AT_sibling:
1170       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1171       break;
1172     case DW_AT_type:
1173       {
1174         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1175         ref_type = dwarf2_find_symt_by_ref(module, ref);
1176       }
1177       break;
1178     default:
1179       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1180       dwarf2_parse_attr(attr, ctx);
1181     }
1182   }
1183   FIXME("need to generate a name\n");
1184   symt = symt_new_typedef(module, ref_type, "");
1185
1186   if (entry->have_child) {
1187     FIXME("Unsupported children\n");
1188   }
1189
1190   /** set correct data cursor */
1191   dwarf2_check_sibling(ctx, next_sibling);
1192
1193   return symt;
1194 }
1195
1196 static void dwarf2_parse_udt_member(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx, struct symt_udt* parent)
1197 {
1198   struct symt* elt_type = NULL;
1199   const char* name = NULL;
1200   unsigned long offset = 0;
1201   unsigned size = 0;
1202   dwarf2_abbrev_entry_attr_t* attr = NULL;
1203   unsigned long next_sibling = 0;
1204
1205   assert( NULL != parent );
1206
1207   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1208
1209   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1210     switch (attr->attribute) {
1211     case DW_AT_sibling:
1212       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1213       break;
1214     case DW_AT_name:
1215       name = dwarf2_parse_attr_as_string(attr, ctx);
1216       TRACE("found name %s\n", name);
1217       break;
1218     case DW_AT_type:
1219       {
1220         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1221         elt_type = dwarf2_find_symt_by_ref(module, ref);
1222       }
1223       break;
1224     case DW_AT_data_member_location:
1225       {
1226         unsigned long uvalue = 0;
1227         TRACE("found member_location at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1228         /*offset = dwarf2_parse_attr_as_data(attr, ctx);*/
1229         switch (attr->form) {
1230         case DW_FORM_block:
1231           uvalue = dwarf2_leb128_as_unsigned(ctx);
1232           break;
1233         case DW_FORM_block1:
1234           uvalue = dwarf2_parse_byte(ctx);
1235           break;
1236         case DW_FORM_block2:
1237           uvalue = dwarf2_parse_u2(ctx);
1238           break;
1239         case DW_FORM_block4:
1240           uvalue = dwarf2_parse_u4(ctx);
1241           break;
1242         default:
1243           TRACE("Unhandled attr form at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1244           dwarf2_parse_attr(attr, ctx);
1245         }
1246         if (uvalue) {
1247           unsigned char op = dwarf2_parse_byte(ctx);
1248           --uvalue;
1249           switch (op) {
1250           case DW_OP_plus_uconst:
1251             offset = dwarf2_leb128_as_unsigned(ctx);
1252             break;
1253           default:
1254             TRACE("Unhandled attr op at %s, for %s, op:%u\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr), op);
1255             ctx->data += uvalue;
1256           }
1257           TRACE("found offset:%lu\n", offset);
1258         }
1259       }
1260       break;
1261     case DW_AT_decl_file:
1262     case DW_AT_decl_line:
1263       dwarf2_parse_attr(attr, ctx);
1264       break;
1265     default:
1266       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1267       dwarf2_parse_attr(attr, ctx);
1268     }
1269   }
1270   symt_add_udt_element(module, parent, name, elt_type, offset, size);
1271
1272   if (entry->have_child) {
1273     FIXME("Unsupported children\n");
1274   }
1275
1276   /** set correct data cursor */
1277   dwarf2_check_sibling(ctx, next_sibling);
1278 }
1279
1280 static void dwarf2_parse_udt_members(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx, struct symt_udt* symt)
1281 {
1282   if (entry->have_child) { /** any interest to not have child ? */
1283     ++ctx->level;
1284     while (ctx->data < ctx->end_data) {
1285       dwarf2_abbrev_entry_t* entry = NULL;
1286       unsigned long entry_code;
1287       unsigned long entry_ref = 0;
1288
1289       entry_ref = ctx->data - ctx->data_stream;
1290
1291       entry_code = dwarf2_leb128_as_unsigned(ctx);
1292       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1293       if (0 == entry_code) {
1294         break ;
1295       }
1296
1297       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1298       assert( NULL != entry );
1299
1300       switch (entry->tag) {
1301       case DW_TAG_member:
1302         dwarf2_parse_udt_member(module, entry, ctx, symt);
1303         break;
1304       default:
1305         {
1306           dwarf2_abbrev_entry_attr_t* attr;
1307           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
1308           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1309             dwarf2_parse_attr(attr, ctx);
1310           }
1311         }
1312         break;
1313       }
1314     }
1315     --ctx->level;
1316   }
1317 }
1318
1319 static struct symt_udt* dwarf2_parse_class_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1320 {
1321   struct symt_udt* symt = NULL;
1322   const char* name = NULL;
1323   unsigned size = 0;
1324   dwarf2_abbrev_entry_attr_t* attr = NULL;
1325   unsigned long next_sibling = 0;
1326
1327   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1328
1329   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1330     switch (attr->attribute) {
1331     case DW_AT_sibling:
1332       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1333       break;
1334     case DW_AT_name:
1335       name = dwarf2_parse_attr_as_string(attr, ctx);
1336       TRACE("found name %s\n", name);
1337       break;
1338     case DW_AT_byte_size:
1339       size = dwarf2_parse_byte(ctx);
1340       break;
1341     case DW_AT_decl_file:
1342     case DW_AT_decl_line:
1343       dwarf2_parse_attr(attr, ctx);
1344       break;
1345     default:
1346       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1347       dwarf2_parse_attr(attr, ctx);
1348     }
1349   }
1350   symt = symt_new_udt(module, name, size, UdtClass);
1351   dwarf2_parse_udt_members(module, entry, ctx, symt);
1352
1353   /** set correct data cursor */
1354   dwarf2_check_sibling(ctx, next_sibling);
1355
1356   return symt;
1357 }
1358
1359 static struct symt_udt* dwarf2_parse_struct_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1360 {
1361   struct symt_udt* symt = NULL;
1362   const char* name = NULL;
1363   unsigned size = 0;
1364   dwarf2_abbrev_entry_attr_t* attr = NULL;
1365   unsigned long next_sibling = 0;
1366
1367   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1368
1369   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1370     switch (attr->attribute) {
1371     case DW_AT_sibling:
1372       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1373       break;
1374     case DW_AT_name:
1375       name = dwarf2_parse_attr_as_string(attr, ctx);
1376       TRACE("found name %s\n", name);
1377       break;
1378     case DW_AT_byte_size:
1379       size = dwarf2_parse_byte(ctx);
1380       break;
1381     case DW_AT_decl_file:
1382     case DW_AT_decl_line:
1383       dwarf2_parse_attr(attr, ctx);
1384       break;
1385     default:
1386       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1387       dwarf2_parse_attr(attr, ctx);
1388     }
1389   }
1390   symt = symt_new_udt(module, name, size, UdtStruct);
1391   dwarf2_parse_udt_members(module, entry, ctx, symt);
1392
1393   /** set correct data cursor */
1394   dwarf2_check_sibling(ctx, next_sibling);
1395
1396   return symt;
1397 }
1398
1399 static struct symt_udt* dwarf2_parse_union_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1400 {
1401   struct symt_udt* symt = NULL;
1402   const char* name = NULL;
1403   unsigned size = 0;
1404   dwarf2_abbrev_entry_attr_t* attr = NULL;
1405   unsigned long next_sibling = 0;
1406
1407   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1408
1409   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1410     switch (attr->attribute) {
1411     case DW_AT_sibling:
1412       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1413       break;
1414     case DW_AT_name:
1415       name = dwarf2_parse_attr_as_string(attr, ctx);
1416       TRACE("found name %s\n", name);
1417       break;
1418     case DW_AT_byte_size:
1419       size = dwarf2_parse_byte(ctx);
1420       break;
1421     case DW_AT_decl_file:
1422     case DW_AT_decl_line:
1423       dwarf2_parse_attr(attr, ctx);
1424       break;
1425     default:
1426       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1427       dwarf2_parse_attr(attr, ctx);
1428     }
1429   }
1430   symt = symt_new_udt(module, name, size, UdtUnion);
1431   dwarf2_parse_udt_members(module, entry, ctx, symt);
1432
1433   /** set correct data cursor */
1434   dwarf2_check_sibling(ctx, next_sibling);
1435
1436   return symt;
1437 }
1438
1439 static void dwarf2_parse_enumerator(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx, struct symt_enum* parent)
1440 {
1441   const char* name = NULL;
1442   long value = 0;
1443   dwarf2_abbrev_entry_attr_t* attr = NULL;
1444
1445   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1446
1447   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1448     switch (attr->attribute) {
1449     case DW_AT_name:
1450       name = dwarf2_parse_attr_as_string(attr, ctx);
1451       TRACE("found name %s\n", name);
1452       break;
1453     case DW_AT_const_value:
1454       switch (attr->form) {
1455       case DW_FORM_sdata:
1456         value = dwarf2_leb128_as_signed(ctx);
1457         TRACE("found value %ld\n", value);
1458         break;
1459       case DW_FORM_udata:
1460         value = dwarf2_leb128_as_unsigned(ctx);
1461         TRACE("found value %ld\n", value);
1462         break;
1463       default:
1464         TRACE("Unhandled attr form at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1465         dwarf2_parse_attr(attr, ctx);
1466       }
1467       break;
1468     default:
1469       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1470       dwarf2_parse_attr(attr, ctx);
1471     }
1472   }
1473   symt_add_enum_element(module, parent, name, value);
1474
1475   if (entry->have_child) {
1476     FIXME("Unsupported children\n");
1477   }
1478 }
1479
1480 static struct symt_enum* dwarf2_parse_enumeration_type(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1481 {
1482   struct symt_enum* symt = NULL;
1483   const char* name = NULL;
1484   unsigned long size = 0;
1485   dwarf2_abbrev_entry_attr_t* attr = NULL;
1486   unsigned long next_sibling = 0;
1487
1488   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1489
1490   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1491     switch (attr->attribute) {
1492     case DW_AT_sibling:
1493       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1494       break;
1495     case DW_AT_name:
1496       name = dwarf2_parse_attr_as_string(attr, ctx);
1497       TRACE("found name %s\n", name);
1498       break;
1499     case DW_AT_byte_size:
1500       size = dwarf2_parse_attr_as_data(attr, ctx);
1501       break;
1502     case DW_AT_decl_file:
1503     case DW_AT_decl_line:
1504       dwarf2_parse_attr(attr, ctx);
1505       break;
1506     default:
1507       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1508       dwarf2_parse_attr(attr, ctx);
1509     }
1510   }
1511   symt = symt_new_enum(module, name);
1512
1513   if (entry->have_child) { /** any interest to not have child ? */
1514     ++ctx->level;
1515     while (ctx->data < ctx->end_data) {
1516       dwarf2_abbrev_entry_t* entry = NULL;
1517       unsigned long entry_code;
1518       unsigned long entry_ref = 0;
1519
1520       entry_ref = ctx->data - ctx->data_stream;
1521
1522       entry_code = dwarf2_leb128_as_unsigned(ctx);
1523       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1524       if (0 == entry_code) {
1525         break ;
1526       }
1527
1528       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1529       assert( NULL != entry );
1530
1531       switch (entry->tag) {
1532       case DW_TAG_enumerator:
1533         dwarf2_parse_enumerator(module, entry, ctx, symt);
1534         break;
1535       default:
1536         {
1537           dwarf2_abbrev_entry_attr_t* attr;
1538           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
1539           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1540             dwarf2_parse_attr(attr, ctx);
1541           }
1542         }
1543         break;
1544       }
1545     }
1546     --ctx->level;
1547   }
1548
1549   /** set correct data cursor */
1550   dwarf2_check_sibling(ctx, next_sibling);
1551
1552   return symt;
1553 }
1554
1555 static void dwarf2_parse_variable(struct module* module,
1556                                   dwarf2_abbrev_entry_t* entry,
1557                                   dwarf2_parse_context_t* ctx)
1558 {
1559   struct symt* var_type = NULL;
1560   dwarf2_abbrev_entry_attr_t* attr = NULL;
1561   const char* name = NULL;
1562   unsigned long next_sibling = 0;
1563
1564   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1565
1566   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1567     switch (attr->attribute) {
1568     case DW_AT_sibling:
1569       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1570       break;
1571     case DW_AT_type:
1572       {
1573         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1574         var_type = dwarf2_find_symt_by_ref(module, ref);
1575       }
1576       break;
1577     case DW_AT_name:
1578       name = dwarf2_parse_attr_as_string(attr, ctx);
1579       TRACE("found name %s\n", name);
1580       break;
1581     case DW_AT_decl_file:
1582     case DW_AT_decl_line:
1583       dwarf2_parse_attr(attr, ctx);
1584       break;
1585     default:
1586       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1587       dwarf2_parse_attr(attr, ctx);
1588     }
1589   }
1590
1591   if (entry->have_child) {
1592     FIXME("Unsupported children\n");
1593   }
1594
1595   /** set correct data cursor */
1596   dwarf2_check_sibling(ctx, next_sibling);
1597 }
1598
1599 static void dwarf2_parse_subprogram_parameter(struct module* module,
1600                                               dwarf2_abbrev_entry_t* entry,
1601                                               dwarf2_parse_context_t* ctx,
1602                                               struct symt_function_signature* sig_type,
1603                                               struct symt_function* func_type)
1604 {
1605   struct symt* param_type = NULL;
1606   const char* name = NULL;
1607   dwarf2_abbrev_entry_attr_t* attr = NULL;
1608   unsigned long next_sibling = 0;
1609
1610   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1611
1612   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1613     switch (attr->attribute) {
1614     case DW_AT_sibling:
1615       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1616       break;
1617     case DW_AT_type:
1618       {
1619         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1620         param_type = dwarf2_find_symt_by_ref(module, ref);
1621       }
1622       break;
1623     case DW_AT_name:
1624       name = dwarf2_parse_attr_as_string(attr, ctx);
1625       TRACE("found name %s\n", name);
1626       break;
1627     case DW_AT_decl_file:
1628     case DW_AT_decl_line:
1629       dwarf2_parse_attr(attr, ctx);
1630       break;
1631     case DW_AT_location:
1632       dwarf2_parse_attr(attr, ctx);
1633       break;
1634     default:
1635       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1636       dwarf2_parse_attr(attr, ctx);
1637     }
1638   }
1639   if (NULL != sig_type) {
1640     symt_add_function_signature_parameter(module, sig_type, param_type);
1641   }
1642
1643   if (entry->have_child) {
1644     FIXME("Unsupported children\n");
1645   }
1646
1647   /** set correct data cursor */
1648   dwarf2_check_sibling(ctx, next_sibling);
1649 }
1650
1651 static void dwarf2_parse_inlined_subroutine(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
1652 {
1653   const char* name = NULL;
1654   unsigned long addr = 0;
1655   unsigned long low_pc = 0;
1656   unsigned long high_pc = 0;
1657   unsigned size = 0;
1658   dwarf2_abbrev_entry_attr_t* attr = NULL;
1659   unsigned long next_sibling = 0;
1660
1661   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1662
1663   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1664     switch (attr->attribute) {
1665     case DW_AT_sibling:
1666       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1667       break;
1668     case DW_AT_low_pc:
1669       low_pc = dwarf2_parse_attr_as_addr(attr, ctx);
1670       addr = module->module.BaseOfImage + low_pc;
1671       break;
1672     case DW_AT_high_pc:
1673       high_pc = dwarf2_parse_attr_as_addr(attr, ctx);
1674       size = high_pc - low_pc;
1675       break;
1676     case DW_AT_name:
1677       name = dwarf2_parse_attr_as_string(attr, ctx);
1678       TRACE("found name %s\n", name);
1679       break;
1680     case DW_AT_decl_file:
1681     case DW_AT_decl_line:
1682       dwarf2_parse_attr(attr, ctx);
1683       break;
1684     default:
1685       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1686       dwarf2_parse_attr(attr, ctx);
1687     }
1688   }
1689
1690   if (entry->have_child) { /** any interest to not have child ? */
1691     ++ctx->level;
1692     while (ctx->data < ctx->end_data) {
1693       dwarf2_abbrev_entry_t* entry = NULL;
1694       unsigned long entry_code;
1695       unsigned long entry_ref = 0;
1696
1697       entry_ref = ctx->data - ctx->data_stream;
1698
1699       entry_code = dwarf2_leb128_as_unsigned(ctx);
1700       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1701       if (0 == entry_code) {
1702         break ;
1703       }
1704
1705       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1706       assert( NULL != entry );
1707
1708       switch (entry->tag) {
1709       case DW_TAG_formal_parameter:
1710         dwarf2_parse_subprogram_parameter(module, entry, ctx, NULL, NULL);
1711         break;
1712       case DW_TAG_variable:
1713         dwarf2_parse_variable(module, entry, ctx);
1714         break;
1715       case DW_TAG_label:
1716       default:
1717         {
1718           dwarf2_abbrev_entry_attr_t* attr;
1719           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
1720           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1721             dwarf2_parse_attr(attr, ctx);
1722           }
1723         }
1724         break;
1725       }
1726     }
1727     --ctx->level;
1728   }
1729
1730   /** set correct data cursor */
1731   dwarf2_check_sibling(ctx, next_sibling);
1732 }
1733
1734
1735 static void dwarf2_parse_subprogram_block(struct module* module,
1736                                           dwarf2_abbrev_entry_t* entry,
1737                                           dwarf2_parse_context_t* ctx,
1738                                           struct symt_function_signature* sig_type,
1739                                           struct symt_function* func_type)
1740 {
1741   dwarf2_abbrev_entry_attr_t* attr = NULL;
1742   const char* name = NULL;
1743   unsigned long next_sibling = 0;
1744
1745   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1746
1747   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1748     switch (attr->attribute) {
1749     case DW_AT_sibling:
1750       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1751       break;
1752     case DW_AT_name:
1753       name = dwarf2_parse_attr_as_string(attr, ctx);
1754       TRACE("found name %s\n", name);
1755       break;
1756     case DW_AT_decl_file:
1757     case DW_AT_decl_line:
1758       dwarf2_parse_attr(attr, ctx);
1759       break;
1760     case DW_AT_ranges: /** what to do ? */
1761       dwarf2_parse_attr(attr, ctx);
1762       break;
1763     default:
1764       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1765       dwarf2_parse_attr(attr, ctx);
1766     }
1767   }
1768
1769   if (entry->have_child) { /** any interest to not have child ? */
1770     ++ctx->level;
1771     while (ctx->data < ctx->end_data) {
1772       dwarf2_abbrev_entry_t* entry = NULL;
1773       unsigned long entry_code;
1774       unsigned long entry_ref = 0;
1775
1776       entry_ref = ctx->data - ctx->data_stream;
1777
1778       entry_code = dwarf2_leb128_as_unsigned(ctx);
1779       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1780       if (0 == entry_code) {
1781         break ;
1782       }
1783
1784       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1785       assert( NULL != entry );
1786
1787       switch (entry->tag) {
1788       case DW_TAG_inlined_subroutine:
1789         dwarf2_parse_inlined_subroutine(module, entry, ctx);
1790         break;
1791       case DW_TAG_variable:
1792         dwarf2_parse_variable(module, entry, ctx);
1793         break;
1794       case DW_TAG_label:
1795       default:
1796         {
1797           dwarf2_abbrev_entry_attr_t* attr;
1798           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
1799           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1800             dwarf2_parse_attr(attr, ctx);
1801           }
1802         }
1803         break;
1804       }
1805     }
1806     --ctx->level;
1807   }
1808
1809   /** set correct data cursor */
1810   dwarf2_check_sibling(ctx, next_sibling);
1811 }
1812
1813 static void dwarf2_parse_subprogram_content(struct module* module,
1814                                             dwarf2_abbrev_entry_t* entry,
1815                                             dwarf2_parse_context_t* ctx,
1816                                             struct symt_function_signature* sig_type,
1817                                             struct symt_function* func_type)
1818 {
1819   if (entry->have_child) { /** any interest to not have child ? */
1820     ++ctx->level;
1821     while (ctx->data < ctx->end_data) {
1822       dwarf2_abbrev_entry_t* entry = NULL;
1823       unsigned long entry_code;
1824       unsigned long entry_ref = 0;
1825
1826       entry_ref = ctx->data - ctx->data_stream;
1827
1828       entry_code = dwarf2_leb128_as_unsigned(ctx);
1829       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1830       if (0 == entry_code) {
1831         break ;
1832       }
1833
1834       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1835       assert( NULL != entry );
1836
1837       switch (entry->tag) {
1838       case DW_TAG_formal_parameter:
1839         dwarf2_parse_subprogram_parameter(module, entry, ctx, sig_type, func_type);
1840         break;
1841       case DW_TAG_lexical_block:
1842         dwarf2_parse_subprogram_block(module, entry, ctx, sig_type, func_type);
1843         break;
1844       case DW_TAG_variable:
1845         dwarf2_parse_variable(module, entry, ctx);
1846         break;
1847       case DW_TAG_label:
1848       default:
1849         {
1850           dwarf2_abbrev_entry_attr_t* attr;
1851           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
1852           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1853             dwarf2_parse_attr(attr, ctx);
1854           }
1855         }
1856         break;
1857       }
1858     }
1859     --ctx->level;
1860   }
1861 }
1862
1863 static struct symt_function* dwarf2_parse_subprogram(struct module* module, dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx, struct symt_compiland* compiland)
1864 {
1865   struct symt_function* func_type = NULL;
1866   const char* name = NULL;
1867   struct symt* ret_type = NULL;
1868   struct symt_function_signature* sig_type = NULL;
1869   unsigned long addr = 0;
1870   unsigned long low_pc = 0;
1871   unsigned long high_pc = 0;
1872   unsigned size = 0;
1873   unsigned char is_decl = 0;
1874   unsigned char inl_flags = 0;
1875   unsigned char decl_file = 0;
1876   unsigned char decl_line = 0;
1877   dwarf2_abbrev_entry_attr_t* attr = NULL;
1878   unsigned long next_sibling = 0;
1879
1880   TRACE("%s, for %lu\n", dwarf2_debug_ctx(ctx), entry->entry_code);
1881
1882   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
1883     switch (attr->attribute) {
1884     case DW_AT_sibling:
1885       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
1886       break;
1887     case DW_AT_low_pc:
1888       low_pc = dwarf2_parse_attr_as_addr(attr, ctx);
1889       addr = module->module.BaseOfImage + low_pc;
1890       break;
1891     case DW_AT_high_pc:
1892       high_pc = dwarf2_parse_attr_as_addr(attr, ctx);
1893       size = high_pc - low_pc;
1894       break;
1895     case DW_AT_name:
1896       name = dwarf2_parse_attr_as_string(attr, ctx);
1897       TRACE("found name %s\n", name);
1898       break;
1899     case DW_AT_type:
1900       {
1901         unsigned long ref = dwarf2_parse_attr_as_ref(attr, ctx);
1902         ret_type = dwarf2_find_symt_by_ref(module, ref);
1903       }
1904       break;
1905     case DW_AT_declaration:
1906       is_decl = dwarf2_parse_byte(ctx);
1907       break;
1908     case DW_AT_inline:
1909       inl_flags = dwarf2_parse_byte(ctx);
1910       break;
1911     /* not work yet, need parsing .debug_line and using Compil Unit stmt_list
1912     case DW_AT_decl_file:
1913       decl_file =  dwarf2_parse_byte(ctx);
1914       break;
1915     case DW_AT_decl_line:
1916       decl_line =  dwarf2_parse_byte(ctx);
1917       break;
1918     */
1919     default:
1920       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
1921       dwarf2_parse_attr(attr, ctx);
1922     }
1923   }
1924   sig_type = symt_new_function_signature(module, ret_type);
1925   if (!is_decl) {
1926     func_type = symt_new_function(module, compiland, name, addr, size, &sig_type->symt);
1927     if (low_pc && high_pc) {
1928       symt_add_function_point(module, func_type, SymTagFuncDebugStart, low_pc, NULL);
1929       symt_add_function_point(module, func_type, SymTagFuncDebugEnd, high_pc, NULL);
1930     }
1931     if (decl_file && decl_line) {
1932       symt_add_func_line(module, func_type, decl_file, decl_line, low_pc);
1933     }
1934   }
1935   dwarf2_parse_subprogram_content(module, entry, ctx, sig_type, func_type);
1936   symt_normalize_function(module, func_type);
1937
1938   /** set correct data cursor */
1939   dwarf2_check_sibling(ctx, next_sibling);
1940
1941   return func_type;
1942 }
1943
1944 static void dwarf2_parse_compiland_content(struct module* module, const dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx, struct symt_compiland* compiland)
1945 {
1946   if (entry->have_child) { /** any interest to not have child ? */
1947     ++ctx->level;
1948     while (ctx->data < ctx->end_data) {
1949       dwarf2_abbrev_entry_t* entry = NULL;
1950       unsigned long entry_code;
1951       unsigned long entry_ref = 0;
1952
1953       entry_ref = ctx->data - ctx->data_stream;
1954
1955       entry_code = dwarf2_leb128_as_unsigned(ctx);
1956       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
1957       if (0 == entry_code) {
1958         break ;
1959       }
1960
1961       entry = dwarf2_abbrev_table_find_entry(ctx->abbrev_table, entry_code);
1962       assert( NULL != entry );
1963
1964       switch (entry->tag) {
1965       case DW_TAG_typedef:
1966         {
1967           struct symt_typedef* symt = dwarf2_parse_typedef(module, entry, ctx);
1968           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
1969         }
1970         break;
1971       case DW_TAG_base_type:
1972         {
1973           struct symt_basic* symt = dwarf2_parse_base_type(module, entry, ctx);
1974           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
1975         }
1976         break;
1977       case DW_TAG_pointer_type:
1978         {
1979           struct symt_pointer* symt = dwarf2_parse_pointer_type(module, entry, ctx);
1980           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
1981         }
1982         break;
1983       case DW_TAG_class_type:
1984         {
1985           struct symt_udt* symt = dwarf2_parse_class_type(module, entry, ctx);
1986           if (NULL != symt) dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
1987         }
1988         break;
1989       case DW_TAG_structure_type:
1990         {
1991           struct symt_udt* symt = dwarf2_parse_struct_type(module, entry, ctx);
1992           if (NULL != symt) dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
1993         }
1994         break;
1995       case DW_TAG_union_type:
1996         {
1997           struct symt_udt* symt = dwarf2_parse_union_type(module, entry, ctx);
1998           if (NULL != symt) dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
1999         }
2000         break;
2001       case DW_TAG_array_type:
2002         {
2003           struct symt_array* symt = dwarf2_parse_array_type(module, entry, ctx);
2004           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
2005         }
2006         break;
2007       case DW_TAG_const_type:
2008         {
2009           struct symt_typedef* symt = dwarf2_parse_const_type(module, entry, ctx);
2010           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
2011         }
2012         break;
2013       case DW_TAG_reference_type:
2014         {
2015           struct symt_typedef* symt = dwarf2_parse_reference_type(module, entry, ctx);
2016           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
2017         }
2018         break;
2019       case DW_TAG_enumeration_type:
2020         {
2021           struct symt_enum* symt = dwarf2_parse_enumeration_type(module, entry, ctx);
2022           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
2023         }
2024         break;
2025       case DW_TAG_subprogram:
2026         {
2027           struct symt_function* symt = dwarf2_parse_subprogram(module, entry, ctx, compiland);
2028           if (NULL != symt) dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
2029         }
2030         break;
2031
2032       default:
2033         {
2034           dwarf2_abbrev_entry_attr_t* attr;
2035           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(ctx), entry->entry_code);
2036           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
2037             dwarf2_parse_attr(attr, ctx);
2038           }
2039         }
2040         break;
2041       }
2042     }
2043     --ctx->level;
2044   }
2045 }
2046
2047 static struct symt_compiland* dwarf2_parse_compiland(struct module* module, const dwarf2_abbrev_entry_t* entry, dwarf2_parse_context_t* ctx)
2048 {
2049   struct symt_compiland* compiland = NULL;
2050   const char* name = NULL;
2051   unsigned long next_sibling = 0;
2052   dwarf2_abbrev_entry_attr_t* attr = NULL;
2053
2054   TRACE("beginning at Ox%x, for %lu\n", ctx->data - ctx->start_data, entry->entry_code);
2055
2056   for (attr = entry->attrs; NULL != attr; attr = attr->next) {
2057     switch (attr->attribute) {
2058     case DW_AT_sibling:
2059       next_sibling = dwarf2_parse_attr_as_ref(attr, ctx);
2060       break;
2061     case DW_AT_name:
2062       name = dwarf2_parse_attr_as_string(attr, ctx);
2063       TRACE("found name %s\n", name);
2064       break;
2065     default:
2066       TRACE("Unhandled attr at %s, for %s\n", dwarf2_debug_ctx(ctx), dwarf2_debug_attr(attr));
2067       dwarf2_parse_attr(attr, ctx);
2068     }
2069   }
2070   compiland = symt_new_compiland(module, name);
2071   dwarf2_parse_compiland_content(module, entry, ctx, compiland);
2072
2073   dwarf2_check_sibling(ctx, next_sibling);
2074
2075   return compiland;
2076 }
2077
2078 BOOL dwarf2_parse(struct module* module, unsigned long load_offset,
2079                   const unsigned char* debug, unsigned int debug_size,
2080                   const unsigned char* abbrev, unsigned int abbrev_size,
2081                   const unsigned char* str, unsigned int str_sz)
2082 {
2083   const unsigned char* comp_unit_cursor = debug;
2084   const unsigned char* end_debug = debug + debug_size;
2085   BOOL bRet = TRUE;
2086
2087   while (comp_unit_cursor < end_debug) {
2088     dwarf2_abbrev_table_t* abbrev_table;
2089     const dwarf2_comp_unit_stream_t* comp_unit_stream;
2090     dwarf2_comp_unit_t comp_unit;
2091     dwarf2_parse_context_t ctx;
2092     dwarf2_parse_context_t abbrev_ctx;
2093     struct symt_compiland* compiland = NULL;
2094
2095     comp_unit_stream = (const dwarf2_comp_unit_stream_t*) comp_unit_cursor;
2096
2097     comp_unit.length = *(unsigned long*)  comp_unit_stream->length;
2098     comp_unit.version = *(unsigned short*) comp_unit_stream->version;
2099     comp_unit.abbrev_offset = *(unsigned long*) comp_unit_stream->abbrev_offset;
2100     comp_unit.word_size = *(unsigned char*) comp_unit_stream->word_size;
2101
2102     TRACE("Compilation Unit Herder found at 0x%x:\n", comp_unit_cursor - debug);
2103     TRACE("- length:        %lu\n", comp_unit.length);
2104     TRACE("- version:       %u\n",  comp_unit.version);
2105     TRACE("- abbrev_offset: %lu\n", comp_unit.abbrev_offset);
2106     TRACE("- word_size:     %u\n",  comp_unit.word_size);
2107
2108     ctx.data_stream = debug;
2109     ctx.data = ctx.start_data = comp_unit_cursor + sizeof(dwarf2_comp_unit_stream_t);
2110     ctx.offset = comp_unit_cursor - debug;
2111     ctx.word_size = comp_unit.word_size;
2112     ctx.str_section = str;
2113     ctx.level = 0;
2114
2115     comp_unit_cursor += comp_unit.length + sizeof(unsigned);
2116     ctx.end_data = comp_unit_cursor;
2117
2118     if (2 != comp_unit.version) {
2119       WARN("%u DWARF version unsupported. Wine dbghelp only support DWARF 2.\n", comp_unit.version);
2120       continue ;
2121     }
2122
2123     abbrev_ctx.abbrev_table = NULL;
2124     abbrev_ctx.data_stream = abbrev;
2125     abbrev_ctx.data = abbrev_ctx.start_data = abbrev + comp_unit.abbrev_offset;
2126     abbrev_ctx.end_data = abbrev + abbrev_size;
2127     abbrev_ctx.offset = comp_unit.abbrev_offset;
2128     abbrev_ctx.str_section = str;
2129     abbrev_table = dwarf2_parse_abbrev_set(&abbrev_ctx);
2130
2131     ctx.abbrev_table = abbrev_table;
2132
2133     while (ctx.data < ctx.end_data) {
2134       const dwarf2_abbrev_entry_t* entry = NULL;
2135       unsigned long entry_code;
2136       unsigned long entry_ref = 0;
2137
2138       entry_ref = ctx.data - ctx.data_stream;
2139
2140       entry_code = dwarf2_leb128_as_unsigned(&ctx);
2141       TRACE("found entry_code %lu at 0x%lx\n", entry_code, entry_ref);
2142       if (0 == entry_code) {
2143         continue ;
2144       }
2145       entry = dwarf2_abbrev_table_find_entry(abbrev_table, entry_code);
2146       if (NULL == entry) {
2147         WARN("Cannot find abbrev entry for %lu at 0x%lx\n", entry_code, entry_ref);
2148         dwarf2_abbrev_table_free(abbrev_table);
2149         return FALSE;
2150       }
2151
2152       switch (entry->tag) {
2153       case DW_TAG_compile_unit:
2154         {
2155           struct symt_compiland* symt = dwarf2_parse_compiland(module, entry, &ctx);
2156           dwarf2_add_symt_ref(module, entry_ref, &symt->symt);
2157           compiland = symt;
2158         }
2159         break;
2160       default:
2161         {
2162           dwarf2_abbrev_entry_attr_t* attr;
2163           TRACE("Unhandled Tag type 0x%lx at %s, for %lu\n", entry->tag, dwarf2_debug_ctx(&ctx), entry->entry_code);
2164           for (attr = entry->attrs; NULL != attr; attr = attr->next) {
2165             dwarf2_parse_attr(attr, &ctx);
2166           }
2167         }
2168         break;
2169       }
2170     }
2171     dwarf2_abbrev_table_free(abbrev_table);
2172   }
2173   return bRet;
2174 }