paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 18:17:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: filter out -? and -h again in compiler options parser. Previous changes broke it.

Browse Source 
git-svn-id: trunk@42367 -
This commit is contained in:
juha 2013-08-07 08:56:10 +00:00
parent f13dca75fb
commit 6d2ad4be5c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/compiler.pp
View File

@ -927,8 +927,8 @@ begin
Continue;
end;
if (ThisLine = '') or (ThisInd > 30)
or (Pos(' -? ', ThisLine) > 0)
or (Pos(' -h ', ThisLine) > 0) then Continue;
or (Pos('-? ', ThisLine) > 0)
or (Pos('-h ', ThisLine) > 0) then Continue;
if i < aLines.Count-1 then begin
NextLine := aLines[i+1];