Chinaunix首页 | 论坛 | 博客

无情剑客

首页　| 　博文目录　| 　关于我

18345093167

  • 博客访问： 522486
  • 博文数量： 184
  • 博客积分： 0
  • 博客等级： 民兵
  • 技术积分： 1172
  • 用 户 组： 普通用户
  • 注册时间： 2016-06-21 13:40
个人简介

技术改变命运

文章分类

全部博文（184）

文章存档

2020年（16）

2017年（12）

2016年（156）

我的朋友
最近访客
推荐博文
相关博文
dwarf程序

分类： LINUX

2016-08-06 19:30:27

解析全局变量，函数，局部变量并按一定格式保存

点击(此处)折叠或打开

  1. #include <sys/types.h>
  2. #include <sys/stat.h>
  3. #include <fcntl.h>
  4. #include <stdlib.h>
  5. #include <unistd.h>
  6. #include <stdio.h>
  7. #include <errno.h>
  8. #include <string.h>
  9. #include "dwarf.h"
  10. #include "libdwarf.h"

  12. #define printf(line, ...) ; //禁用所有的printf

  14. static const char *const dwarf_regnames_i386[] =
  15. {
  16.   "eax", "ecx", "edx", "ebx",
  17.   "esp", "ebp", "esi", "edi",
  18.   "eip", "eflags", NULL,
  19.   "st0", "st1", "st2", "st3",
  20.   "st4", "st5", "st6", "st7",
  21.   NULL, NULL,
  22.   "xmm0", "xmm1", "xmm2", "xmm3",
  23.   "xmm4", "xmm5", "xmm6", "xmm7",
  24.   "mm0", "mm1", "mm2", "mm3",
  25.   "mm4", "mm5", "mm6", "mm7",
  26.   "fcw", "fsw", "mxcsr",
  27.   "es", "cs", "ss", "ds", "fs", "gs", NULL, NULL,
  28.   "tr", "ldtr"
  29. };//寄存器顺序+名字，从GDB源代码里copy过来的。。。

  31. static const char *const dwarf_base_type[]=
  32. {
  33.     "void",
  34.     "unsigned int", "unsigned char"    ,"short unsigned int",
  35.     "long unsigned int", "signed char", "short int",
  36.     "int", "long long int", "long long unsigned int",
  37.     "long int", "char", "union", "struct"
  38. }; // 11个C基本类型 + 联合体 + 结构体 + void 没了 C就这么多了
  39. #pragma pack(1)
  40. struct sub
  41. {
  42.     char name[8]; //函数名称
  43.     unsigned short level;//函数位于dwarf信息的第几层
  44.     unsigned char type;//返回值类型，对应dwarf_base_type结构
  45.     unsigned int low_pc;//函数的起始地址
  46.     unsigned int high_pc;//函数的结束地址
  47.     struct loc *loc;//函数执行期间寄存器偏移信息
  48.     struct var *var;//函数内的变量信息
  49.     struct sub *next;//指向下一个sub结构的单链表
  50. };

  52. struct loc
  53. {
  54.     unsigned int begin;//偏移开始地址
  55.     unsigned int end;//偏移结束地址
  56.     unsigned char reg;// *data -0x70 对应上面的寄存器表 其实X86 -O0编译也就4、5两个值
  57.     unsigned short base; // *(data+1)便宜值
  58.     struct loc *next;//指向下一个loc结构的单链表
  59. };

  61. struct var
  62. {
  63.     char name[8];//变量名字
  64.     unsigned int array; // 数组长度，0表示不是数组
  65.     unsigned char points; //这个变量是几层指针
  66.     unsigned char type; //变量类型，对应dwarf_base_type结构
  67.     unsigned int len;//变量类型长度
  68.     unsigned char loc_type; //变量地址类型
  69.     unsigned int loc;//变量地址数据，具体含义由loc_type确定
  70.     struct var *next;//指向下一个var结构的单链表
  71. };

  73. struct info
  74. {
  75.     struct sub * sub_link;//解析过程保存函数链表
  76.     struct var * global;//解析过程中保存全局变量链表
  77. };
  78. #pragma pack()

  80. struct info asd; ///// 在内存中以链表形式保存提取到的信息

  82. unsigned int cu_low_pc;//当前正在处理的编译单元的起始地址
  83. int is_new_cu;//进入新的编译单元
  84. /*******************************************************************************
  85.   *函数名称:static void get_addr(Dwarf_Attribute attr, Dwarf_Addr *val)
  86.   *函数功能:提取直接地址类型属性条目中保存的地址
  87.   *输入参数:
  88.     @Dwarf_Attribute attr:地址类型属性条目
  89.   *输出参数:
  90.     @Dwarf_Addr *val：条目中包含的地址
  91.   *函数返回值:无
  92.   *其他:
  93. *******************************************************************************/
  94. static void get_addr(Dwarf_Attribute attr, Dwarf_Addr *val) {
  95.     Dwarf_Error error = 0;
  96.     int res;
  97.     Dwarf_Addr uval = 0;
  98.     res = dwarf_formaddr(attr, &uval, &error);
  99.     if (res == DW_DLV_OK)
  100.         *val = uval;
  101. }
  102. /*******************************************************************************
  103.   *函数名称:static struct sub *new_sub(char* name,unsigned int low,unsigned int high)
  104.   *函数功能:申请一个函数信息块内存空间，并赋值
  105.   *输入参数:
  106.     @char* name:函数的名称
  107.     @unsigned int low：函数的起始地址
  108.     @unsigned int high：函数的结束地址
  109.   *输出参数:无
  110.   *函数返回值:struct sub *：申请的信息块地址
  111.   *其他:
  112. *******************************************************************************/
  113. static struct sub *new_sub(char* name,unsigned int low,unsigned int high)
  114. {
  115.     struct sub *tmp_sub = NULL;
  116.     tmp_sub = (struct sub*) malloc(sizeof(struct sub));//申请地址
  117.     if(tmp_sub)//成功的话，填充结构体信息
  118.     {
  119.         memset(tmp_sub,0,sizeof(struct sub));
  120.         if(name)
  121.             memcpy(tmp_sub->name,name,strlen(name)>8?8:strlen(name));
  122.         tmp_sub->low_pc = low;
  123.         tmp_sub->high_pc = high;
  124.         return tmp_sub;
  125.     }
  126.     else//失败返回空
  127.         return NULL;
  128. }
  129. /*******************************************************************************
  130.   *函数名称:static void get_loc_list(Dwarf_Debug dbg, Dwarf_Die die, struct sub *sub)
  131.   *函数功能:解析一个函数类型die的下挂的寄存器偏移信息，保存到sub->loc链表中
  132.   *输入参数:
  133.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  134.     @Dwarf_Die die：需要被解析的一个函数类型die
  135.     @struct sub *sub：函数DIE对应的信息块指针
  136.   *输出参数:无
  137.   *函数返回值:无
  138.   *其他:dwarf_ 开头的函数都是libdwarf库提供的函数
  139. *******************************************************************************/
  140. static void get_loc_list(Dwarf_Debug dbg, Dwarf_Die die, struct sub *sub)
  141. {
  142.     Dwarf_Unsigned offset=0;
  143.     Dwarf_Error error = 0;
  144.     Dwarf_Addr hipc_off;
  145.     Dwarf_Addr lopc_off;
  146.     Dwarf_Ptr data;
  147.     Dwarf_Unsigned entry_len;
  148.     Dwarf_Error err;
  149.     int res;
  150.     Dwarf_Unsigned next_entry;
  151.     Dwarf_Attribute t_attr;
  152.     struct loc *tmp=NULL,*pos;

  154.     res = dwarf_attr(die, DW_AT_frame_base, &t_attr, &error);//使用libdwarf库解析条目属性
  155.     if (res == DW_DLV_OK)
  156.     {
  157.         res = dwarf_formudata(t_attr, &offset, &error);//使用libdwarf库获取属性对应的条目链
  158.         if (res == DW_DLV_OK)
  159.             for(;;)
  160.                 {
  161.                     res = dwarf_get_loclist_entry(dbg,offset,&hipc_off,&lopc_off,&data,&entry_len,&next_entry,&err);//遍历所有条目
  162.                     if (res == DW_DLV_OK)
  163.                     {//每成功取出一个条目
  164.                         if(entry_len == 0 )
  165.                             break;
  166.                         if(entry_len > 1 )
  167.                         {
  168.                         tmp = (struct loc*) malloc(sizeof(struct loc));//申请内存
  169.                         if(tmp)
  170.                         {
  171.                             memset(tmp,0,sizeof(struct loc));
  172.                             tmp ->begin = cu_low_pc + lopc_off;
  173.                             tmp ->end = cu_low_pc + hipc_off;
  174.                             tmp ->reg = (unsigned short)*(char*)data;//保存条目信息
  175.                             if(entry_len == 2)
  176.                                 tmp ->base = (unsigned short)*(char *)(data+1);
  177.                             else
  178.                                 tmp ->base = (unsigned short)*(unsigned short *)(data+1);
  179.                             if(sub->loc)
  180.                             {
  181.                                 pos = sub->loc;//加入当前处理的函数的loc链表中
  182.                                 while(pos->next)
  183.                                     pos = pos->next;
  184.                                 pos->next = tmp;
  185.                             }
  186.                             else
  187.                                 sub->loc = tmp;
  188.                         }
  189.                         else break;
  190.                         }
  191.                         offset = next_entry;
  192.                         continue;
  193.                     }
  194.                     else break;
  195.                 }
  196.     }
  197. }
  198. /*******************************************************************************
  199.   *函数名称:static Dwarf_Die get_die(Dwarf_Debug dbg, Dwarf_Attribute attr, Dwarf_Half* tag)
  200.   *函数功能:通过偏移量取die和对应的标签
  201.   *输入参数:
  202.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  203.     @Dwarf_Attribute attr：需要被操作的属性结构
  204.     @Dwarf_Half* tag：偏移值
  205.   *输出参数:无
  206.   *函数返回值:Dwarf_Die：找到的DIE的指针
  207.   *其他:dwarf_ 开头的函数都是libdwarf库提供的函数
  208. *******************************************************************************/
  209. static Dwarf_Die get_die(Dwarf_Debug dbg, Dwarf_Attribute attr, Dwarf_Half* tag) {//通过偏移量取die和对应的标签
  210.     Dwarf_Error error = 0;
  211.     int res;
  212.     Dwarf_Off offset;
  213.     Dwarf_Die typeDie = 0;
  214.     res = dwarf_global_formref(attr, &offset, &error);
  215.     if (res == DW_DLV_OK) {
  216.         res = dwarf_offdie(dbg, offset, &typeDie, &error);
  217.         if (res == DW_DLV_OK) {
  218.             res = dwarf_tag(typeDie, tag, &error);
  219.             if (res == DW_DLV_OK) {
  220.                 return typeDie;
  221.             }
  222.         }
  223.     }
  224.     return NULL ;
  225. }
  226. /*******************************************************************************
  227.   *函数名称:static void print_subprog(Dwarf_Debug dbg, Dwarf_Die die, struct sub **tmp_sub)
  228.   *函数功能:解析一个函数类型die的全部信息，保存到tmp_sub中
  229.   *输入参数:
  230.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  231.     @Dwarf_Die die：需要被解析的一个函数类型die
  232.   *输出参数:
  233.     @struct sub **tmp_sub：返回函数信息块指针
  234.   *函数返回值:无
  235.   *其他:无
  236. *******************************************************************************/
  237. static void print_subprog(Dwarf_Debug dbg, Dwarf_Die die, struct sub **tmp_sub) {
  238.     int res;
  239.     Dwarf_Error error = 0;
  240.     Dwarf_Addr lowpc = 0;
  241.     Dwarf_Addr highpc = 0;
  242.     Dwarf_Attribute t_attr;
  243.     Dwarf_Half tag;
  244.     Dwarf_Die org_die = NULL;
  245.     char *name;
  246.     res = dwarf_attr(die, DW_AT_abstract_origin, &t_attr, &error);
  247.     if (res == DW_DLV_OK)
  248.         org_die = get_die(dbg, t_attr, &tag);
  249.     else org_die = die;
  250.     res = dwarf_diename(org_die, &name, &error);//获取函数的名称
  251.     if (res != DW_DLV_OK) {
  252.         name = NULL;
  253.     }
  254.     res = dwarf_attr(die, DW_AT_low_pc, &t_attr, &error);
  255.     if (res == DW_DLV_OK) // 获取函数的开始地址
  256.         get_addr(t_attr, &lowpc);
  257.     res = dwarf_attr(die, DW_AT_high_pc, &t_attr, &error);
  258.     if (res == DW_DLV_OK) // 获取函数的结束地址
  259.         get_addr(t_attr, &highpc);
  260.     *tmp_sub = new_sub(name,(unsigned int)lowpc,(unsigned int)highpc);//申请新的sub结构
  261.     //目前只考虑32位的，unsigned int就行
  262.     //}
  263. }

  265. /*******************************************************************************
  266.   *函数名称:static int get_array_length(Dwarf_Debug dbg, Dwarf_Die die, int *length)
  267.   *函数功能:计算一个数组属性的DIE对应的数组的具体长度
  268.   *输入参数:
  269.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  270.     @Dwarf_Die die：需要被计算的die
  271.   *输出参数:
  272.     @int *length：返回长度值
  273.   *函数返回值:无
  274.   *其他:
  275. *******************************************************************************/
  276. static int get_array_length(Dwarf_Debug dbg, Dwarf_Die die, int *length) {//数组类型的长度。。
  277.     int res;
  278.     Dwarf_Error error;
  279.     Dwarf_Die child;
  280.     Dwarf_Attribute tmp;
  281.     res = dwarf_child(die, &child, &error);
  282.     *length = 1;
  283.     Dwarf_Unsigned utmp;
  284.     if (res == DW_DLV_OK) {
  285.         while (1) {
  286.             res = dwarf_attr(child, DW_AT_upper_bound, &tmp, &error);
  287.             if (res == DW_DLV_OK) {
  288.                 res = dwarf_formudata(tmp, &utmp, &error);
  289.                 if (res != DW_DLV_OK)
  290.                     return DW_DLV_ERROR;
  291.                 else
  292.                     *length *= (u管理文章tmp + 1);
  293.             }
  294.             res = dwarf_siblingof(dbg, child, &child, &error);
  295.             if (res == DW_DLV_ERROR)
  296.                 return DW_DLV_ERROR;
  297.             if (res == DW_DLV_NO_ENTRY)
  298.                 return DW_DLV_OK;
  299.         }
  300.     }
  301.     return DW_DLV_ERROR;
  302. }
  303. /*******************************************************************************
  304.   *函数名称:static void get_type(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *arr, unsigned short *points, unsigned short *type, unsigned int *type_len)
  305.   *函数功能:解析一个变量类型描述类型die的全部信息
  306.   *输入参数:
  307.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  308.     @DDwarf_Attribute attr：需要被解析的一个变量类型die
  309.   *输出参数:
  310.     @unsigned int *arr：是否是数组类型，以及数组长度
  311.     @unsigned short *points：是否时指针类型，以及指针深度，和arr同时非0，表明是一个指针数组，目前不考虑这种情况
  312.     @unsigned short *type：具体类型值，定义对应最上面dwarf_base_type数组
  313.     @unsigned int *type_len：类型长度
  314.   *函数返回值:无
  315.   *其他:具体参见DWARF Debugging Information Format.pdf文档中“类型条目”书签标记的位置
  316.        简单来说，attr是个类型描述的开头，他指向一个属性链条，每个点上保存一个属性，便利这个链条确定最终的类型
  317. *******************************************************************************/
  318. static void get_type(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *arr, unsigned short *points, unsigned short *type, unsigned int *type_len) {
  319.     char *name = 0;
  320.     Dwarf_Half tag;
  321.     Dwarf_Unsigned size;
  322.     Dwarf_Error error = 0;
  323.     Dwarf_Attribute t_attr;
  324.     int res;
  325.     int length;
  326.     Dwarf_Die typeDie = get_die(dbg, attr, &tag);
  327.     if (typeDie) {
  328.         switch (tag) {//只处理了和标准C相关的类型
  329.         case DW_TAG_subroutine_type://函数指针，对比没意义，就不管了
  330.             *type = 255;
  331.             break;
  332.         case DW_TAG_typedef://对应C语言中typedef关键字
  333.             goto next_type;
  334.         case DW_TAG_const_type://对应C语言中const关键字
  335.             goto next_type;
  336.         case DW_TAG_pointer_type://对应C语言中变量定义中的 * 指针符
  337.             *points += 1;
  338.             goto next_type;
  339.         case DW_TAG_volatile_type://对应C语言中volatile关键字
  340.             next_type: res = dwarf_attr(typeDie, DW_AT_type, &t_attr, &error);
  341.             if (res == DW_DLV_OK) {
  342.                 get_type(dbg, t_attr, arr, points, type, type_len);
  343.             } else
  344.                 *type = 1;
  345.             break;
  346.         case DW_TAG_base_type://对应dwarf_base_type定义的C基本变量类型
  347.             res = dwarf_diename(typeDie, &name, &error);
  348.             if (res == DW_DLV_OK) {
  349.                 for(res = 0;res<sizeof(dwarf_base_type)/sizeof(char *);res++)
  350.                     if(!strncmp(name,dwarf_base_type[res],strlen(dwarf_base_type[res])))
  351.                     {
  352.                         *type = res+1;
  353.                         break;
  354.                     }
  355.                 res = dwarf_bytesize(typeDie, &size, &error);
  356.                 if (res == DW_DLV_OK) {
  357.                     *type_len = ((unsigned int)size);
  358.                 } else
  359.                     *type_len = 0;
  360.             } else
  361.                 *type = 0;
  362.             break;
  363.         case DW_TAG_array_type://对应C语言中的数组定义
  364.             res = get_array_length(dbg, typeDie, &length);
  365.             if (res == DW_DLV_OK)
  366.                 *arr = length;
  367.             goto next_type;
  368.         case DW_TAG_union_type://对应C语言中联合体定义
  369.             *type = sizeof(dwarf_base_type)/sizeof(char *) -1;
  370.             goto get_size;
  371.         case DW_TAG_structure_type://对应C语言中结构体定义
  372.             *type = sizeof(dwarf_base_type)/sizeof(char *);
  373.             get_size: res = dwarf_bytesize(typeDie, &size, &error);
  374.             if (res == DW_DLV_OK)
  375.                 *type_len = (unsigned int)size;
  376.             else
  377.                 *type_len = 0;
  378.             break;
  379.         default://非C语言类型
  380.             *type = 0;
  381.             break;
  382.         }
  383.     }
  384. }
  385. /*******************************************************************************
  386.   *函数名称:static void get_location(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *loc_type, unsigned int *loc)
  387.   *函数功能:解析一个地址类型die的全部信息
  388.   *输入参数:
  389.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  390.     @Dwarf_Attribute attr：需要被解析的一个地址类型die
  391.   *输出参数:
  392.     @unsigned int *loc_type：返回die标签包含的地址的地址类型
  393.     @unsigned int *loc：返回die标签包含的地址的具体地址数值
  394.   *函数返回值:无
  395.   *其他:地址类型和地址数值包含[直接地址:32位线性地址]、[寄存器基址寻址:偏移值]等多个可能的赋值含义组合
  396.      具体参见DWARF Debugging Information Format.pdf文档中“位置描述”书签标记的位置
  397. *******************************************************************************/
  398. static void get_location(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *loc_type, unsigned int *loc) {
  399.     Dwarf_Error error = 0;
  400.     int res;
  401.     Dwarf_Locdesc *llbuf;
  402.     Dwarf_Signed lcnt;
  403.     res = dwarf_loclist(attr, &llbuf, &lcnt, &error);
  404.     if (res == DW_DLV_OK) {
  405.         *loc_type = (unsigned int) llbuf->ld_s->lr_atom;
  406.         *loc = (unsigned int)llbuf->ld_s->lr_number;
  407.         dwarf_dealloc(dbg, llbuf->ld_s, DW_DLA_LOC_BLOCK);
  408.         dwarf_dealloc(dbg, llbuf, DW_DLA_LOCDESC);
  409.     }
  410. }
  411. /*******************************************************************************
  412.   *函数名称:static void print_variable(Dwarf_Debug dbg, Dwarf_Die die, struct var ** tmp_loc)
  413.   *函数功能:解析一个变量类型die的全部信息，保存到tmp_loc中
  414.   *输入参数:
  415.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  416.     @Dwarf_Die die：需要被解析的一个变量类型die
  417.   *输出参数:
  418.     @struct var ** tmp_loc：返回变量信息块指针
  419.   *函数返回值:无
  420.   *其他:无
  421. *******************************************************************************/
  422. static void print_variable(Dwarf_Debug dbg, Dwarf_Die die, struct var ** tmp_loc) {
  423.     int res;
  424.     Dwarf_Error error = 0;
  425.     Dwarf_Attribute t_attr;
  426.     unsigned int arr, type_len, loc_type, loc;
  427.     unsigned short points, type ;
  428.     struct var * tmp =NULL ;
  429.     Dwarf_Die org_die = NULL;
  430.     Dwarf_Half tag;
  431.     char *name;

  433.     *tmp_loc = tmp;
  434.     res = dwarf_attr(die, DW_AT_abstract_origin, &t_attr, &error);
  435.     if (res == DW_DLV_OK)
  436.         org_die = get_die(dbg, t_attr, &tag);
  437.     else org_die = die;
  438.     res = dwarf_diename(org_die, &name, &error);
  439.     if (res != DW_DLV_OK) {
  440.         name = NULL;
  441.     }

  443.     res = dwarf_attr(die, DW_AT_declaration, &t_attr, &error);
  444.     if (res != DW_DLV_OK) { //若res == DW_DLV_OK，则是extern变量,没有位置信息，就不再保存
  445.         loc_type = loc =0;
  446.         arr = type_len = 0;
  447.         points = type = 0;

  449.         res = dwarf_attr(die, DW_AT_location, &t_attr, &error);
  450.         if (res == DW_DLV_OK) //获取变量的位置信息
  451.             get_location(dbg, t_attr, &loc_type, &loc);

  453.         if(loc_type == 0)
  454.         {
  455.             printf("no loc info !!\n");
  456.             return;
  457.         }

  459.         res = dwarf_attr(org_die, DW_AT_type, &t_attr, &error);
  460.         if (res == DW_DLV_OK) // 确定变量的类型以及长度
  461.             get_type(dbg, t_attr, &arr, &points, &type, &type_len);

  463.         if(type == 0)
  464.         {
  465.             printf("error in get_type \n ");
  466.             return;
  467.         }
  468.         if(type == 255)
  469.         {
  470.             printf("DW_TAG_subroutine_type !! \n");
  471.             return;
  472.         }
  473.         tmp = (struct var*) malloc(sizeof(struct var));//申请新的var结构体存放变量信息
  474.         if (tmp)
  475.         {
  476.             memset(tmp,0,sizeof(struct var));
  477.             if(name)
  478.                 memcpy(tmp->name,name,strlen(name)>8?8:strlen(name));
  479.             tmp->array = arr;
  480.             tmp->points = points;
  481.             tmp->type = type;
  482.             tmp->len = type_len;
  483.             tmp->loc_type = loc_type;
  484.             tmp->loc = loc;
  485.             *tmp_loc = tmp;
  486.         }
  487.     }
  488. }
  489. /*******************************************************************************
  490.   *函数名称:static void get_die_and_siblings(Dwarf_Debug dbg, Dwarf_Die in_die,int in_level)
  491.   *函数功能:递归遍历整个DWARF调试信息树，取出其中的变量、寄存器偏移和变量信息
  492.   *输入参数:
  493.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  494.     @Dwarf_Die in_die：需要被遍历的头一个die
  495.     @int in_level：便利处于第几层
  496.   *输出参数:无
  497.   *函数返回值:无
  498.   *其他:无
  499. *******************************************************************************/
  500. static void get_die_and_siblings(Dwarf_Debug dbg, Dwarf_Die in_die,
  501.         int in_level) {
  502.     int res = DW_DLV_ERROR;
  503.     Dwarf_Die cur_die = in_die;
  504.     Dwarf_Die child = 0;
  505.     Dwarf_Error error;
  506.     Dwarf_Half tag;
  507.     Dwarf_Attribute t_attr;
  508.     Dwarf_Unsigned inline_tag;
  509.     Dwarf_Die sib_die = 0;
  510.     struct var *t_var , *p_var;
  511.     struct sub *t_sub , *p_sub;
  512.     struct todo
  513.     {
  514.         Dwarf_Die d;
  515.         Dwarf_Half tag;
  516.         struct todo *n;
  517.     }*todo_list,*t_todo,*p_todo;

  519.     todo_list = NULL;
  520.     for(;;)
  521.     {
  522.         res = dwarf_tag(cur_die, &tag, &error); // 取标签
  523.         if (res != DW_DLV_OK) {
  524.             printf("Error in dwarf_tag , level %d \n", in_level);
  525.             exit(1);
  526.         }
  527.         if(in_level == 1) //由于标准C不允许函数嵌套定义，SO ，1层只有全局变量和函数顶层
  528.         {
  529.             if(tag == DW_TAG_variable) //全局变量
  530.             {
  531.                 print_variable(dbg, cur_die, &t_var);
  532.                 if(asd.global) //放进全局链结尾去
  533.                 {
  534.                     p_var = asd.global;
  535.                     while(p_var->next)
  536.                         p_var = p_var->next;
  537.                     p_var->next = t_var;
  538.                 }
  539.                 else
  540.                     asd.global = t_var;
  541.             }
  542.             if(tag == DW_TAG_subprogram) //函数，判断是否时inline 然后加进SUB链 然后进child取局部变量和包含的块和inlined
  543.             {
  544.                 res = dwarf_attr(cur_die, DW_AT_inline, &t_attr, &error);
  545.                 if(res == DW_DLV_OK)
  546.                 {
  547.                     res = dwarf_formudata(t_attr, &inline_tag, &error);
  548.                     if(res != DW_DLV_OK)
  549.                         exit(1);
  550.                     if(inline_tag == DW_INL_inlined || inline_tag == DW_INL_declared_inlined)
  551.                         goto next_sib;//是inline函数 就出去继续循环 后面把非inline函数加进SUB
  552.                 }
  553.                 print_subprog(dbg, cur_die, &t_sub);
  554.                 if(t_sub)
  555.                 {
  556.                     if(is_new_cu)
  557.                     {
  558.                         is_new_cu = 0;
  559.                         cu_low_pc = t_sub->low_pc;
  560.                     }
  561.                     t_sub->level = in_level;
  562.                     t_sub->type = DW_TAG_subprogram;
  563.                     get_loc_list(dbg, cur_die, t_sub); //把loc信息添加进去
  564.                     if(asd.sub_link) //放进sub链结尾去
  565.                     {
  566.                         p_sub = asd.sub_link;
  567.                         while(p_sub->next)
  568.                             p_sub = p_sub->next;
  569.                         p_sub->next = t_sub;
  570.                     }
  571.                     else
  572.                         asd.sub_link = t_sub;

  574.                     res = dwarf_child(cur_die, &child, &error);
  575.                     if (res == DW_DLV_ERROR)
  576.                     {
  577.                         printf("Error in dwarf_child , level %d \n", in_level);
  578.                         exit(1);
  579.                     }
  580.                     if (res == DW_DLV_OK)
  581.                         get_die_and_siblings(dbg, child, in_level + 1); //进入child 也就是>1的层
  582.                 }
  583.             }
  584.         }
  585.         else if(in_level > 1) //大于1层的地方只有局部变量和块、inlined
  586.         {
  587.             if (tag == DW_TAG_formal_parameter || tag == DW_TAG_variable) //局部变量，挂到sub链最后一个的VAR指针上
  588.             {
  589.                 print_variable(dbg, cur_die, &t_var);
  590.                 p_sub = asd.sub_link;
  591.                 while(p_sub->next)
  592.                     p_sub = p_sub->next;
  593.                 if(p_sub->var)
  594.                 {
  595.                     p_var = p_sub->var;
  596.                     while(p_var->next)
  597.                         p_var = p_var->next;
  598.                     p_var->next = t_var;
  599.                 }
  600.                 else
  601.                     p_sub->var = t_var;
  602.             }
  603.             if(tag == DW_TAG_lexical_block || tag == DW_TAG_inlined_subroutine) // 先放到todo_list里面在for外面单独处理
  604.             {
  605.                 t_todo = (struct todo *) malloc(sizeof(struct todo));
  606.                 if(t_todo)
  607.                 {
  608.                     memset(t_todo,0,sizeof(struct todo));
  609.                     t_todo->d = cur_die;
  610.                     t_todo->tag = tag;
  611.                     if(todo_list)
  612.                     {
  613.                         p_todo = todo_list;
  614.                         while(p_todo->n)
  615.                             p_todo = p_todo->n;
  616.                         p_todo->n = t_todo;
  617.                     }
  618.                     else
  619.                         todo_list = t_todo;
  620.                 }
  621.             }
  622.         }
  623.         else
  624.         {//0层是变编译头信息，没啥用就直接进child
  625.             res = dwarf_child(cur_die, &child, &error);
  626.             if (res == DW_DLV_ERROR)
  627.             {
  628.                 printf("Error in dwarf_child , level %d \n", in_level);
  629.                 exit(1);
  630.             }
  631.             if (res == DW_DLV_OK)
  632.             {
  633.                 is_new_cu = 1;
  634.                 get_die_and_siblings(dbg, child, in_level + 1);
  635.             }
  636.         }
  637.         next_sib:
  638.         sib_die = 0;
  639.         res = dwarf_siblingof(dbg, cur_die, &sib_die, &error);
  640.         if (res == DW_DLV_ERROR) {
  641.             printf("Error in dwarf_siblingof , level %d \n", in_level);
  642.             exit(1);
  643.         }
  644.         if (res == DW_DLV_NO_ENTRY)
  645.             break;

  647.         if (cur_die != in_die && in_level < 2)
  648.             dwarf_dealloc(dbg, cur_die, DW_DLA_DIE);

  650.         cur_die = sib_die;
  651.     }
  652.     if(todo_list)
  653.     {
  654.         t_todo = p_todo = todo_list;
  655.         todo_list = NULL;
  656.         while(p_todo)
  657.         {
  658.             print_subprog(dbg, p_todo->d, &t_sub);
  659.             if(t_sub)
  660.             {
  661.                 t_sub->level = in_level;
  662.                 t_sub->type = p_todo->tag;
  663.                 if(asd.sub_link) //放进sub链结尾去
  664.                 {
  665.                     p_sub = asd.sub_link;
  666.                     while(p_sub->next)
  667.                         p_sub = p_sub->next;
  668.                     p_sub->next = t_sub;
  669.                 }
  670.                 else
  671.                     exit(1); //若在这里asd.sub_link依然为空，那么肯定是有错误了，因为只有在>1的时候才能进到这里

  673.                 res = dwarf_child(cur_die, &child, &error);
  674.                 if (res == DW_DLV_ERROR)
  675.                 {
  676.                     printf("Error in dwarf_child , level %d \n", in_level);
  677.                     exit(1);
  678.                 }
  679.                 if (res == DW_DLV_OK)
  680.                     get_die_and_siblings(dbg, child, in_level + 1); //进入child
  681.             }
  682.             p_todo = p_todo->n;
  683.             dwarf_dealloc(dbg, t_todo->d , DW_DLA_DIE);
  684.             free(t_todo);
  685.             t_todo = p_todo;
  686.         }
  687.     }
  688. }

  690. /*******************************************************************************
  691.   *函数名称:static void read_cu_list(Dwarf_Debug dbg)
  692.   *函数功能:遍历调试信息中包含的全部CU头，提取其中的信息
  693.   *输入参数:
  694.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  695.   *输出参数:无
  696.   *函数返回值:无
  697.   *其他:无
  698. *******************************************************************************/
  699. static void read_cu_list(Dwarf_Debug dbg) {//一次取出一个CU头
  700.     Dwarf_Unsigned cu_header_length = 0;
  701.     Dwarf_Half version_stamp = 0;
  702.     Dwarf_Unsigned abbrev_offset = 0;
  703.     Dwarf_Half address_size = 0;
  704.     Dwarf_Unsigned next_cu_header = 0;
  705.     Dwarf_Error error;

  707.     for (;;) {
  708.         Dwarf_Die no_die = 0;
  709.         Dwarf_Die cu_die = 0;
  710.         int res = DW_DLV_ERROR;
  711.         res = dwarf_next_cu_header(dbg, &cu_header_length, &version_stamp,
  712.                 &abbrev_offset, &address_size, &next_cu_header, &error);//取出一个CU
  713.         if (res == DW_DLV_ERROR) {
  714.             printf("Error in dwarf_next_cu_header\n");
  715.             exit(1);
  716.         }
  717.         if (res == DW_DLV_NO_ENTRY) {
  718.             /* Done. */
  719.             return;
  720.         }
  721.         /* The CU will have a single sibling, a cu_die. */
  722.         res = dwarf_siblingof(dbg, no_die, &cu_die, &error);
  723.         if (res == DW_DLV_ERROR) {
  724.             printf("Error in dwarf_siblingof on CU die \n");
  725.             exit(1);
  726.         }
  727.         if (res == DW_DLV_NO_ENTRY) {
  728.             /* Impossible case. */
  729.             printf("no entry! in dwarf_siblingof on CU die \n");
  730.             exit(1);
  731.         }
  732.         get_die_and_siblings(dbg, cu_die, 0);//拿到CU后，进入第0层，开始递归遍历
  733.         dwarf_dealloc(dbg, cu_die, DW_DLA_DIE);
  734.     }
  735. }
  736. /*******************************************************************************
  737.   *函数名称:static void save_to_file(char *path, struct info *asd)
  738.   *函数功能:将全局链表中存放的调试信息保存到文件中
  739.   *输入参数:
  740.     @char *path:保存文件的路径
  741.     @struct info *asd:要保存的信息所在的链表
  742.   *输出参数:无
  743.   *函数返回值:无
  744.   *其他:无
  745. *******************************************************************************/
  746. static void save_to_file(char *path, struct info *asd)
  747. {
  748.     FILE * f ,* fpos;
  749.     char buf[255];
  750.     static const int size[] =
  751.     {
  752.             sizeof(struct sub) - 3 * sizeof(void *),
  753.             sizeof(struct loc) - sizeof(void *),
  754.             sizeof(struct var) - sizeof(void *)
  755.     };
  756.     static const unsigned char tag[] =
  757.     {
  758.             0x00,0x01,0x02,0x03
  759.     };
  760.     struct sub *p_sub_1, *p_sub_2;
  761.     struct loc *p_loc_1, *p_loc_2;
  762.     struct var *p_var_1, *p_var_2;

  764.     unsigned int pos;
  765.     pos = 0;
  766.     sprintf(buf,"%s.pos",path);//索引文件文件名
  767.     f = fopen(path,"w");//打开调试信息文件
  768.     fpos = fopen(buf,"w");//打开索引文件
  769.     if(f)
  770.     {
  771.         p_var_1 = asd->global;
  772.         while(p_var_1)
  773.         {//首先保存全局变量信息到调试信息文件
  774.             fwrite(tag+3, 1, 1, f);
  775.             fwrite(p_var_1, size[2], 1, f);
  776.             fwrite(tag, 1, 1, f);
  777.             p_var_2 = p_var_1;
  778.             p_var_1 = p_var_1->next;
  779.             free(p_var_2);
  780.             pos += size[2] + 2;
  781.         }
  782.         fwrite(&pos,4,1,fpos);//记录全局变量信息长度到索引文件
  783.         asd->global = NULL;
  784.         p_sub_1 = asd->sub_link;
  785.         while(p_sub_1)
  786.         {//保存变量信息
  787.             fwrite(tag+1, 1, 1, f);
  788.             fwrite(p_sub_1, size[0], 1, f);
  789.             fwrite(tag, 1, 1, f);
  790.             fwrite(&p_sub_1->low_pc, sizeof(long), 1, fpos);//函数的开始地址写入索引文件
  791.             fwrite(&p_sub_1->high_pc, sizeof(long), 1, fpos);//函数的解释地址写入索引文件
  792.             fwrite(&pos,4,1,fpos);//函数在调试信息文件中的位置，写入索引文件
  793.             pos += size[0] + 2;
  794.             p_loc_1 = p_sub_1->loc;
  795.             while(p_loc_1)
  796.             {//变量执行期间寄存偏移情况
  797.                 fwrite(tag+2, 1, 1, f);
  798.                 fwrite(p_loc_1, size[1], 1, f);
  799.                 fwrite(tag, 1, 1, f);
  800.                 p_loc_2 = p_loc_1;
  801.                 p_loc_1 = p_loc_1->next;
  802.                 free(p_loc_2);
  803.                 pos += size[1] + 2;
  804.             }
  805.             p_var_1 = p_sub_1->var;
  806.             while(p_var_1)
  807.             {//函数的局部变量
  808.                 fwrite(tag+3, 1, 1, f);
  809.                 fwrite(p_var_1, size[2], 1, f);
  810.                 fwrite(tag, 1, 1, f);
  811.                 p_var_2 = p_var_1;
  812.                 p_var_1 = p_var_1->next;
  813.                 free(p_var_2);
  814.                 pos += size[2] + 2;
  815.             }
  816.             p_sub_2 = p_sub_1;
  817.             p_sub_1 = p_sub_1->next;
  818.             free(p_sub_2);
  819.         }
  820.         asd->sub_link = NULL;
  821.         fclose(f);//关闭，完成
  822.         fclose(fpos);
  823.     }
  824. }
  825. /*//一些测试函数
  826. static void read_from_file(char *path, struct info *asd)
  827. {//读取出来看文件是否正确
  828.     FILE * f;
  829.     static const int size[] =
  830.     {
  831.             sizeof(struct sub) - 3 * sizeof(void *),
  832.             sizeof(struct loc) - sizeof(void *),
  833.             sizeof(struct var) - sizeof(void *)
  834.     };

  836.     struct sub *p_sub_1, *p_sub_2;
  837.     struct loc *p_loc_1, *p_loc_2;
  838.     struct var *p_var_1, *p_var_2;
  839.     char t;
  840.     int is_global = 1;

  842.     f = fopen(path,"r");
  843.     if(f)
  844.     {
  845.         while(!feof(f))
  846.         {
  847.             fread(&t, 1, 1, f);
  848.             switch(t)
  849.             {
  850.             case 3:
  851.                 p_var_2 = (struct var *) malloc(sizeof(struct var));
  852.                 if(p_var_2)
  853.                 {
  854.                     memset(p_var_2, 0, sizeof(struct var));
  855.                     fread(p_var_2, size[2], 1, f);
  856.                     if(is_global)
  857.                     {
  858.                         if(asd->global)
  859.                         {
  860.                             p_var_1 = asd->global;
  861.                             while(p_var_1 ->next)
  862.                                 p_var_1 = p_var_1->next;
  863.                             p_var_1->next = p_var_2;
  864.                         }
  865.                         else
  866.                             asd->global = p_var_2;
  867.                     }
  868.                     else
  869.                     {
  870.                         p_sub_1 = asd->sub_link;
  871.                         while(p_sub_1->next)
  872.                             p_sub_1 = p_sub_1->next;
  873.                         if(p_sub_1->var)
  874.                         {
  875.                             p_var_1 = p_sub_1->var;
  876.                             while(p_var_1 ->next)
  877.                                 p_var_1 = p_var_1->next;
  878.                             p_var_1->next = p_var_2;
  879.                         }
  880.                         else
  881.                             p_sub_1->var = p_var_2;
  882.                     }
  883.                 }
  884.                 break;
  885.             case 1:
  886.                 p_sub_2 = (struct sub *) malloc(sizeof(struct sub));
  887.                 if(p_sub_2)
  888.                 {
  889.                     is_global = 0;
  890.                     memset(p_sub_2, 0, sizeof(struct sub));
  891.                     fread(p_sub_2, size[0], 1, f);
  892.                     if(asd->sub_link)
  893.                     {
  894.                         p_sub_1 = asd->sub_link;
  895.                         while(p_sub_1->next)
  896.                             p_sub_1 = p_sub_1->next;
  897.                         p_sub_1->next = p_sub_2;
  898.                     }
  899.                     else
  900.                         asd->sub_link = p_sub_2;
  901.                 }
  902.                 break;
  903.             case 2:
  904.                 p_loc_2 = (struct loc *) malloc(sizeof(struct loc));
  905.                 if(p_loc_2)
  906.                 {
  907.                     memset(p_loc_2, 0, sizeof(struct loc));
  908.                     fread(p_loc_2, size[1], 1, f);
  909.                     if(!asd->sub_link)
  910.                         exit(1);
  911.                     p_sub_1 = asd->sub_link;
  912.                     while(p_sub_1->next)
  913.                         p_sub_1 = p_sub_1->next;
  914.                     if(p_sub_1->loc)
  915.                     {
  916.                         p_loc_1 = p_sub_1->loc;
  917.                         while(p_loc_1 ->next)
  918.                             p_loc_1 = p_loc_1->next;
  919.                         p_loc_1->next = p_loc_2;
  920.                     }
  921.                     else
  922.                         p_sub_1->loc = p_loc_2;
  923.                 }
  924.                 break;
  925.             }
  926.             fread(&t, 1, 1, f);
  927.             if(t)
  928.                 exit(1);
  929.         }
  930.     }
  931. }

  933. static void print_pos(char *path)
  934. {//打印索引
  935.     FILE * f ,* fp;
  936.     char buf[255], *b,name[9];
  937.     unsigned int *bp;
  938.     int s,sp,pos;
  939.     sprintf(buf,"%s.pos",path);
  940.     f = fopen(path,"r");
  941.     fp = fopen(buf,"r");
  942.     fseek(f,0,2);
  943.     fseek(fp,0,2);
  944.     s = ftell(f);
  945.     sp = ftell(fp);
  946.     b = (char *) malloc(s);
  947.     bp = (unsigned int *) malloc(sp);
  948.     fseek(f,0,0);
  949.     fseek(fp,0,0);
  950.     fread(b,s,1,f);
  951.     fread(bp,s,1,fp);
  952.     fclose(f);
  953.     fclose(fp);
  954.     printf("全局比啊两数据长度:%d\n",*bp);
  955.     pos = 1;
  956.     while(pos < sp/4)
  957.     {
  958.         printf("low: %08x\n",*(bp+pos));
  959.         printf("hig: %08x\n",*(bp+pos+1));
  960.         memset(name,0,9);
  961.         memcpy(name,b+*(bp+pos+2)+1,8);
  962.         printf("name:%s\n",name);
  963.         pos+=3;
  964.     }
  965. }

  967. static void print(struct info asd)
  968. {//打印全部保存的调试信息
  969.     struct sub *p_sub_1;
  970.     struct loc *p_loc_1;
  971.     struct var *p_var_1;
  972.     char n[9];
  973.     p_var_1 = asd.global;
  974.     while(p_var_1)
  975.     {
  976.         memset(n,0,9);
  977.         memcpy(n,p_var_1->name,8);
  978.         printf("< 1 > 变量名: %s\n< 1 > ",n);
  979.         if ( DW_OP_addr == p_var_1->loc_type)
  980.             printf("直接地址: %x \n",(int) p_var_1->loc);
  981.         else if(p_var_1->loc_type >= DW_OP_breg0 && p_var_1->loc_type <= DW_OP_breg31)
  982.             printf("基址寻址: %d (%s)\n", ((int)p_var_1->loc), *(dwarf_regnames_i386+p_var_1->loc_type-DW_OP_breg0));
  983.         else if(p_var_1->loc_type >= DW_OP_reg0 && p_var_1->loc_type <= DW_OP_reg31)
  984.             printf("通用寄存器: reg%d \n",p_var_1->loc - DW_OP_reg0);
  985.         else if(p_var_1->loc_type == DW_OP_fbreg)
  986.             printf("loclist: %d \n",((int)p_var_1->loc));
  987.         else
  988.             printf("Unknow location \n");//不是C的不管丫的
  989.         printf("< %d > 数组: %d\n",1,p_var_1->array);
  990.         printf("< %d > 指针: %d\n",1,p_var_1->points);
  991.         printf("< %d > 类型: %s\n",1,dwarf_base_type[p_var_1->type - 1]);
  992.         printf("< 1 > 大小: %d\n\n",p_var_1->len);
  993.         p_var_1 = p_var_1->next;
  994.     }
  995.     p_sub_1 = asd.sub_link;
  996.     while(p_sub_1)
  997.     {
  998.         p_loc_1 = p_sub_1->loc;
  999.         p_var_1 = p_sub_1->var;
  1000.         memset(n,0,9);
  1001.         memcpy(n,p_sub_1->name,8);
  1002.         printf("< %d >函数名: %s\n",p_sub_1->level,p_sub_1->type == DW_TAG_subprogram?n:"局部块");
  1003.         printf("< %d >low_pc : 0x%08x \n",p_sub_1->level,p_sub_1->low_pc);
  1004.         printf("< %d >high_pc : 0x%08x \n\n",p_sub_1->level,p_sub_1->high_pc);
  1005.         while(p_loc_1)
  1006.         {
  1007.             printf("< %d > loclist: 0x%08x -- 0x%08x : (%s) %d \n",p_sub_1->level,p_loc_1->begin,p_loc_1->end,*(dwarf_regnames_i386+(p_loc_1->reg>0x70?p_loc_1->reg-0x70:10)),p_loc_1->base);
  1008.             p_loc_1 = p_loc_1->next;
  1009.         }
  1010.         while(p_var_1)
  1011.         {
  1012.             memset(n,0,9);
  1013.             memcpy(n,p_var_1->name,8);
  1014.             printf("\n< %d > 变量名: %s\n< %d > ",p_sub_1->level+1,n,p_sub_1->level+1);
  1015.             if ( DW_OP_addr == p_var_1->loc_type)
  1016.                 printf("直接地址: %x \n",(int) p_var_1->loc);
  1017.             else if(p_var_1->loc_type >= DW_OP_breg0 && p_var_1->loc_type <= DW_OP_breg31)
  1018.                 printf("基址寻址: %d (%s)\n", ((int)p_var_1->loc), *(dwarf_regnames_i386+p_var_1->loc_type-DW_OP_breg0));
  1019.             else if(p_var_1->loc_type >= DW_OP_reg0 && p_var_1->loc_type <= DW_OP_reg31)
  1020.                 printf("通用寄存器: reg%d \n",p_var_1->loc - DW_OP_reg0);
  1021.             else if(p_var_1->loc_type == DW_OP_fbreg)
  1022.                 printf("loclist: %d \n",((int)p_var_1->loc));
  1023.             else
  1024.                 printf("Unknow location \n");//不是C的不管丫的
  1025.             printf("< %d > 数组: %d\n",p_sub_1->level+1,p_var_1->array);
  1026.             printf("< %d > 指针: %d\n",p_sub_1->level+1,p_var_1->points);
  1027.             printf("< %d > 类型: %s\n",p_sub_1->level+1,dwarf_base_type[p_var_1->type - 1]);
  1028.             printf("< %d > 大小: %d\n\n",p_sub_1->level+1,p_var_1->len);
  1029.             p_var_1 = p_var_1->next;
  1030.         }
  1031.         p_sub_1 = p_sub_1->next;
  1032.     }
  1033. }
  1034. */
  1035. int main(int argc, char **argv) {//初始化dbg
  1036.     Dwarf_Debug dbg = 0;
  1037.     int fd = -1;
  1038.     const char *filepath = "";
  1039.     char p[255];
  1040.     int res = DW_DLV_ERROR;
  1041.     Dwarf_Error error;
  1042.     Dwarf_Handler errhand = 0;
  1043.     Dwarf_Ptr errarg = 0;

  1045.     if (argc < 2)
  1046.         fd = 0;
  1047.     else
  1048.     {
  1049.         filepath = argv[1];
  1050.         fd = open(filepath, O_RDONLY);
  1051.     }
  1052.     if (fd <= 0)
  1053.     {
  1054.         printf("Failure attempting to open \"%s\"\n", filepath);
  1055.         exit(1);
  1056.     }
  1057.     res = dwarf_init(fd, DW_DLC_READ, errhand, errarg, &dbg, &error);
  1058.     if (res != DW_DLV_OK) {
  1059.         printf("Giving up, cannot do DWARF processing\n");
  1060.         exit(1);
  1061.     }
  1062.     read_cu_list(dbg);//解析工作
  1063.     res = dwarf_finish(dbg, &error);
  1064.     if (res != DW_DLV_OK) {
  1065.         printf("dwarf_finish failed!\n");
  1066.     }
  1067.     close(fd);
  1068.     sprintf(p,"%s.dwarf",filepath);
  1069.     if(asd.global || asd.sub_link)
  1070.         save_to_file(p,&asd);
  1071.     //read_from_file(p,&asd);
  1072.     //print(asd);
  1073.     //print_pos(p);
  1074.     printf("end \n");
  1075.     return 0;
  1076. }


