paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 03:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@1698 -
This commit is contained in:
michael 2005-11-08 20:25:04 +00:00
parent 735281f879
commit 0362fa505d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

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