From 5086c9d2039004aefe1bca55f73760f78b0fd698 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Tue, 9 Oct 2012 14:56:52 +0000 Subject: fix for zlib1 import in pascal modules git-svn-id: http://svn.miranda-ng.org/main/trunk@1844 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Utils.pas/zwrapper.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'plugins/Utils.pas') 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; -- cgit v1.2.3