paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:09:09 +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} {$ENDIF}
function InitIconv(Var error:string): Boolean; function InitIconv(Var error:string): Boolean;
var
err: PChar;
begin begin
result:=true; result:=true;
{$ifdef LOADDYNAMIC} {$ifdef LOADDYNAMIC}
@ -111,7 +109,7 @@ end;
function Iconvert(S:string;var res:string; FromEncoding, ToEncoding: string): cint; function Iconvert(S:string;var res:string; FromEncoding, ToEncoding: string): cint;
var var
InLen, OutLen, Offset: longint; InLen, OutLen, Offset: size_t;
Src, Dst: PChar; Src, Dst: PChar;
H: iconv_t; H: iconv_t;
lerr: cint; lerr: cint;