2
0
Эх сурвалжийг харах

* also write out the assembler invocation when using pipes

git-svn-id: trunk@31803 -
Jonas Maebe 9 жил өмнө
parent
commit
ff4847f685

+ 3 - 0
compiler/assemble.pas

@@ -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