+ Merged revision 1698

git-svn-id: branches/fixes_2_0@1699 -

compiler/options.pas

@@ -885,12 +885,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);