libgoblin/drd64_libgoblin_debug_dwarf.c

   1 /*DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64
   2
   3                          D r . D e a m o n  6 4
   4                         for INTEL64(R), AMD64(R)
   5
   6    Copyright(C) 2007-2009 Koine Yuusuke(koinec). All rights reserved.
   7
   8 Redistribution and use in source and binary forms, with or without
   9 modification, are permitted provided that the following conditions are met:
  10
  11  1. Redistributions of source code must retain the above copyright notice,
  12     this list of conditions and the following disclaimer.
  13  2. Redistributions in binary form must reproduce the above copyright
  14     notice, this list of conditions and the following disclaimer in the
  15     documentation and/or other materials provided with the distribution.
  16
  17 THIS SOFTWARE IS PROVIDED BY Koine Yuusuke(koinec) ``AS IS'' AND ANY
  18 EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  19 WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  20 DISCLAIMED. IN NO EVENT SHALL Koine Yuusuke(koinec) OR CONTRIBUTORS BE
  21 LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  22 CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  23 SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  24 INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  25 CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  26 ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  27 OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64DrDeAmOn64*/
  30
  31 /* File Info -----------------------------------------------------------
  32 File: drd64_.c
  33 Function:
  34 Comment:
  35 ----------------------------------------------------------------------*/
  36
  37 #define DRD64_SRC_LIBGOBLIN_DEBUG_DWARF
  38 #include"drd64_libgoblin.h"
  39
  40
  41 /*----------------------------------------------------------------------
  42 ----------------------------------------------------------------------*/
  43 LIBGOBLIN_DEBUG_DWARF_EXTERN
  44 void
  45         Debug_DWARF_PrintDIE(
  46                         LibGoblin_BinaryInfo    *p_binfo,
  47                         DWARF_AbbrevEntry               *p_abbrev,
  48                         DWord   dw_abbrevid,
  49                         int             i_childlv )
  50 {
  51         int             i_cnt;
  52         int             i_end;
  53         char    str_space[65];
  54         QWord   qw_cnt;
  55         LibGoblin_DWARF_DIEValue        *p_val;
  56         DWARF_AbbrevEntry                       *p_arvnow;
  57
  58         memset( str_space, ' ', 64 );
  59         i_end   = ((64 < i_childlv) ? 64  : (2 + (i_childlv * 2)));
  60         str_space[i_end]        = '\0';
  61
  62         p_arvnow        = p_abbrev + (dw_abbrevid - 1);
  63         p_val           = p_binfo->dwarf.p_infoval;
  64
  65         printf( "%s<%2d>: Abbrev Number: %2d (%s [%02xh])\n",
  66                                 str_space, i_childlv, dw_abbrevid,
  67                                 Debug_DWARF_GetTAGname( p_arvnow->dw_tag ), p_arvnow->dw_tag );
  68
  69         for( i_cnt = 0; i_cnt < p_arvnow->i_items; i_cnt++, p_val++ )   {
  70                 printf("%s    %-20s, %-16s : ",
  71                                 str_space,
  72                                 Debug_DWARF_GetAttributeName( p_arvnow->dw_attribute[ i_cnt ] ),
  73                                 Debug_DWARF_GetFormName( p_arvnow->dw_format[ i_cnt ] ) );
  74
  75                 switch( p_val->b_type ) {
  76                         case LIBGOBLIN_DWARF_INFO_TYPE_STRING:
  77                                 printf( "[Str  ] %s\n", p_val->value.pstr_value ); break;
  78                         case LIBGOBLIN_DWARF_INFO_TYPE_WORD:
  79                                 printf( "[Word ] %d\n", p_val->value.w_value ); break;
  80                         case LIBGOBLIN_DWARF_INFO_TYPE_DWORD:
  81                                 printf( "[DWord] %d\n", p_val->value.dw_value ); break;
  82                         case LIBGOBLIN_DWARF_INFO_TYPE_QWORD:
  83                                 printf( "[QWord] %ld\n", p_val->value.qw_value ); break;
  84                         case LIBGOBLIN_DWARF_INFO_TYPE_BYTE:
  85                                 printf( "[Byte ] %d\n", p_val->value.b_value ); break;
  86                         case LIBGOBLIN_DWARF_INFO_TYPE_LINK:
  87                                 printf( "[LINK ] %p\n", p_val->value.pb_link ); break;
  88                         case LIBGOBLIN_DWARF_INFO_TYPE_BLOCK:
  89                                 printf( "[Block] Size= %ld (", p_val->qw_size );
  90                                 for( qw_cnt = 0; qw_cnt < p_val->qw_size; qw_cnt++ )
  91                                         { printf(" %0xh", *(p_val->value.pb_data + qw_cnt) ); }
  92                                 puts(" )");
  93                                 break;
  94                         default:
  95                                 break;
  96                 }
  97
  98         }
  99
 100         return;
 101 }
 102
 103
 104 /* EOF of drd64_.c ----------------------------------- */