Преглед изворни кода

* fixed 64bit bug in iconvenc.pas

git-svn-id: trunk@11688 -
ivost пре 17 година
родитељ
комит
5c33285229
1 измењених фајлова са 1 додато и 3 уклоњено
  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;