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

* Fixed exception while parsing the -o option for the second time

Browse Source 
git-svn-id: trunk@16016 -
This commit is contained in:
joost 2010-09-19 20:06:37 +00:00
parent ed985423ac
commit ff4614177b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fppkg/fppkg.pp
View File

@ -315,7 +315,7 @@ begin
ShowUsage; ShowUsage;
halt(0); halt(0);
end end
else if (Length(Paramstr(i))>0) and (Paramstr(I)[1]='-') then else if (Length(Paramstr(i))>0) and (Paramstr(I)[1]='-') and FirstPass then
Raise EMakeToolError.CreateFmt(SErrInvalidArgument,[I,ParamStr(i)]) Raise EMakeToolError.CreateFmt(SErrInvalidArgument,[I,ParamStr(i)])
else else
// It's a command or target. // It's a command or target.