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

+ Added a flag allowing a section to be written into both .dbg and executable files. This is needed at least for ELF SHT_NOTE sections.

Browse Source 
git-svn-id: trunk@22614 -
This commit is contained in:
sergei 2012-10-11 19:26:40 +00:00
parent aed4f10d67
commit 3d63b1a2b2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ogbase.pas
View File

@ -133,7 +133,9 @@ interface
{ Contains only strings } { Contains only strings }
oso_strings, oso_strings,
{ Ignore this section } { Ignore this section }
oso_disabled oso_disabled,
{ Must be cloned when writing separate debug file }
oso_debug_copy
); );
TObjSectionOptions = set of TObjSectionOption; TObjSectionOptions = set of TObjSectionOption;
@ -2043,7 +2045,7 @@ implementation
begin begin
{ don't write normal section if writing only debug info } { don't write normal section if writing only debug info }
if (ExeWriteMode=ewm_dbgonly) and if (ExeWriteMode=ewm_dbgonly) and
not(oso_debug in exesec.SecOptions) then (exesec.SecOptions*[oso_debug,oso_debug_copy]=[]) then
exit; exit;
if (oso_Data in exesec.SecOptions) then if (oso_Data in exesec.SecOptions) then
@ -3115,7 +3117,7 @@ implementation
exesec:=TExeSection(ExeSectionList[j]); exesec:=TExeSection(ExeSectionList[j]);
{ don't write normal section if writing only debug info } { don't write normal section if writing only debug info }
if (ExeWriteMode=ewm_dbgonly) and if (ExeWriteMode=ewm_dbgonly) and
not(oso_debug in exesec.SecOptions) then (exesec.SecOptions*[oso_debug,oso_debug_copy]=[]) then
continue; continue;
if oso_data in exesec.SecOptions then if oso_data in exesec.SecOptions then