* make code page name parsing case insensitive (mantis #8930)

git-svn-id: trunk@8610 -

.gitattributes

@@ -8415,6 +8415,7 @@ tests/webtbs/tw8861.pp svneol=native#text/plain
 tests/webtbs/tw8870.pp svneol=native#text/plain
 tests/webtbs/tw8883.pp svneol=native#text/plain
 tests/webtbs/tw8919.pp svneol=native#text/plain
+tests/webtbs/tw8930.pp svneol=native#text/plain
 tests/webtbs/tw8935.pp svneol=native#text/plain
 tests/webtbs/tw8950.pp svneol=native#text/plain
 tests/webtbs/tw8975.pp svneol=native#text/plain

compiler/widestr.pas

@@ -65,7 +65,7 @@ unit widestr;
       cp8859_1,cp850,cp437,
       { cyrillic code pages }
       cp1251,cp866,cp8859_5,
-      globals;
+      globals,cutils;
 
 
     procedure initwidestring(out r : pcompilerwidestring);
@@ -263,7 +263,7 @@ unit widestr;
 
     function cpavailable(const s : string) : boolean;
       begin
-          cpavailable:=mappingavailable(s);
+          cpavailable:=mappingavailable(lower(s));
       end;
 
 end.

tests/webtbs/tw8930.pp

@@ -0,0 +1,6 @@
+{ %norun }
+
+{$codepage CP850}
+
+begin
+end.