fix for zlib1 import in pascal modules

git-svn-id: http://svn.miranda-ng.org/main/trunk@1844 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 4 insertions, 4 deletions

diff --git a/plugins/Utils.pas/zwrapper.pas b/plugins/Utils.pas/zwrapper.pas
index 7ccffafb14..bc6be65a43 100644
--- a/plugins/Utils.pas/zwrapper.pas
+++ b/plugins/Utils.pas/zwrapper.pas
@@ -6,14 +6,14 @@ function ZDecompressBuf(const inBuffer: Pointer; inSize: Integer; out outBuffer:
 

 implementation

 

-uses zlib;

+uses m_api;

 

 function ZDecompressBuf(const inBuffer: Pointer; inSize: Integer; out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer): Integer;

 var

-  zstream           : TZStreamRec;

+  zstream           : z_stream;

   delta             : Integer;

 begin

-  FillChar(zstream, SizeOf(TZStreamRec), 0);

+  FillChar(zstream, SizeOf(z_stream), 0);

 

   delta := (inSize + 255) and not 255;

 

@@ -38,7 +38,7 @@ begin
         Inc(outSize, delta);

         ReallocMem(outBuffer, outSize);

 

-        zstream.next_out := {$IFDEF FPC}PBytef{$ENDIF}(pByte(outBuffer) + zstream.total_out);

+        zstream.next_out := PChar(pByte(outBuffer) + zstream.total_out);

         zstream.avail_out := delta;

         Result := inflate(zstream, Z_NO_FLUSH);

         if Result < 0 then Exit;