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

* fixed 64bit bug in iconvenc.pas

Browse Source 
git-svn-id: trunk@11688 -
This commit is contained in:
ivost 2008-09-01 18:46:40 +00:00
parent 0ed810b6b0
commit 5c33285229
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/iconvenc/src/iconvenc.pas
View File

@ -96,8 +96,6 @@ end;
{$ENDIF}
function InitIconv(Var error:string): Boolean;
var
err: PChar;
begin
result:=true;
{$ifdef LOADDYNAMIC}
@ -111,7 +109,7 @@ end;
function Iconvert(S:string;var res:string; FromEncoding, ToEncoding: string): cint;
var
InLen, OutLen, Offset: longint;
InLen, OutLen, Offset: size_t;
Src, Dst: PChar;
H: iconv_t;
lerr: cint;