Pārlūkot izejas kodu

Set LineNumber while checking and creating OutputDir.

Martijn Laan 5 gadi atpakaļ
vecāks
revīzija
591ecb33c6
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      Projects/Compile.pas

+ 2 - 0
Projects/Compile.pas

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