paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 16:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed -o option

Browse Source 
git-svn-id: trunk@1669 -
This commit is contained in:
michael 2005-11-05 23:26:23 +00:00
parent 6fa4751f3f
commit 9b59f0675f
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/finput.pas
View File

@ -683,7 +683,11 @@ uses
else
p:=path^;
sharedlibfilename:=stringdup(p+prefix+n+suffix+extension);
exefilename:=stringdup(p+n+target_info.exeext);
{ don't use extension alone to check, it can be empty !! }
if (OutputFile<>'') or (OutputExtension<>'') then
exefilename:=stringdup(p+n+OutputExtension)
else
exefilename:=stringdup(p+n+target_info.exeext);
mapfilename:=stringdup(p+n+'.map');
end;

11
compiler/options.pas
View File

@ -870,14 +870,15 @@ begin
'o' :
begin
if More<>'' then
begin
{$IFDEF USE_SYSUTILS}
begin
d := SplitPath(More);
OutputFile := SplitFileName(More);
end
OutputExeDir:=SplitPath(More);
OutputFile:=SplitFileName(More);
OutputExtension:=SplitExtension(More);
{$ELSE USE_SYSUTILS}
Fsplit(More,d,OutputFile,e)
FSplit(More,OutputExeDir,OutputFile,OutputExtension);
{$ENDIF USE_SYSUTILS}
end
else
IllegalPara(opt);
end;