From 0362fa505d06b27d09f8539b6600dda3fb82d6d8 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 8 Nov 2005 20:25:04 +0000
Subject: [PATCH] + -o now sets output path only if a path is explicitly
 specified

git-svn-id: trunk@1698 -
---
 compiler/options.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/options.pas b/compiler/options.pas
index e866dbba1a..e98a515b0f 100644
--- a/compiler/options.pas
+++ b/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);