diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-08-26 15:09:24 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-08-26 15:09:24 +0000 |
commit | 635a4fcea0e90426a2273160e18293cedb1dcb2d (patch) | |
tree | ca6d29108c93d88482c3ff98be33b487e3dd4682 /compiler/dbgstabs.pas | |
parent | bd995d791dff2b145d358c116dfe953e406c65d8 (diff) | |
download | fpc-635a4fcea0e90426a2273160e18293cedb1dcb2d.tar.gz |
* don't write or reference debug information for a unit if it belongs to a/another package
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@34382 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/dbgstabs.pas')
-rw-r--r-- | compiler/dbgstabs.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/dbgstabs.pas b/compiler/dbgstabs.pas index 142e9bac82..28c14b1f2a 100644 --- a/compiler/dbgstabs.pas +++ b/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)); |