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

* don't write or reference debug information for a unit if it belongs to a/another package

Browse Source 
git-svn-id: trunk@34382 -
This commit is contained in:
svenbarth 2016-08-26 15:09:24 +00:00
parent aaceb5518f
commit 3a9f8e88fd
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/dbgbase.pas
View File

@ -589,7 +589,7 @@ implementation
pu:=tused_unit(hp.used_units.first);
while assigned(pu) do
begin
if not pu.u.is_dbginfo_written then
if not pu.u.is_dbginfo_written and not assigned(pu.u.package) then
begin
{ prevent infinte loop for circular dependencies }
pu.u.is_dbginfo_written:=true;

2
compiler/dbgdwarf.pas
View File

@ -3368,7 +3368,7 @@ implementation
hp:=tmodule(loaded_units.first);
while assigned(hp) do
begin
If (hp.flags and uf_has_dwarf_debuginfo)=uf_has_dwarf_debuginfo then
If ((hp.flags and uf_has_dwarf_debuginfo)=uf_has_dwarf_debuginfo) and not assigned(hp.package) then
begin
list.concat(Tai_const.Createname(make_mangledname('DEBUGSTART',hp.localsymtable,''),0));
list.concat(Tai_const.Createname(make_mangledname('DEBUGEND',hp.localsymtable,''),0));

2
compiler/dbgstabs.pas
View File

@ -1854,7 +1854,7 @@ implementation
hp:=tmodule(loaded_units.first);
while assigned(hp) do
begin
If (hp.flags and uf_has_stabs_debuginfo)=uf_has_stabs_debuginfo then
If ((hp.flags and uf_has_stabs_debuginfo)=uf_has_stabs_debuginfo) and not assigned(hp.package) then
begin
list.concat(Tai_const.Createname(make_mangledname('DEBUGINFO',hp.localsymtable,''),0));
list.concat(Tai_const.Createname(make_mangledname('DEBUGSTART',hp.localsymtable,''),0));