paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 16:28:24 +02: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
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);