Browse Source

* fixed 64bit bug in iconvenc.pas

git-svn-id: trunk@11688 -
ivost 17 years ago
parent
commit
5c33285229
1 changed files with 1 additions and 3 deletions
  1. 1 3
      packages/iconvenc/src/iconvenc.pas

+ 1 - 3
packages/iconvenc/src/iconvenc.pas

@@ -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;