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

+ implemented writing of dwarf debug info (by calling writeDebugElf) in

Browse Source 
TMZExeOutput.writeData. Note that writing i8086 debug info with the internal
  linker is still disabled (i.e. it switches to external linking) in 
  options.TOption.checkoptionscompatibility

git-svn-id: trunk@39219 -
This commit is contained in:
nickysn 2018-06-14 14:30:59 +00:00
parent 29b3ec3fdb
commit c56ebad183
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ogomf.pas
View File

@ -2978,10 +2978,22 @@ cleanup:
function TMZExeOutput.writeData: boolean;
begin
if apptype=app_com then
Result:=WriteCom
else
Result:=WriteExe;
Result:=False;
if ExeWriteMode in [ewm_exefull,ewm_exeonly] then
begin
if apptype=app_com then
Result:=WriteCom
else
Result:=WriteExe;
if not Result then
exit;
end;
if ((cs_debuginfo in current_settings.moduleswitches) and
(target_dbg.id in [dbg_dwarf2,dbg_dwarf3,dbg_dwarf4])) and
((ExeWriteMode=ewm_dbgonly) or
((ExeWriteMode=ewm_exefull) and
not(cs_link_strip in current_settings.globalswitches))) then
Result:=writeDebugElf;
end;
constructor TMZExeOutput.create;
@ -3028,7 +3040,7 @@ cleanup:
asmbin : '';
asmcmd : '';
supported_targets : [system_i8086_msdos,system_i8086_embedded];
flags : [af_outputbinary,af_no_debug,af_smartlink_sections];
flags : [af_outputbinary,af_smartlink_sections];
labelprefix : '..@';
comment : '; ';
dollarsign: '$';