点击(此处)折叠或打开

  1. #include <sys/types.h>
  2. #include <sys/stat.h>
  3. #include <fcntl.h>
  4. #include <stdlib.h>
  5. #include <unistd.h>
  6. #include <stdio.h>
  7. #include <errno.h>
  8. #include <string.h>
  9. #include "dwarf.h"
  10. #include "libdwarf.h"

  12. #define printf(line, ...) ; //禁用所有的printf

  14. static const char *const dwarf_regnames_i386[] =
  15. {
  16.   "eax", "ecx", "edx", "ebx",
  17.   "esp", "ebp", "esi", "edi",
  18.   "eip", "eflags", NULL,
  19.   "st0", "st1", "st2", "st3",
  20.   "st4", "st5", "st6", "st7",
  21.   NULL, NULL,
  22.   "xmm0", "xmm1", "xmm2", "xmm3",
  23.   "xmm4", "xmm5", "xmm6", "xmm7",
  24.   "mm0", "mm1", "mm2", "mm3",
  25.   "mm4", "mm5", "mm6", "mm7",
  26.   "fcw", "fsw", "mxcsr",
  27.   "es", "cs", "ss", "ds", "fs", "gs", NULL, NULL,
  28.   "tr", "ldtr"
  29. };//寄存器顺序+名字，从GDB源代码里copy过来的。。。

  31. static const char *const dwarf_base_type[]=
  32. {
  33.     "void",
  34.     "unsigned int", "unsigned char"    ,"short unsigned int",
  35.     "long unsigned int", "signed char", "short int",
  36.     "int", "long long int", "long long unsigned int",
  37.     "long int", "char", "union", "struct"
  38. }; // 11个C基本类型 + 联合体 + 结构体 + void 没了 C就这么多了
  39. #pragma pack(1)
  40. struct sub
  41. {
  42.     char name[8]; //函数名称
  43.     unsigned short level;//函数位于dwarf信息的第几层
  44.     unsigned char type;//返回值类型，对应dwarf_base_type结构
  45.     unsigned int low_pc;//函数的起始地址
  46.     unsigned int high_pc;//函数的结束地址
  47.     struct loc *loc;//函数执行期间寄存器偏移信息
  48.     struct var *var;//函数内的变量信息
  49.     struct sub *next;//指向下一个sub结构的单链表
  50. };

  52. struct loc
  53. {
  54.     unsigned int begin;//偏移开始地址
  55.     unsigned int end;//偏移结束地址
  56.     unsigned char reg;// *data -0x70 对应上面的寄存器表 其实X86 -O0编译也就4、5两个值
  57.     unsigned short base; // *(data+1)便宜值
  58.     struct loc *next;//指向下一个loc结构的单链表
  59. };

  61. struct var
  62. {
  63.     char name[8];//变量名字
  64.     unsigned int array; // 数组长度，0表示不是数组
  65.     unsigned char points; //这个变量是几层指针
  66.     unsigned char type; //变量类型，对应dwarf_base_type结构
  67.     unsigned int len;//变量类型长度
  68.     unsigned char loc_type; //变量地址类型
  69.     unsigned int loc;//变量地址数据，具体含义由loc_type确定
  70.     struct var *next;//指向下一个var结构的单链表
  71. };

  73. struct info
  74. {
  75.     struct sub * sub_link;//解析过程保存函数链表
  76.     struct var * global;//解析过程中保存全局变量链表
  77. };
  78. #pragma pack()

  80. struct info asd; ///// 在内存中以链表形式保存提取到的信息

  82. unsigned int cu_low_pc;//当前正在处理的编译单元的起始地址
  83. int is_new_cu;//进入新的编译单元
  84. /*******************************************************************************
  85.   *函数名称:static void get_addr(Dwarf_Attribute attr, Dwarf_Addr *val)
  86.   *函数功能:提取直接地址类型属性条目中保存的地址
  87.   *输入参数:
  88.     @Dwarf_Attribute attr:地址类型属性条目
  89.   *输出参数:
  90.     @Dwarf_Addr *val：条目中包含的地址
  91.   *函数返回值:无
  92.   *其他:
  93. *******************************************************************************/
  94. static void get_addr(Dwarf_Attribute attr, Dwarf_Addr *val) {
  95.     Dwarf_Error error = 0;
  96.     int res;
  97.     Dwarf_Addr uval = 0;
  98.     res = dwarf_formaddr(attr, &uval, &error);
  99.     if (res == DW_DLV_OK)
  100.         *val = uval;
  101. }
  102. /*******************************************************************************
  103.   *函数名称:static struct sub *new_sub(char* name,unsigned int low,unsigned int high)
  104.   *函数功能:申请一个函数信息块内存空间，并赋值
  105.   *输入参数:
  106.     @char* name:函数的名称
  107.     @unsigned int low：函数的起始地址
  108.     @unsigned int high：函数的结束地址
  109.   *输出参数:无
  110.   *函数返回值:struct sub *：申请的信息块地址
  111.   *其他:
  112. *******************************************************************************/
  113. static struct sub *new_sub(char* name,unsigned int low,unsigned int high)
  114. {
  115.     struct sub *tmp_sub = NULL;
  116.     tmp_sub = (struct sub*) malloc(sizeof(struct sub));//申请地址
  117.     if(tmp_sub)//成功的话，填充结构体信息
  118.     {
  119.         memset(tmp_sub,0,sizeof(struct sub));
  120.         if(name)
  121.             memcpy(tmp_sub->name,name,strlen(name)>8?8:strlen(name));
  122.         tmp_sub->low_pc = low;
  123.         tmp_sub->high_pc = high;
  124.         return tmp_sub;
  125.     }
  126.     else//失败返回空
  127.         return NULL;
  128. }
  129. /*******************************************************************************
  130.   *函数名称:static void get_loc_list(Dwarf_Debug dbg, Dwarf_Die die, struct sub *sub)
  131.   *函数功能:解析一个函数类型die的下挂的寄存器偏移信息，保存到sub->loc链表中
  132.   *输入参数:
  133.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  134.     @Dwarf_Die die：需要被解析的一个函数类型die
  135.     @struct sub *sub：函数DIE对应的信息块指针
  136.   *输出参数:无
  137.   *函数返回值:无
  138.   *其他:dwarf_ 开头的函数都是libdwarf库提供的函数
  139. *******************************************************************************/
  140. static void get_loc_list(Dwarf_Debug dbg, Dwarf_Die die, struct sub *sub)
  141. {
  142.     Dwarf_Unsigned offset=0;
  143.     Dwarf_Error error = 0;
  144.     Dwarf_Addr hipc_off;
  145.     Dwarf_Addr lopc_off;
  146.     Dwarf_Ptr data;
  147.     Dwarf_Unsigned entry_len;
  148.     Dwarf_Error err;
  149.     int res;
  150.     Dwarf_Unsigned next_entry;
  151.     Dwarf_Attribute t_attr;
  152.     struct loc *tmp=NULL,*pos;

  154.     res = dwarf_attr(die, DW_AT_frame_base, &t_attr, &error);//使用libdwarf库解析条目属性
  155.     if (res == DW_DLV_OK)
  156.     {
  157.         res = dwarf_formudata(t_attr, &offset, &error);//使用libdwarf库获取属性对应的条目链
  158.         if (res == DW_DLV_OK)
  159.             for(;;)
  160.                 {
  161.                     res = dwarf_get_loclist_entry(dbg,offset,&hipc_off,&lopc_off,&data,&entry_len,&next_entry,&err);//遍历所有条目
  162.                     if (res == DW_DLV_OK)
  163.                     {//每成功取出一个条目
  164.                         if(entry_len == 0 )
  165.                             break;
  166.                         if(entry_len > 1 )
  167.                         {
  168.                         tmp = (struct loc*) malloc(sizeof(struct loc));//申请内存
  169.                         if(tmp)
  170.                         {
  171.                             memset(tmp,0,sizeof(struct loc));
  172.                             tmp ->begin = cu_low_pc + lopc_off;
  173.                             tmp ->end = cu_low_pc + hipc_off;
  174.                             tmp ->reg = (unsigned short)*(char*)data;//保存条目信息
  175.                             if(entry_len == 2)
  176.                                 tmp ->base = (unsigned short)*(char *)(data+1);
  177.                             else
  178.                                 tmp ->base = (unsigned short)*(unsigned short *)(data+1);
  179.                             if(sub->loc)
  180.                             {
  181.                                 pos = sub->loc;//加入当前处理的函数的loc链表中
  182.                                 while(pos->next)
  183.                                     pos = pos->next;
  184.                                 pos->next = tmp;
  185.                             }
  186.                             else
  187.                                 sub->loc = tmp;
  188.                         }
  189.                         else break;
  190.                         }
  191.                         offset = next_entry;
  192.                         continue;
  193.                     }
  194.                     else break;
  195.                 }
  196.     }
  197. }
  198. /*******************************************************************************
  199.   *函数名称:static Dwarf_Die get_die(Dwarf_Debug dbg, Dwarf_Attribute attr, Dwarf_Half* tag)
  200.   *函数功能:通过偏移量取die和对应的标签
  201.   *输入参数:
  202.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  203.     @Dwarf_Attribute attr：需要被操作的属性结构
  204.     @Dwarf_Half* tag：偏移值
  205.   *输出参数:无
  206.   *函数返回值:Dwarf_Die：找到的DIE的指针
  207.   *其他:dwarf_ 开头的函数都是libdwarf库提供的函数
  208. *******************************************************************************/
  209. static Dwarf_Die get_die(Dwarf_Debug dbg, Dwarf_Attribute attr, Dwarf_Half* tag) {//通过偏移量取die和对应的标签
  210.     Dwarf_Error error = 0;
  211.     int res;
  212.     Dwarf_Off offset;
  213.     Dwarf_Die typeDie = 0;
  214.     res = dwarf_global_formref(attr, &offset, &error);
  215.     if (res == DW_DLV_OK) {
  216.         res = dwarf_offdie(dbg, offset, &typeDie, &error);
  217.         if (res == DW_DLV_OK) {
  218.             res = dwarf_tag(typeDie, tag, &error);
  219.             if (res == DW_DLV_OK) {
  220.                 return typeDie;
  221.             }
  222.         }
  223.     }
  224.     return NULL ;
  225. }
  226. /*******************************************************************************
  227.   *函数名称:static void print_subprog(Dwarf_Debug dbg, Dwarf_Die die, struct sub **tmp_sub)
  228.   *函数功能:解析一个函数类型die的全部信息，保存到tmp_sub中
  229.   *输入参数:
  230.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  231.     @Dwarf_Die die：需要被解析的一个函数类型die
  232.   *输出参数:
  233.     @struct sub **tmp_sub：返回函数信息块指针
  234.   *函数返回值:无
  235.   *其他:无
  236. *******************************************************************************/
  237. static void print_subprog(Dwarf_Debug dbg, Dwarf_Die die, struct sub **tmp_sub) {
  238.     int res;
  239.     Dwarf_Error error = 0;
  240.     Dwarf_Addr lowpc = 0;
  241.     Dwarf_Addr highpc = 0;
  242.     Dwarf_Attribute t_attr;
  243.     Dwarf_Half tag;
  244.     Dwarf_Die org_die = NULL;
  245.     char *name;
  246.     res = dwarf_attr(die, DW_AT_abstract_origin, &t_attr, &error);
  247.     if (res == DW_DLV_OK)
  248.         org_die = get_die(dbg, t_attr, &tag);
  249.     else org_die = die;
  250.     res = dwarf_diename(org_die, &name, &error);//获取函数的名称
  251.     if (res != DW_DLV_OK) {
  252.         name = NULL;
  253.     }
  254.     res = dwarf_attr(die, DW_AT_low_pc, &t_attr, &error);
  255.     if (res == DW_DLV_OK) // 获取函数的开始地址
  256.         get_addr(t_attr, &lowpc);
  257.     res = dwarf_attr(die, DW_AT_high_pc, &t_attr, &error);
  258.     if (res == DW_DLV_OK) // 获取函数的结束地址
  259.         get_addr(t_attr, &highpc);
  260.     *tmp_sub = new_sub(name,(unsigned int)lowpc,(unsigned int)highpc);//申请新的sub结构
  261.     //目前只考虑32位的，unsigned int就行
  262.     //}
  263. }

  265. /*******************************************************************************
  266.   *函数名称:static int get_array_length(Dwarf_Debug dbg, Dwarf_Die die, int *length)
  267.   *函数功能:计算一个数组属性的DIE对应的数组的具体长度
  268.   *输入参数:
  269.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  270.     @Dwarf_Die die：需要被计算的die
  271.   *输出参数:
  272.     @int *length：返回长度值
  273.   *函数返回值:无
  274.   *其他:
  275. *******************************************************************************/
  276. static int get_array_length(Dwarf_Debug dbg, Dwarf_Die die, int *length) {//数组类型的长度。。
  277.     int res;
  278.     Dwarf_Error error;
  279.     Dwarf_Die child;
  280.     Dwarf_Attribute tmp;
  281.     res = dwarf_child(die, &child, &error);
  282.     *length = 1;
  283.     Dwarf_Unsigned utmp;
  284.     if (res == DW_DLV_OK) {
  285.         while (1) {
  286.             res = dwarf_attr(child, DW_AT_upper_bound, &tmp, &error);
  287.             if (res == DW_DLV_OK) {
  288.                 res = dwarf_formudata(tmp, &utmp, &error);
  289.                 if (res != DW_DLV_OK)
  290.                     return DW_DLV_ERROR;
  291.                 else
  292.                     *length *= (utmp + 1);
  293.             }
  294.             res = dwarf_siblingof(dbg, child, &child, &error);
  295.             if (res == DW_DLV_ERROR)
  296.                 return DW_DLV_ERROR;
  297.             if (res == DW_DLV_NO_ENTRY)
  298.                 return DW_DLV_OK;
  299.         }
  300.     }
  301.     return DW_DLV_ERROR;
  302. }
  303. /*******************************************************************************
  304.   *函数名称:static void get_type(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *arr, unsigned short *points, unsigned short *type, unsigned int *type_len)
  305.   *函数功能:解析一个变量类型描述类型die的全部信息
  306.   *输入参数:
  307.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  308.     @DDwarf_Attribute attr：需要被解析的一个变量类型die
  309.   *输出参数:
  310.     @unsigned int *arr：是否是数组类型，以及数组长度
  311.     @unsigned short *points：是否时指针类型，以及指针深度，和arr同时非0，表明是一个指针数组，目前不考虑这种情况
  312.     @unsigned short *type：具体类型值，定义对应最上面dwarf_base_type数组
  313.     @unsigned int *type_len：类型长度
  314.   *函数返回值:无
  315.   *其他:具体参见DWARF Debugging Information Format.pdf文档中“类型条目”书签标记的位置
  316.        简单来说，attr是个类型描述的开头，他指向一个属性链条，每个点上保存一个属性，便利这个链条确定最终的类型
  317. *******************************************************************************/
  318. static void get_type(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *arr, unsigned short *points, unsigned short *type, unsigned int *type_len) {
  319.     char *name = 0;
  320.     Dwarf_Half tag;
  321.     Dwarf_Unsigned size;
  322.     Dwarf_Error error = 0;
  323.     Dwarf_Attribute t_attr;
  324.     int res;
  325.     int length;
  326.     Dwarf_Die typeDie = get_die(dbg, attr, &tag);
  327.     if (typeDie) {
  328.         switch (tag) {//只处理了和标准C相关的类型
  329.         case DW_TAG_subroutine_type://函数指针，对比没意义，就不管了
  330.             *type = 255;
  331.             break;
  332.         case DW_TAG_typedef://对应C语言中typedef关键字
  333.             goto next_type;
  334.         case DW_TAG_const_type://对应C语言中const关键字
  335.             goto next_type;
  336.         case DW_TAG_pointer_type://对应C语言中变量定义中的 * 指针符
  337.             *points += 1;
  338.             goto next_type;
  339.         case DW_TAG_volatile_type://对应C语言中volatile关键字
  340.             next_type: res = dwarf_attr(typeDie, DW_AT_type, &t_attr, &error);
  341.             if (res == DW_DLV_OK) {
  342.                 get_type(dbg, t_attr, arr, points, type, type_len);
  343.             } else
  344.                 *type = 1;
  345.             break;
  346.         case DW_TAG_base_type://对应dwarf_base_type定义的C基本变量类型
  347.             res = dwarf_diename(typeDie, &name, &error);
  348.             if (res == DW_DLV_OK) {
  349.                 for(res = 0;res<sizeof(dwarf_base_type)/sizeof(char *);res++)
  350.                     if(!strncmp(name,dwarf_base_type[res],strlen(dwarf_base_type[res])))
  351.                     {
  352.                         *type = res+1;
  353.                         break;
  354.                     }
  355.                 res = dwarf_bytesize(typeDie, &size, &error);
  356.                 if (res == DW_DLV_OK) {
  357.                     *type_len = ((unsigned int)size);
  358.                 } else
  359.                     *type_len = 0;
  360.             } else
  361.                 *type = 0;
  362.             break;
  363.         case DW_TAG_array_type://对应C语言中的数组定义
  364.             res = get_array_length(dbg, typeDie, &length);
  365.             if (res == DW_DLV_OK)
  366.                 *arr = length;
  367.             goto next_type;
  368.         case DW_TAG_union_type://对应C语言中联合体定义
  369.             *type = sizeof(dwarf_base_type)/sizeof(char *) -1;
  370.             goto get_size;
  371.         case DW_TAG_structure_type://对应C语言中结构体定义
  372.             *type = sizeof(dwarf_base_type)/sizeof(char *);
  373.             get_size: res = dwarf_bytesize(typeDie, &size, &error);
  374.             if (res == DW_DLV_OK)
  375.                 *type_len = (unsigned int)size;
  376.             else
  377.                 *type_len = 0;
  378.             break;
  379.         default://非C语言类型
  380.             *type = 0;
  381.             break;
  382.         }
  383.     }
  384. }
  385. /*******************************************************************************
  386.   *函数名称:static void get_location(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *loc_type, unsigned int *loc)
  387.   *函数功能:解析一个地址类型die的全部信息
  388.   *输入参数:
  389.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  390.     @Dwarf_Attribute attr：需要被解析的一个地址类型die
  391.   *输出参数:
  392.     @unsigned int *loc_type：返回die标签包含的地址的地址类型
  393.     @unsigned int *loc：返回die标签包含的地址的具体地址数值
  394.   *函数返回值:无
  395.   *其他:地址类型和地址数值包含[直接地址:32位线性地址]、[寄存器基址寻址:偏移值]等多个可能的赋值含义组合
  396.      具体参见DWARF Debugging Information Format.pdf文档中“位置描述”书签标记的位置
  397. *******************************************************************************/
  398. static void get_location(Dwarf_Debug dbg, Dwarf_Attribute attr, unsigned int *loc_type, unsigned int *loc) {
  399.     Dwarf_Error error = 0;
  400.     int res;
  401.     Dwarf_Locdesc *llbuf;
  402.     Dwarf_Signed lcnt;
  403.     res = dwarf_loclist(attr, &llbuf, &lcnt, &error);
  404.     if (res == DW_DLV_OK) {
  405.         *loc_type = (unsigned int) llbuf->ld_s->lr_atom;
  406.         *loc = (unsigned int)llbuf->ld_s->lr_number;
  407.         dwarf_dealloc(dbg, llbuf->ld_s, DW_DLA_LOC_BLOCK);
  408.         dwarf_dealloc(dbg, llbuf, DW_DLA_LOCDESC);
  409.     }
  410. }
  411. /*******************************************************************************
  412.   *函数名称:static void print_variable(Dwarf_Debug dbg, Dwarf_Die die, struct var ** tmp_loc)
  413.   *函数功能:解析一个变量类型die的全部信息，保存到tmp_loc中
  414.   *输入参数:
  415.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  416.     @Dwarf_Die die：需要被解析的一个变量类型die
  417.   *输出参数:
  418.     @struct var ** tmp_loc：返回变量信息块指针
  419.   *函数返回值:无
  420.   *其他:无
  421. *******************************************************************************/
  422. static void print_variable(Dwarf_Debug dbg, Dwarf_Die die, struct var ** tmp_loc) {
  423.     int res;
  424.     Dwarf_Error error = 0;
  425.     Dwarf_Attribute t_attr;
  426.     unsigned int arr, type_len, loc_type, loc;
  427.     unsigned short points, type ;
  428.     struct var * tmp =NULL ;
  429.     Dwarf_Die org_die = NULL;
  430.     Dwarf_Half tag;
  431.     char *name;

  433.     *tmp_loc = tmp;
  434.     res = dwarf_attr(die, DW_AT_abstract_origin, &t_attr, &error);
  435.     if (res == DW_DLV_OK)
  436.         org_die = get_die(dbg, t_attr, &tag);
  437.     else org_die = die;
  438.     res = dwarf_diename(org_die, &name, &error);
  439.     if (res != DW_DLV_OK) {
  440.         name = NULL;
  441.     }

  443.     res = dwarf_attr(die, DW_AT_declaration, &t_attr, &error);
  444.     if (res != DW_DLV_OK) { //若res == DW_DLV_OK，则是extern变量,没有位置信息，就不再保存
  445.         loc_type = loc =0;
  446.         arr = type_len = 0;
  447.         points = type = 0;

  449.         res = dwarf_attr(die, DW_AT_location, &t_attr, &error);
  450.         if (res == DW_DLV_OK) //获取变量的位置信息
  451.             get_location(dbg, t_attr, &loc_type, &loc);

  453.         if(loc_type == 0)
  454.         {
  455.             printf("no loc info !!\n");
  456.             return;
  457.         }

  459.         res = dwarf_attr(org_die, DW_AT_type, &t_attr, &error);
  460.         if (res == DW_DLV_OK) // 确定变量的类型以及长度
  461.             get_type(dbg, t_attr, &arr, &points, &type, &type_len);

  463.         if(type == 0)
  464.         {
  465.             printf("error in get_type \n ");
  466.             return;
  467.         }
  468.         if(type == 255)
  469.         {
  470.             printf("DW_TAG_subroutine_type !! \n");
  471.             return;
  472.         }
  473.         tmp = (struct var*) malloc(sizeof(struct var));//申请新的var结构体存放变量信息
  474.         if (tmp)
  475.         {
  476.             memset(tmp,0,sizeof(struct var));
  477.             if(name)
  478.                 memcpy(tmp->name,name,strlen(name)>8?8:strlen(name));
  479.             tmp->array = arr;
  480.             tmp->points = points;
  481.             tmp->type = type;
  482.             tmp->len = type_len;
  483.             tmp->loc_type = loc_type;
  484.             tmp->loc = loc;
  485.             *tmp_loc = tmp;
  486.         }
  487.     }
  488. }
  489. /*******************************************************************************
  490.   *函数名称:static void get_die_and_siblings(Dwarf_Debug dbg, Dwarf_Die in_die,int in_level)
  491.   *函数功能:递归遍历整个DWARF调试信息树，取出其中的变量、寄存器偏移和变量信息
  492.   *输入参数:
  493.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  494.     @Dwarf_Die in_die：需要被遍历的头一个die
  495.     @int in_level：便利处于第几层
  496.   *输出参数:无
  497.   *函数返回值:无
  498.   *其他:无
  499. *******************************************************************************/
  500. static void get_die_and_siblings(Dwarf_Debug dbg, Dwarf_Die in_die,
  501.         int in_level) {
  502.     int res = DW_DLV_ERROR;
  503.     Dwarf_Die cur_die = in_die;
  504.     Dwarf_Die child = 0;
  505.     Dwarf_Error error;
  506.     Dwarf_Half tag;
  507.     Dwarf_Attribute t_attr;
  508.     Dwarf_Unsigned inline_tag;
  509.     Dwarf_Die sib_die = 0;
  510.     struct var *t_var , *p_var;
  511.     struct sub *t_sub , *p_sub;
  512.     struct todo
  513.     {
  514.         Dwarf_Die d;
  515.         Dwarf_Half tag;
  516.         struct todo *n;
  517.     }*todo_list,*t_todo,*p_todo;

  519.     todo_list = NULL;
  520.     for(;;)
  521.     {
  522.         res = dwarf_tag(cur_die, &tag, &error); // 取标签
  523.         if (res != DW_DLV_OK) {
  524.             printf("Error in dwarf_tag , level %d \n", in_level);
  525.             exit(1);
  526.         }
  527.         if(in_level == 1) //由于标准C不允许函数嵌套定义，SO ，1层只有全局变量和函数顶层
  528.         {
  529.             if(tag == DW_TAG_variable) //全局变量
  530.             {
  531.                 print_variable(dbg, cur_die, &t_var);
  532.                 if(asd.global) //放进全局链结尾去
  533.                 {
  534.                     p_var = asd.global;
  535.                     while(p_var->next)
  536.                         p_var = p_var->next;
  537.                     p_var->next = t_var;
  538.                 }
  539.                 else
  540.                     asd.global = t_var;
  541.             }
  542.             if(tag == DW_TAG_subprogram) //函数，判断是否时inline 然后加进SUB链 然后进child取局部变量和包含的块和inlined
  543.             {
  544.                 res = dwarf_attr(cur_die, DW_AT_inline, &t_attr, &error);
  545.                 if(res == DW_DLV_OK)
  546.                 {
  547.                     res = dwarf_formudata(t_attr, &inline_tag, &error);
  548.                     if(res != DW_DLV_OK)
  549.                         exit(1);
  550.                     if(inline_tag == DW_INL_inlined || inline_tag == DW_INL_declared_inlined)
  551.                         goto next_sib;//是inline函数 就出去继续循环 后面把非inline函数加进SUB
  552.                 }
  553.                 print_subprog(dbg, cur_die, &t_sub);
  554.                 if(t_sub)
  555.                 {
  556.                     if(is_new_cu)
  557.                     {
  558.                         is_new_cu = 0;
  559.                         cu_low_pc = t_sub->low_pc;
  560.                     }
  561.                     t_sub->level = in_level;
  562.                     t_sub->type = DW_TAG_subprogram;
  563.                     get_loc_list(dbg, cur_die, t_sub); //把loc信息添加进去
  564.                     if(asd.sub_link) //放进sub链结尾去
  565.                     {
  566.                         p_sub = asd.sub_link;
  567.                         while(p_sub->next)
  568.                             p_sub = p_sub->next;
  569.                         p_sub->next = t_sub;
  570.                     }
  571.                     else
  572.                         asd.sub_link = t_sub;

  574.                     res = dwarf_child(cur_die, &child, &error);
  575.                     if (res == DW_DLV_ERROR)
  576.                     {
  577.                         printf("Error in dwarf_child , level %d \n", in_level);
  578.                         exit(1);
  579.                     }
  580.                     if (res == DW_DLV_OK)
  581.                         get_die_and_siblings(dbg, child, in_level + 1); //进入child 也就是>1的层
  582.                 }
  583.             }
  584.         }
  585.         else if(in_level > 1) //大于1层的地方只有局部变量和块、inlined
  586.         {
  587.             if (tag == DW_TAG_formal_parameter || tag == DW_TAG_variable) //局部变量，挂到sub链最后一个的VAR指针上
  588.             {
  589.                 print_variable(dbg, cur_die, &t_var);
  590.                 p_sub = asd.sub_link;
  591.                 while(p_sub->next)
  592.                     p_sub = p_sub->next;
  593.                 if(p_sub->var)
  594.                 {
  595.                     p_var = p_sub->var;
  596.                     while(p_var->next)
  597.                         p_var = p_var->next;
  598.                     p_var->next = t_var;
  599.                 }
  600.                 else
  601.                     p_sub->var = t_var;
  602.             }
  603.             if(tag == DW_TAG_lexical_block || tag == DW_TAG_inlined_subroutine) // 先放到todo_list里面在for外面单独处理
  604.             {
  605.                 t_todo = (struct todo *) malloc(sizeof(struct todo));
  606.                 if(t_todo)
  607.                 {
  608.                     memset(t_todo,0,sizeof(struct todo));
  609.                     t_todo->d = cur_die;
  610.                     t_todo->tag = tag;
  611.                     if(todo_list)
  612.                     {
  613.                         p_todo = todo_list;
  614.                         while(p_todo->n)
  615.                             p_todo = p_todo->n;
  616.                         p_todo->n = t_todo;
  617.                     }
  618.                     else
  619.                         todo_list = t_todo;
  620.                 }
  621.             }
  622.         }
  623.         else
  624.         {//0层是变编译头信息，没啥用就直接进child
  625.             res = dwarf_child(cur_die, &child, &error);
  626.             if (res == DW_DLV_ERROR)
  627.             {
  628.                 printf("Error in dwarf_child , level %d \n", in_level);
  629.                 exit(1);
  630.             }
  631.             if (res == DW_DLV_OK)
  632.             {
  633.                 is_new_cu = 1;
  634.                 get_die_and_siblings(dbg, child, in_level + 1);
  635.             }
  636.         }
  637.         next_sib:
  638.         sib_die = 0;
  639.         res = dwarf_siblingof(dbg, cur_die, &sib_die, &error);
  640.         if (res == DW_DLV_ERROR) {
  641.             printf("Error in dwarf_siblingof , level %d \n", in_level);
  642.             exit(1);
  643.         }
  644.         if (res == DW_DLV_NO_ENTRY)
  645.             break;

  647.         if (cur_die != in_die && in_level < 2)
  648.             dwarf_dealloc(dbg, cur_die, DW_DLA_DIE);

  650.         cur_die = sib_die;
  651.     }
  652.     if(todo_list)
  653.     {
  654.         t_todo = p_todo = todo_list;
  655.         todo_list = NULL;
  656.         while(p_todo)
  657.         {
  658.             print_subprog(dbg, p_todo->d, &t_sub);
  659.             if(t_sub)
  660.             {
  661.                 t_sub->level = in_level;
  662.                 t_sub->type = p_todo->tag;
  663.                 if(asd.sub_link) //放进sub链结尾去
  664.                 {
  665.                     p_sub = asd.sub_link;
  666.                     while(p_sub->next)
  667.                         p_sub = p_sub->next;
  668.                     p_sub->next = t_sub;
  669.                 }
  670.                 else
  671.                     exit(1); //若在这里asd.sub_link依然为空，那么肯定是有错误了，因为只有在>1的时候才能进到这里

  673.                 res = dwarf_child(cur_die, &child, &error);
  674.                 if (res == DW_DLV_ERROR)
  675.                 {
  676.                     printf("Error in dwarf_child , level %d \n", in_level);
  677.                     exit(1);
  678.                 }
  679.                 if (res == DW_DLV_OK)
  680.                     get_die_and_siblings(dbg, child, in_level + 1); //进入child
  681.             }
  682.             p_todo = p_todo->n;
  683.             dwarf_dealloc(dbg, t_todo->d , DW_DLA_DIE);
  684.             free(t_todo);
  685.             t_todo = p_todo;
  686.         }
  687.     }
  688. }

  690. /*******************************************************************************
  691.   *函数名称:static void read_cu_list(Dwarf_Debug dbg)
  692.   *函数功能:遍历调试信息中包含的全部CU头，提取其中的信息
  693.   *输入参数:
  694.     @Dwarf_Debug dbg:libdwarf库的总数据结构
  695.   *输出参数:无
  696.   *函数返回值:无
  697.   *其他:无
  698. *******************************************************************************/
  699. static void read_cu_list(Dwarf_Debug dbg) {//一次取出一个CU头
  700.     Dwarf_Unsigned cu_header_length = 0;
  701.     Dwarf_Half version_stamp = 0;
  702.     Dwarf_Unsigned abbrev_offset = 0;
  703.     Dwarf_Half address_size = 0;
  704.     Dwarf_Unsigned next_cu_header = 0;
  705.     Dwarf_Error error;

  707.     for (;;) {
  708.         Dwarf_Die no_die = 0;
  709.         Dwarf_Die cu_die = 0;
  710.         int res = DW_DLV_ERROR;
  711.         res = dwarf_next_cu_header(dbg, &cu_header_length, &version_stamp,
  712.                 &abbrev_offset, &address_size, &next_cu_header, &error);//取出一个CU
  713.         if (res == DW_DLV_ERROR) {
  714.             printf("Error in dwarf_next_cu_header\n");
  715.             exit(1);
  716.         }
  717.         if (res == DW_DLV_NO_ENTRY) {
  718.             /* Done. */
  719.             return;
  720.         }
  721.         /* The CU will have a single sibling, a cu_die. */
  722.         res = dwarf_siblingof(dbg, no_die, &cu_die, &error);
  723.         if (res == DW_DLV_ERROR) {
  724.             printf("Error in dwarf_siblingof on CU die \n");
  725.             exit(1);
  726.         }
  727.         if (res == DW_DLV_NO_ENTRY) {
  728.             /* Impossible case. */
  729.             printf("no entry! in dwarf_siblingof on CU die \n");
  730.             exit(1);
  731.         }
  732.         get_die_and_siblings(dbg, cu_die, 0);//拿到CU后，进入第0层，开始递归遍历
  733.         dwarf_dealloc(dbg, cu_die, DW_DLA_DIE);
  734.     }
  735. }
  736. /*******************************************************************************
  737.   *函数名称:static void save_to_file(char *path, struct info *asd)
  738.   *函数功能:将全局链表中存放的调试信息保存到文件中
  739.   *输入参数:
  740.     @char *path:保存文件的路径
  741.     @struct info *asd:要保存的信息所在的链表
  742.   *输出参数:无
  743.   *函数返回值:无
  744.   *其他:无
  745. *******************************************************************************/
  746. static void save_to_file(char *path, struct info *asd)
  747. {
  748.     FILE * f ,* fpos;
  749.     char buf[255];
  750.     static const int size[] =
  751.     {
  752.             sizeof(struct sub) - 3 * sizeof(void *),
  753.             sizeof(struct loc) - sizeof(void *),
  754.             sizeof(struct var) - sizeof(void *)
  755.     };
  756.     static const unsigned char tag[] =
  757.     {
  758.             0x00,0x01,0x02,0x03
  759.     };
  760.     struct sub *p_sub_1, *p_sub_2;
  761.     struct loc *p_loc_1, *p_loc_2;
  762.     struct var *p_var_1, *p_var_2;

  764.     unsigned int pos;
  765.     pos = 0;
  766.     sprintf(buf,"%s.pos",path);//索引文件文件名
  767.     f = fopen(path,"w");//打开调试信息文件
  768.     fpos = fopen(buf,"w");//打开索引文件
  769.     if(f)
  770.     {
  771.         p_var_1 = asd->global;
  772.         while(p_var_1)
  773.         {//首先保存全局变量信息到调试信息文件
  774.             fwrite(tag+3, 1, 1, f);
  775.             fwrite(p_var_1, size[2], 1, f);
  776.             fwrite(tag, 1, 1, f);
  777.             p_var_2 = p_var_1;
  778.             p_var_1 = p_var_1->next;
  779.             free(p_var_2);
  780.             pos += size[2] + 2;
  781.         }
  782.         fwrite(&pos,4,1,fpos);//记录全局变量信息长度到索引文件
  783.         asd->global = NULL;
  784.         p_sub_1 = asd->sub_link;
  785.         while(p_sub_1)
  786.         {//保存变量信息
  787.             fwrite(tag+1, 1, 1, f);
  788.             fwrite(p_sub_1, size[0], 1, f);
  789.             fwrite(tag, 1, 1, f);
  790.             fwrite(&p_sub_1->low_pc, sizeof(long), 1, fpos);//函数的开始地址写入索引文件
  791.             fwrite(&p_sub_1->high_pc, sizeof(long), 1, fpos);//函数的解释地址写入索引文件
  792.             fwrite(&pos,4,1,fpos);//函数在调试信息文件中的位置，写入索引文件
  793.             pos += size[0] + 2;
  794.             p_loc_1 = p_sub_1->loc;
  795.             while(p_loc_1)
  796.             {//变量执行期间寄存偏移情况
  797.                 fwrite(tag+2, 1, 1, f);
  798.                 fwrite(p_loc_1, size[1], 1, f);
  799.                 fwrite(tag, 1, 1, f);
  800.                 p_loc_2 = p_loc_1;
  801.                 p_loc_1 = p_loc_1->next;
  802.                 free(p_loc_2);
  803.                 pos += size[1] + 2;
  804.             }
  805.             p_var_1 = p_sub_1->var;
  806.             while(p_var_1)
  807.             {//函数的局部变量
  808.                 fwrite(tag+3, 1, 1, f);
  809.                 fwrite(p_var_1, size[2], 1, f);
  810.                 fwrite(tag, 1, 1, f);
  811.                 p_var_2 = p_var_1;
  812.                 p_var_1 = p_var_1->next;
  813.                 free(p_var_2);
  814.                 pos += size[2] + 2;
  815.             }
  816.             p_sub_2 = p_sub_1;
  817.             p_sub_1 = p_sub_1->next;
  818.             free(p_sub_2);
  819.         }
  820.         asd->sub_link = NULL;
  821.         fclose(f);//关闭，完成
  822.         fclose(fpos);
  823.     }
  824. }
  825. /*//一些测试函数
  826. static void read_from_file(char *path, struct info *asd)
  827. {//读取出来看文件是否正确
  828.     FILE * f;
  829.     static const int size[] =
  830.     {
  831.             sizeof(struct sub) - 3 * sizeof(void *),
  832.             sizeof(struct loc) - sizeof(void *),
  833.             sizeof(struct var) - sizeof(void *)
  834.     };

  836.     struct sub *p_sub_1, *p_sub_2;
  837.     struct loc *p_loc_1, *p_loc_2;
  838.     struct var *p_var_1, *p_var_2;
  839.     char t;
  840.     int is_global = 1;

  842.     f = fopen(path,"r");
  843.     if(f)
  844.     {
  845.         while(!feof(f))
  846.         {
  847.             fread(&t, 1, 1, f);
  848.             switch(t)
  849.             {
  850.             case 3:
  851.                 p_var_2 = (struct var *) malloc(sizeof(struct var));
  852.                 if(p_var_2)
  853.                 {
  854.                     memset(p_var_2, 0, sizeof(struct var));
  855.                     fread(p_var_2, size[2], 1, f);
  856.                     if(is_global)
  857.                     {
  858.                         if(asd->global)
  859.                         {
  860.                             p_var_1 = asd->global;
  861.                             while(p_var_1 ->next)
  862.                                 p_var_1 = p_var_1->next;
  863.                             p_var_1->next = p_var_2;
  864.                         }
  865.                         else
  866.                             asd->global = p_var_2;
  867.                     }
  868.                     else
  869.                     {
  870.                         p_sub_1 = asd->sub_link;
  871.                         while(p_sub_1->next)
  872.                             p_sub_1 = p_sub_1->next;
  873.                         if(p_sub_1->var)
  874.                         {
  875.                             p_var_1 = p_sub_1->var;
  876.                             while(p_var_1 ->next)
  877.                                 p_var_1 = p_var_1->next;
  878.                             p_var_1->next = p_var_2;
  879.                         }
  880.                         else
  881.                             p_sub_1->var = p_var_2;
  882.                     }
  883.                 }
  884.                 break;
  885.             case 1:
  886.                 p_sub_2 = (struct sub *) malloc(sizeof(struct sub));
  887.                 if(p_sub_2)
  888.                 {
  889.                     is_global = 0;
  890.                     memset(p_sub_2, 0, sizeof(struct sub));
  891.                     fread(p_sub_2, size[0], 1, f);
  892.                     if(asd->sub_link)
  893.                     {
  894.                         p_sub_1 = asd->sub_link;
  895.                         while(p_sub_1->next)
  896.                             p_sub_1 = p_sub_1->next;
  897.                         p_sub_1->next = p_sub_2;
  898.                     }
  899.                     else
  900.                         asd->sub_link = p_sub_2;
  901.                 }
  902.                 break;
  903.             case 2:
  904.                 p_loc_2 = (struct loc *) malloc(sizeof(struct loc));
  905.                 if(p_loc_2)
  906.                 {
  907.                     memset(p_loc_2, 0, sizeof(struct loc));
  908.                     fread(p_loc_2, size[1], 1, f);
  909.                     if(!asd->sub_link)
  910.                         exit(1);
  911.                     p_sub_1 = asd->sub_link;
  912.                     while(p_sub_1->next)
  913.                         p_sub_1 = p_sub_1->next;
  914.                     if(p_sub_1->loc)
  915.                     {
  916.                         p_loc_1 = p_sub_1->loc;
  917.                         while(p_loc_1 ->next)
  918.                             p_loc_1 = p_loc_1->next;
  919.                         p_loc_1->next = p_loc_2;
  920.                     }
  921.                     else
  922.                         p_sub_1->loc = p_loc_2;
  923.                 }
  924.                 break;
  925.             }
  926.             fread(&t, 1, 1, f);
  927.             if(t)
  928.                 exit(1);
  929.         }
  930.     }
  931. }

  933. static void print_pos(char *path)
  934. {//打印索引
  935.     FILE * f ,* fp;
  936.     char buf[255], *b,name[9];
  937.     unsigned int *bp;
  938.     int s,sp,pos;
  939.     sprintf(buf,"%s.pos",path);
  940.     f = fopen(path,"r");
  941.     fp = fopen(buf,"r");
  942.     fseek(f,0,2);
  943.     fseek(fp,0,2);
  944.     s = ftell(f);
  945.     sp = ftell(fp);
  946.     b = (char *) malloc(s);
  947.     bp = (unsigned int *) malloc(sp);
  948.     fseek(f,0,0);
  949.     fseek(fp,0,0);
  950.     fread(b,s,1,f);
  951.     fread(bp,s,1,fp);
  952.     fclose(f);
  953.     fclose(fp);
  954.     printf("全局比啊两数据长度:%d\n",*bp);
  955.     pos = 1;
  956.     while(pos < sp/4)
  957.     {
  958.         printf("low: %08x\n",*(bp+pos));
  959.         printf("hig: %08x\n",*(bp+pos+1));
  960.         memset(name,0,9);
  961.         memcpy(name,b+*(bp+pos+2)+1,8);
  962.         printf("name:%s\n",name);
  963.         pos+=3;
  964.     }
  965. }

  967. static void print(struct info asd)
  968. {//打印全部保存的调试信息
  969.     struct sub *p_sub_1;
  970.     struct loc *p_loc_1;
  971.     struct var *p_var_1;
  972.     char n[9];
  973.     p_var_1 = asd.global;
  974.     while(p_var_1)
  975.     {
  976.         memset(n,0,9);
  977.         memcpy(n,p_var_1->name,8);
  978.         printf("< 1 > 变量名: %s\n< 1 > ",n);
  979.         if ( DW_OP_addr == p_var_1->loc_type)
  980.             printf("直接地址: %x \n",(int) p_var_1->loc);
  981.         else if(p_var_1->loc_type >= DW_OP_breg0 && p_var_1->loc_type <= DW_OP_breg31)
  982.             printf("基址寻址: %d (%s)\n", ((int)p_var_1->loc), *(dwarf_regnames_i386+p_var_1->loc_type-DW_OP_breg0));
  983.         else if(p_var_1->loc_type >= DW_OP_reg0 && p_var_1->loc_type <= DW_OP_reg31)
  984.             printf("通用寄存器: reg%d \n",p_var_1->loc - DW_OP_reg0);
  985.         else if(p_var_1->loc_type == DW_OP_fbreg)
  986.             printf("loclist: %d \n",((int)p_var_1->loc));
  987.         else
  988.             printf("Unknow location \n");//不是C的不管丫的
  989.         printf("< %d > 数组: %d\n",1,p_var_1->array);
  990.         printf("< %d > 指针: %d\n",1,p_var_1->points);
  991.         printf("< %d > 类型: %s\n",1,dwarf_base_type[p_var_1->type - 1]);
  992.         printf("< 1 > 大小: %d\n\n",p_var_1->len);
  993.         p_var_1 = p_var_1->next;
  994.     }
  995.     p_sub_1 = asd.sub_link;
  996.     while(p_sub_1)
  997.     {
  998.         p_loc_1 = p_sub_1->loc;
  999.         p_var_1 = p_sub_1->var;
  1000.         memset(n,0,9);
  1001.         memcpy(n,p_sub_1->name,8);
  1002.         printf("< %d >函数名: %s\n",p_sub_1->level,p_sub_1->type == DW_TAG_subprogram?n:"局部块");
  1003.         printf("< %d >low_pc : 0x%08x \n",p_sub_1->level,p_sub_1->low_pc);
  1004.         printf("< %d >high_pc : 0x%08x \n\n",p_sub_1->level,p_sub_1->high_pc);
  1005.         while(p_loc_1)
  1006.         {
  1007.             printf("< %d > loclist: 0x%08x -- 0x%08x : (%s) %d \n",p_sub_1->level,p_loc_1->begin,p_loc_1->end,*(dwarf_regnames_i386+(p_loc_1->reg>0x70?p_loc_1->reg-0x70:10)),p_loc_1->base);
  1008.             p_loc_1 = p_loc_1->next;
  1009.         }
  1010.         while(p_var_1)
  1011.         {
  1012.             memset(n,0,9);
  1013.             memcpy(n,p_var_1->name,8);
  1014.             printf("\n< %d > 变量名: %s\n< %d > ",p_sub_1->level+1,n,p_sub_1->level+1);
  1015.             if ( DW_OP_addr == p_var_1->loc_type)
  1016.                 printf("直接地址: %x \n",(int) p_var_1->loc);
  1017.             else if(p_var_1->loc_type >= DW_OP_breg0 && p_var_1->loc_type <= DW_OP_breg31)
  1018.                 printf("基址寻址: %d (%s)\n", ((int)p_var_1->loc), *(dwarf_regnames_i386+p_var_1->loc_type-DW_OP_breg0));
  1019.             else if(p_var_1->loc_type >= DW_OP_reg0 && p_var_1->loc_type <= DW_OP_reg31)
  1020.                 printf("通用寄存器: reg%d \n",p_var_1->loc - DW_OP_reg0);
  1021.             else if(p_var_1->loc_type == DW_OP_fbreg)
  1022.                 printf("loclist: %d \n",((int)p_var_1->loc));
  1023.             else
  1024.                 printf("Unknow location \n");//不是C的不管丫的
  1025.             printf("< %d > 数组: %d\n",p_sub_1->level+1,p_var_1->array);
  1026.             printf("< %d > 指针: %d\n",p_sub_1->level+1,p_var_1->points);
  1027.             printf("< %d > 类型: %s\n",p_sub_1->level+1,dwarf_base_type[p_var_1->type - 1]);
  1028.             printf("< %d > 大小: %d\n\n",p_sub_1->level+1,p_var_1->len);
  1029.             p_var_1 = p_var_1->next;
  1030.         }
  1031.         p_sub_1 = p_sub_1->next;
  1032.     }
  1033. }
  1034. */
  1035. int main(int argc, char **argv) {//初始化dbg
  1036.     Dwarf_Debug dbg = 0;
  1037.     int fd = -1;
  1038.     const char *filepath = "";
  1039.     char p[255];
  1040.     int res = DW_DLV_ERROR;
  1041.     Dwarf_Error error;
  1042.     Dwarf_Handler errhand = 0;
  1043.     Dwarf_Ptr errarg = 0;

  1045.     if (argc < 2)
  1046.         fd = 0;
  1047.     else
  1048.     {
  1049.         filepath = argv[1];
  1050.         fd = open(filepath, O_RDONLY);
  1051.     }
  1052.     if (fd <= 0)
  1053.     {
  1054.         printf("Failure attempting to open \"%s\"\n", filepath);
  1055.         exit(1);
  1056.     }
  1057.     res = dwarf_init(fd, DW_DLC_READ, errhand, errarg, &dbg, &error);
  1058.     if (res != DW_DLV_OK) {
  1059.         printf("Giving up, cannot do DWARF processing\n");
  1060.         exit(1);
  1061.     }
  1062.     read_cu_list(dbg);//解析工作
  1063.     res = dwarf_finish(dbg, &error);
  1064.     if (res != DW_DLV_OK) {
  1065.         printf("dwarf_finish failed!\n");
  1066.     }
  1067.     close(fd);
  1068.     sprintf(p,"%s.dwarf",filepath);
  1069.     if(asd.global || asd.sub_link)
  1070.         save_to_file(p,&asd);
  1071.     //read_from_file(p,&asd);
  1072.     //print(asd);
  1073.     //print_pos(p);
  1074.     printf("end \n");
  1075.     return 0;
  1076. }

阅读(2793) | 评论(0) | 转发(0) |
1

上一篇：笔试题(2)

下一篇：链表

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6