paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 14:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make the dwarf debugstart/end labels local for Darwin, because the darwin

Browse Source 
linker does not like two global labels both pointing at the end of a
    section (causes "atom sorting error" warnings), and this happened for
    units without any code after r13098

git-svn-id: trunk@13111 -
This commit is contained in:
Jonas Maebe 2009-05-07 16:42:46 +00:00
parent c4439e4e39
commit 9a8ac8cecc
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/dbgdwarf.pas
View File

@ -2345,13 +2345,26 @@ implementation
ditem : TDirIndexItem;
fitem : TFileIndexItem;
flist : TFPList;
dbgname : String;
begin
{ insert DEBUGSTART and DEBUGEND labels }
new_section(current_asmdata.asmlists[al_start],sec_code,make_mangledname('DEBUGSTART',current_module.localsymtable,''),0,secorder_begin);
current_asmdata.asmlists[al_start].concat(tai_symbol.Createname_global(make_mangledname('DEBUGSTART',current_module.localsymtable,''),AT_DATA,0));
dbgname:=make_mangledname('DEBUGSTART',current_module.localsymtable,'');
{ Darwin's linker does not like two global labels both pointing to the
end of a section, which can happen in case of units without code ->
make them local; we don't need the debugtable stuff there either,
so it doesn't matter that they are not global.
}
if (target_info.system in systems_darwin) then
dbgname:='L'+dbgname;
new_section(current_asmdata.asmlists[al_start],sec_code,dbgname,0,secorder_begin);
current_asmdata.asmlists[al_start].concat(tai_symbol.Createname_global(dbgname,AT_DATA,0));
new_section(current_asmdata.asmlists[al_end],sec_code,make_mangledname('DEBUGEND',current_module.localsymtable,''),0,secorder_end);
current_asmdata.asmlists[al_end].concat(tai_symbol.Createname_global(make_mangledname('DEBUGEND',current_module.localsymtable,''),AT_DATA,0));
dbgname:=make_mangledname('DEBUGEND',current_module.localsymtable,'');
{ See above. }
if (target_info.system in systems_darwin) then
dbgname:='L'+dbgname;
new_section(current_asmdata.asmlists[al_end],sec_code,dbgname,0,secorder_end);
current_asmdata.asmlists[al_end].concat(tai_symbol.Createname_global(dbgname,AT_DATA,0));
{ insert .Ldebug_abbrev0 label }
templist:=TAsmList.create;