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

git-svn-id: trunk@34382 -

compiler/dbgbase.pas

@@ -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;

compiler/dbgdwarf.pas

@@ -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));

compiler/dbgstabs.pas

@@ -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));