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

* prevent the DEBUGINFOTABLE from being dead stripped under darwin

Browse Source 
git-svn-id: trunk@4615 -
This commit is contained in:
Jonas Maebe 2006-09-12 12:08:27 +00:00
parent 32390af0f6
commit 6894e03fb6
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/dbgstabs.pas
View File

@ -1516,11 +1516,19 @@ implementation
procedure tdebuginfostabs.referencesections(list:TAsmList); procedure tdebuginfostabs.referencesections(list:TAsmList);
var var
hp : tmodule; hp : tmodule;
dbgtable : tai_symbol;
begin begin
{ Reference all DEBUGINFO sections from the main .text section } { Reference all DEBUGINFO sections from the main .text section }
if (target_info.system=system_powerpc_macos) then if (target_info.system=system_powerpc_macos) then
exit; exit;
list.concat(Tai_section.create(sec_data,'',0)); list.concat(Tai_section.create(sec_data,'',0));
{ make sure the debuginfo doesn't get stripped out }
if (target_info.system in [system_powerpc_darwin,system_i386_darwin]) then
begin
dbgtable:=tai_symbol.createname('DEBUGINFOTABLE',AT_DATA,0);
list.concat(tai_directive.create(asd_no_dead_strip,dbgtable.sym.name));
list.concat(dbgtable);
end;
{ include reference to all debuginfo sections of used units } { include reference to all debuginfo sections of used units }
hp:=tmodule(loaded_units.first); hp:=tmodule(loaded_units.first);
while assigned(hp) do while assigned(hp) do