Просмотр исходного кода

* don't write individual names of all assembler files when generating
a smart linkable unit with -ap

git-svn-id: trunk@3233 -

Jonas Maebe 19 лет назад
Родитель
Сommit
7c16869e48
1 измененных файлов с 7 добавлено и 1 удалено
  1. 7 1
      compiler/assemble.pas

+ 7 - 1
compiler/assemble.pas

@@ -576,7 +576,13 @@ Implementation
 {$ifdef hasunix}
         if DoPipe then
          begin
-           Message1(exec_i_assembling_pipe,AsmFileName);
+           if SmartAsm then
+            begin
+              if (SmartFilesCount<=1) then
+               Message1(exec_i_assembling_smart,name);
+            end
+           else
+             Message1(exec_i_assembling_pipe,AsmFileName);
            POpen(outfile,FindAssembler+' '+MakeCmdLine,'W');
          end
         else