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

+ emit segment information in the dwarf debug info for static variables on i8086

Browse Source 
git-svn-id: trunk@39082 -
This commit is contained in:
nickysn 2018-05-21 15:30:58 +00:00
parent 76ff01beda
commit 308e439d5d
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/dbgdwarf.pas
View File

@ -2422,6 +2422,10 @@ implementation
tag : tdwarf_tag; tag : tdwarf_tag;
has_high_reg : boolean; has_high_reg : boolean;
dreg,dreghigh : byte; dreg,dreghigh : byte;
{$ifdef i8086}
has_segment_sym_name : boolean=false;
segment_sym_name : TSymStr='';
{$endif i8086}
begin begin
blocksize:=0; blocksize:=0;
dreghigh:=0; dreghigh:=0;
@ -2509,6 +2513,10 @@ implementation
templist.concat(tai_const.create_8bit(ord(DW_OP_addr))); templist.concat(tai_const.create_8bit(ord(DW_OP_addr)));
templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,offset)); templist.concat(tai_const.Create_type_name(aitconst_ptr_unaligned,sym.mangledname,offset));
blocksize:=1+sizeof(puint); blocksize:=1+sizeof(puint);
{$ifdef i8086}
segment_sym_name:=sym.mangledname;
has_segment_sym_name:=true;
{$endif i8086}
end; end;
end; end;
paravarsym, paravarsym,
@ -2625,6 +2633,10 @@ implementation
if (vo_is_self in sym.varoptions) then if (vo_is_self in sym.varoptions) then
append_attribute(DW_AT_artificial,DW_FORM_flag,[true]); append_attribute(DW_AT_artificial,DW_FORM_flag,[true]);
append_labelentry_ref(DW_AT_type,def_dwarf_lab(def)); append_labelentry_ref(DW_AT_type,def_dwarf_lab(def));
{$ifdef i8086}
if has_segment_sym_name then
append_seg_name(segment_sym_name);
{$endif i8086}
templist.free; templist.free;