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

* While reading in the configuration file, handle select-options case-insensitive, so that -Tlinux is correctly recognized

Browse Source 
git-svn-id: trunk@12496 -
This commit is contained in:
joost 2009-01-03 22:36:09 +00:00
parent 96e141ffc6
commit e757212b86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpswitch.pas
View File

@ -896,7 +896,7 @@ function TSwitches.ReadItemsCfg(const s:string):boolean;
{ empty items are not equivalent to others !! } { empty items are not equivalent to others !! }
{ but -dGDB didn't work because of this PM } { but -dGDB didn't work because of this PM }
CheckItem:=((P^.Param='') and ((S='') or (P^.typ in [ot_Boolean,ot_String]))) or CheckItem:=((P^.Param='') and ((S='') or (P^.typ in [ot_Boolean,ot_String]))) or
((Length(P^.Param)>0) and (P^.Param=S) and ((Length(P^.Param)>0) and (upcase(P^.Param)=upcase(S)) and
not (P^.typ in [ot_Boolean,ot_String])) or not (P^.typ in [ot_Boolean,ot_String])) or
((Length(P^.Param)>0) and (P^.typ<>ot_Select) and ((Length(P^.Param)>0) and (P^.typ<>ot_Select) and
(P^.Param=Copy(s,1,length(P^.Param)))); (P^.Param=Copy(s,1,length(P^.Param))));