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

* also write out the assembler invocation when using pipes

Browse Source 
git-svn-id: trunk@31803 -
This commit is contained in:
Jonas Maebe 2015-09-23 20:38:11 +00:00
parent 392af652df
commit ff4847f685
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/assemble.pas
View File

@ -634,6 +634,9 @@ Implementation
end end
else else
Message1(exec_i_assembling_pipe,owner.AsmFileName); Message1(exec_i_assembling_pipe,owner.AsmFileName);
if checkverbosity(V_Executable) then
comment(V_Executable,'Executing "'+maybequoted(owner.FindAssembler)+'" with command line "'+
owner.MakeCmdLine+'"');
POpen(outfile,maybequoted(owner.FindAssembler)+' '+owner.MakeCmdLine,'W'); POpen(outfile,maybequoted(owner.FindAssembler)+' '+owner.MakeCmdLine,'W');
end end
else else