Browse Source

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 years ago
parent
commit
c5ce82da16
1 changed files with 2 additions and 2 deletions
  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)));