paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +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; ccp:=win2iconv_arr[i].cp;
if cp=ccp then if cp=ccp then
break; break;
if cp>ccp then if cp>=ccp then
l:=i+1 l:=i
else else
h:=i-1; h:=i-1;
until l>h; until l>=h;
if l<=h then if cp=win2iconv_arr[i].cp then
begin begin
{ the array has been ordered so that in case multiple alias names { the array has been ordered so that in case multiple alias names
exist, the first entry for the cp is the most commonly supported exist, the first entry for the cp is the most commonly supported