fix for zlib1 import in pascal modules

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

2 files changed, 5 insertions, 5 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;

diff --git a/plugins/Watrack/watrack.dpr b/plugins/Watrack/watrack.dpr
index 2702c4852f..2d22375845 100644
--- a/plugins/Watrack/watrack.dpr
+++ b/plugins/Watrack/watrack.dpr
@@ -137,7 +137,7 @@ begin
     UTFToWide(dst^.mfile,si.mfile)

   else

     si.mfile:=dst^.mfile;

-}  

+}

   f:=Reset(dst^.mfile);

   if dword(f)<>INVALID_HANDLE_VALUE then

     GetFileTime(f,nil,nil,@dst^.date);