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

* don't override specified assembler on the command line when leaving

Browse Source 
assembler files in case that specified assembler is already an
    external one

git-svn-id: trunk@49137 -
This commit is contained in:
Jonas Maebe 2021-04-08 19:50:24 +00:00
parent 4c40e7f9d6
commit 1b34fe90a3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/options.pas
View File

@ -4450,10 +4450,10 @@ begin
Message(option_w_unsupported_debug_format); Message(option_w_unsupported_debug_format);
{ switch assembler if it's binary and we got -a on the cmdline } { switch assembler if it's binary and we got -a on the cmdline }
if ((cs_asm_leave in init_settings.globalswitches) and if (af_outputbinary in target_asm.flags) and
(af_outputbinary in target_asm.flags)) or ((cs_asm_leave in init_settings.globalswitches) or
{ if -s is passed, we shouldn't call the internal assembler } { if -s is passed, we shouldn't call the internal assembler }
(cs_asm_extern in init_settings.globalswitches) then (cs_asm_extern in init_settings.globalswitches)) then
begin begin
Message(option_switch_bin_to_src_assembler); Message(option_switch_bin_to_src_assembler);
{$ifdef llvm} {$ifdef llvm}