浏览代码

Merged revisions 7934 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r7934 | jonas | 2007-07-03 17:25:05 +0200 (Tue, 03 Jul 2007) | 4 lines

* changed debug info for shortstrings to the format that gdb
expects (so gdb now recognises shortstrings in dwarf debug info
and shows them as strings rather than as records)

........

git-svn-id: branches/fixes_2_2@8011 -

joost 18 年之前
父节点
当前提交
c5ce82da16
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/dbgdwarf.pas

+ 2 - 2
compiler/dbgdwarf.pas

@@ -1356,7 +1356,7 @@ implementation
 
 
           { length entry }
           { length entry }
           append_entry(DW_TAG_member,false,[
           append_entry(DW_TAG_member,false,[
-            DW_AT_name,DW_FORM_string,'Length'#0,
+            DW_AT_name,DW_FORM_string,'length'#0,
             DW_AT_data_member_location,DW_FORM_block1,1+lengthuleb128(0)
             DW_AT_data_member_location,DW_FORM_block1,1+lengthuleb128(0)
             ]);
             ]);
           current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_plus_uconst)));
           current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_plus_uconst)));
@@ -1366,7 +1366,7 @@ implementation
 
 
           { string data entry }
           { string data entry }
           append_entry(DW_TAG_member,false,[
           append_entry(DW_TAG_member,false,[
-            DW_AT_name,DW_FORM_string,'Data'#0,
+            DW_AT_name,DW_FORM_string,'st'#0,
             DW_AT_data_member_location,DW_FORM_block1,1+lengthuleb128(1)
             DW_AT_data_member_location,DW_FORM_block1,1+lengthuleb128(1)
             ]);
             ]);
           current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_plus_uconst)));
           current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_plus_uconst)));