paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 16:50:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@8610 -
This commit is contained in:
Jonas Maebe 2007-09-22 20:54:49 +00:00
parent b79e4ff3f0
commit 3f81a4ed65
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

4
compiler/widestr.pas
View File

@ -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.

6
tests/webtbs/tw8930.pp Normal file
View File

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