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

* use unaligned constants, when writing the final dwarf arange record on i8086

Browse Source 
git-svn-id: trunk@39103 -
This commit is contained in:
nickysn 2018-05-24 15:43:02 +00:00
parent a5a6b70658
commit 69fbf0e0d8
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/dbgdwarf.pas
View File

@ -3406,17 +3406,18 @@ implementation
if not(target_info.system in systems_darwin) then
begin
{ end of aranges table }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_aint(0));
{$ifdef i8086}
{ bits 16..31 of the offset }
{ 32-bit offset }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_32bit_unaligned(0));
{ 16-bit segment }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_16bit_unaligned(0));
{ segment }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_16bit_unaligned(0));
{$endif i8086}
{ 32-bit length }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_32bit_unaligned(0));
{$else i8086}
{ offset }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_aint(0));
{ length }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_aint(0));
{$ifdef i8086}
{ bits 16..31 of the length }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_16bit_unaligned(0));
{$endif i8086}
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_symbol.createname(target_asm.labelprefix+'earanges0',AT_METADATA,0,voidpointertype));
end;