paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed commented out dwarf-3 dyn array debug information location

Browse Source 
(works with archer/origin/archer-jankratochvil-vla gdb branch,
     see http://people.redhat.com/jkratoch/vla/MOVED)

git-svn-id: trunk@12424 -
This commit is contained in:
Jonas Maebe 2008-12-23 16:52:31 +00:00
parent b8194205af
commit 513b89f961
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/dbgdwarf.pas
View File

@ -1326,11 +1326,11 @@ implementation
{ gdb's dwarf implementation sucks, so we can't use DW_OP_push_object here (FK)} { gdb's dwarf implementation sucks, so we can't use DW_OP_push_object here (FK)}
{ insert location attribute manually } { insert location attribute manually }
{ {
current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(DW_AT_data_location)); current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_AT_data_location)));
current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(DW_FORM_block1)); current_asmdata.asmlists[al_dwarf_abbrev].concat(tai_const.create_uleb128bit(ord(DW_FORM_block1)));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(1)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(2));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(DW_OP_push_object)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_push_object_address)));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(DW_OP_deref)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_8bit(ord(DW_OP_deref)));
} }
finish_entry; finish_entry;