Browse Source

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

git-svn-id: trunk@12496 -
joost 16 years ago
parent
commit
e757212b86
1 changed files with 1 additions and 1 deletions
  1. 1 1
      ide/fpswitch.pas

+ 1 - 1
ide/fpswitch.pas

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