Преглед изворни кода

Set LineNumber while checking and creating OutputDir.

Martijn Laan пре 5 година
родитељ
комит
591ecb33c6
1 измењених фајлова са 2 додато и 0 уклоњено
  1. 2 0
      Projects/Compile.pas

+ 2 - 0
Projects/Compile.pas

@@ -8840,10 +8840,12 @@ begin
     if not FixedOutputDir then
       OutputDir := PrependSourceDirName(OutputDir);
     OutputDir := RemoveBackslashUnlessRoot(PathExpand(OutputDir));
+    LineNumber := SetupDirectiveLines[ssOutputDir];
     if not DirExists(OutputDir) then begin
       AddStatus(Format(SCompilerStatusCreatingOutputDir, [OutputDir]));
       MkDirs(OutputDir);
     end;
+    LineNumber := 0;
     OutputDir := AddBackslash(OutputDir);
 
     if SignedUninstallerDir = '' then