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

Removed debug message in CheckOptions

Browse Source 
git-svn-id: trunk@7313 -
This commit is contained in:
michael 2007-05-11 23:32:25 +00:00
parent 0f870ec901
commit 4e8e4d6c0a
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-base/src/inc/custapp.pp
View File

@ -428,7 +428,6 @@ begin
If (P<Length(ShortOptions)) and (Shortoptions[P+1]=':') then If (P<Length(ShortOptions)) and (Shortoptions[P+1]=':') then
begin begin
// Required argument // Required argument
Writeln('P ',P,' J ',J,' ',O[J],' ',l,' Havearg ',HaveArg);
If ((P+1)=Length(ShortOptions)) or (Shortoptions[P+2]<>':') Then If ((P+1)=Length(ShortOptions)) or (Shortoptions[P+2]<>':') Then
If (J<L) or not haveArg then // Must be last in multi-opt !! If (J<L) or not haveArg then // Must be last in multi-opt !!
Result:=Format(SErrOptionNeeded,[I,O[J]]); Result:=Format(SErrOptionNeeded,[I,O[J]]);