Browse Source

+ -o now sets output path only if a path is explicitly specified

git-svn-id: trunk@1698 -
michael 20 years ago
parent
commit
0362fa505d
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/options.pas

+ 4 - 2
compiler/options.pas

@@ -872,12 +872,14 @@ begin
                if More<>'' then
                  begin
 {$IFDEF USE_SYSUTILS}
-                 OutputExeDir:=SplitPath(More);
+                 D:=SplitPath(More);
                  OutputFile:=SplitFileName(More);
                  OutputExtension:=SplitExtension(More);
 {$ELSE USE_SYSUTILS}
-                 FSplit(More,OutputExeDir,OutputFile,OutputExtension);
+                 FSplit(More,D,OutputFile,OutputExtension);
 {$ENDIF USE_SYSUTILS}
+                 if (D<>'') then
+                   OutputExeDir:=FixPath(D,True);
                  end
                else
                  IllegalPara(opt);