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

* Added ICU version of Android 4.1.

Browse Source 
* Increment by 2 when finding an unknown ICU version.

git-svn-id: branches/targetandroid@23483 -
This commit is contained in:
yury 2013-01-22 09:47:31 +00:00
parent 5aa0ba703d
commit 9471fb4f9e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/android/cwstring.pp
View File

@ -486,7 +486,7 @@ var
end; end;
const const
ICUver: array [1..4] of ansistring = ('3_8', '4_2', '44', '46'); ICUver: array [1..5] of ansistring = ('3_8', '4_2', '44', '46', '48');
TestProcName = 'ucnv_open'; TestProcName = 'ucnv_open';
var var
@ -511,14 +511,15 @@ begin
if LibVer = '' then begin if LibVer = '' then begin
// Finding unknown ICU version // Finding unknown ICU version
Val(ICUver[High(ICUver)], i); Val(ICUver[High(ICUver)], i);
for i:=i + 1 to 100 do begin repeat
Inc(i, 2);
Str(i, s); Str(i, s);
s:='_' + s; s:='_' + s;
if GetProcedureAddress(hlibICU, TestProcName + s) <> nil then begin if GetProcedureAddress(hlibICU, TestProcName + s) <> nil then begin
LibVer:=s; LibVer:=s;
break; break;
end; end;
end; until i >= 100;
end; end;
if LibVer = '' then begin if LibVer = '' then begin