From ff4847f6857ab84db5328f2e30fa317b17274c06 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 23 Sep 2015 20:38:11 +0000
Subject: [PATCH]   * also write out the assembler invocation when using pipes

git-svn-id: trunk@31803 -
---
 compiler/assemble.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index a111039a59..1b9cf3766d 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -634,6 +634,9 @@ Implementation
             end
            else
              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');
          end
         else