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

* Reverted removal of 'ISO8859-1' encoding because it is still used in fcl-registry.

Browse Source 
git-svn-id: trunk@14209 -
This commit is contained in:
sergei 2009-11-18 11:42:35 +00:00
parent 791c165af9
commit 968338c428
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-xml/src/xmlread.pp
View File

@ -642,7 +642,10 @@ begin
SameText(AEncoding, 'l1') or
SameText(AEncoding, 'IBM819') or
SameText(AEncoding, 'CP819') or
SameText(AEncoding, 'csISOLatin1');
SameText(AEncoding, 'csISOLatin1') or
// This one is not in character-sets.txt, but was used in FPC documentation,
// and still being used in fcl-registry package
SameText(AEncoding, 'ISO8859-1');
end;
procedure BufAllocate(var ABuffer: TWideCharBuf; ALength: Integer);