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

* fixed potential endless loop if the code page passed to win2iconv()

Browse Source 
is not found

git-svn-id: trunk@19195 -
This commit is contained in:
Jonas Maebe 2011-09-23 18:34:31 +00:00
parent 7dd5811828
commit 3469942f34
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/unix/winiconv.inc
View File

@ -364,12 +364,12 @@
ccp:=win2iconv_arr[i].cp;
if cp=ccp then
break;
if cp>ccp then
l:=i+1
if cp>=ccp then
l:=i
else
h:=i-1;
until l>h;
if l<=h then
until l>=h;
if cp=win2iconv_arr[i].cp then
begin
{ the array has been ordered so that in case multiple alias names
exist, the first entry for the cp is the most commonly supported