소스 검색

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

git-svn-id: trunk@1698 -
michael 20 년 전
부모
커밋
0362fa505d
1개의 변경된 파일4개의 추가작업 그리고 2개의 파일을 삭제
  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);